Foro - Perl en Español

Buenas tardes, un cordial saludo. Tengo una duda: no encuentro la función que me permita abrir un directorio de archivos para poder manejarlos globalmente. Actualmente lo manejo uno por uno así:

open( MIFICH, "/home/rocco/dir2/fi_sir_20120301_20120308.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "fi_sir_";

if ( $archivo =~ m/fi_sir_/ ) {

while (<MIFICH>) {

$cadena = "$_";

@cadena = split( /\|\s*/,, $cadena );
print "\n";
print $cadena;
}

}
else { ...

Hola ¿qué tal?

Estaba tratando de ejecutar un código que manda a llamar un módulo de Perl pero a la hora de hacerlo me manda este error:

------------- EXCEPTION: Bio::Root::Exception -------------
MSG: http://www.expasy.org/cgi-bin/protparam error: 301 Moved Permanently
STACK: Error::throw
STACK: Bio::Root::Root::throw /usr/share/perl5/Bio/Root/Root.pm:472
STACK: Bio::Tools::Protparam::new /usr/share/perl5/Bio/Tools/Protparam.pm:128
STACK: prog_protparam.pl:14

¿Alguien me podría decir qué estoy haciendo mal, o qué sucede?

¡Gracias por la ayuda!

¿Qué tal? Espero me puedan ayudar.

Lo que pasa es que tengo una serie de usuarios con horarios de In Out b1, b2, y lunch, donde b1 y b2 es break1 y 2, respectivamente.

Necesito hacer un reporte donde muestre las comidas que se necesitan dependiendo si el usuario viene a trabajar o no, y dependiendo de la hora de lunch hago un count para saber cuántos habrá en cierto momento, para determinar si es ...

¡Buenos días!

Estoy trabajando con mi proyecto final de carrera, y el asunto que me trae ahora entre manos es el tema de la comunicación entre sockets.

He creado un paquete para establecer la comunicación de los sockets y el envío de los datos a través de él. El problema lo tengo cuando intento enviar un mensaje a través del nuevo socket entre cliente-servidor, en el que se me queda bloqueado el servidor esperando a ...

Hola chicos, me preguntaba si alguno de vosotros habéis implementado una captcha para un formulario. He estado viendo varios sitios web pero no acabo de ver un método que me acabe de convencer. Agradecería cualquier aporte de enlace o referencia a tutorial.

Hola,

¿Existe sentencia para saber cuál es la codificación de un archivo que estás leyendo? Cualquier tipo, cualquier extensión.

Gracias.

«En Perl disponemos de un tipo de variable denominado ‘hash’, que permite almacenar conjuntos de pares (clave, valor). Es equivalente a lo que en otros lenguajes se denomina “array asociativo”».

Artículo

Buenas, tengo un problema porque los resultados no me salen en letras y números.

#!/usr/bin/perl -w

use Net::FTP;

$ftp = Net::FTP->new( "xxx.xxx.xxx.xxx", Debug => 0 )
or die "Cannot connect to some.host.name: $@";

$ftp->login( "xxxxxx", 'xxxxxx' )
or die "Cannot login ", $ftp->message;

$ftp->get( "sapfi_rechazo_01032011_HCM_1724.txt.Z", "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" )
or die "get failed ", $ftp->message;
print "successful\n";

$ftp->quit;

open( MIFICH, "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "sapfi_rechazo_";

if ( ...

Siento que el título sea tan poco explicativo, pero la verdad es que no entiendo ni yo mismo cómo hacer lo que quiero :lol:

Estoy creando un script que descargue recursivamente las imágenes de todo un blog. Tengo más o menos todo montado y "funcionando" usando unicamente LWP::Simple. El problema viene al "extraer" los enlaces a esas imágenes. Lo primero que hago es descargar la página así: ...

«Redis es un servidor de estructuras de datos; permite almacenar, ordenar y operar datos estructurados en simples cadenas, hashes, listas, sets y sorted sets. Puede ser utilizado como un “gestor” de base de datos NoSQL»

Artículo