Foro - Perl en Español

Tengo el siguiente array o hash o lo que sea... que luego siempre lo llamo como no es :P

STATUS: $VAR1 = bless( {
'alert' => '',
'transation_id' => undef,
'sip_fee_type' => '01',
'item' => bless( {
'hold_queue' => [
{
'hold_type' => '2',
'patron_id' => undef,
'expiration_date' => '20081125 110158',
'pickup_location' => 'LAXE1',
'item_id' => '9'
}
],
'patron' => bless( {
'hold_items' => [
'2' ...

Hola

Una pregunta... ¿cómo puedo hacer esto en un TextView?

Code: Seleccionar todo

"\n"

Es que todo me aparece así

Code: Seleccionar todo

holamundoadiosmundo

y quisiera que me apareciera así en el textview

Code: Seleccionar todo

hola
mundo
adios
mundo

También quisiera saber si puedo aumentar el tamaño a un TextEntry tanto vertical como horizontal.

salu2

Muy buenas tardes, tengo un problema con un vector, que me da un cierto error, que no consigo resolver. Resulta que en la siguiente función:

sub gid_primario
{
my $usuario=$_;
open(LINEAS,$FICH_USU) or die "No se pudo abrir el fichero";
while($filas=<LINEAS>)
{
@filas = split (/:/,$filas);
if(defined($filas) && $filas eq $$usuario)#Linea del error
{
close(LINEAS);
return $filas;
}
}
close(LINEAS);
return 0;
}

Me devuelve 1 error (Repetido en cada iteración del bucle), que me indica ...

¡Hola! ¿Alguien sabe cómo puedo comprobar si un array está vacío?

Por ejemplo:
my $item = GetItem($item_id); # $item es un array que puede estar vacío

if (el array tiene algo){
warn "el array tiene datos!";
}else{
warn "el array está vacío!";
}

No sé cómo poner el if()... porque, en mi caso, $item está vacío y, por lo tanto, debería entrar por el else{} y no por el if().

He probado a poner en ...

Muy buenas tardes, resulta que necesito mostrar la UID y nombre de usuario cuando me convenga a través de una condición de if(). Los valores antes del if() me los pilla bien, pero cada vez que la comprobación del if() es correcta, me salta el siguiente error:

Code: Seleccionar todo

Use of uninitialized value in concatenation (.) or string at usugrupo3.pl line 182, <ENTRADA> line 11.

Os dejo el cacho de código que da el problema a ver ...

Hola, ante todo muy buenas noches. En la facultad me han planteado realizar un ejercicio bastante extenso, en la que una parte requiere el uso de split().

Resulta que al escribir en emacs:
@nombre = split /:/, $nombre;

emacs, a partir del segundo "/" me marca todo el texto como si fuese un print(), es decir, del mismo color rosado del contenido de print "este contenido";

Necesito ejecutar dicha orden de esa manera para extraer ...

Hola,

necesito saber una forma de comprobar si existe un elemento del vector. Necesito que me dé un error en la siguiente expresión:

if ($ARGV "no existe"){
error();
}

Necesito saber si existe ese elemento del vector y no sé cómo poner la parte de "no existe".

Muchas gracias.

Hola, ¿cómo están?

Por favor, he estado en esto y ya no sé qué hacer.

El problema es que tengo la aplicación en HTML y no sé qué hacer para poner código Perl dentro de ella. El siguiente código que les muestro está en HTML.

Están dos campos de texto y un botón para enviar; lo que quiero es saber cómo puedo poner código Perl para que realice la conexión con MySQL y que ingrese ...

Buenas. Es la primera vez que escribo en este post, y me gustaría consultar una duda que tengo.

El problema es que quiero usar mkdir(), pero la dirección nueva se encuentra en varias variables.

Me explico: yo tengo un directorio que es, por ejemplo, ./home/pepe, y quiero crear uno nuevo de la siguiente forma ./home/p/pepe/. El nuevo directorio contiene un nivel más, con la primera letra de la carpeta pepe. Así, si tuviéramos ./home/hola, el ...

Hola.

Como digo en el asunto tengo un problema moviendo un fichero. He estado haciendo pruebas pero no logro saber en qué me falla. Creo que se debe a algo relacionado con los valores de las variables... en fin, os digo de que se trata:

- Tengo un programa en Perl que tiene varias funciones a las que va llamando durante la ejecución del programa.

- El programa al empezar creó un fichero que sirve ...