Foro - Perl en Español

Hola a todos,

El caso es que tengo un script Perl que devuelve el código de error (0-->OK, 1, 2, 3, ....) mediante la instrucción exit.

Dicho script perl es llamado desde otro script de la siguiente manera:

my $error_code = `script.pl`;
print "$error_code\n";

El caso es que en $error_code, esperaba obtener el código devuelto por exit, pero en lugar de eso, me encuentro con un mensaje de error (ej: "SCRIPT: ERROR: plugin file not ...

Los molesto porque estoy intentando terminar un script, el cual lo que hace es buscar en una url la palabra "marcos".

Prueba las siguientes urls:

Code: Seleccionar todo

http://localhost/legajo.php/legajos.txt
http://localhost/legajos.php/legajos.txt

Hasta ahí anda todo, pero me gustaría poder hacer que busque en varios archivos la palabra "marcos"; en este momento está seteado solamente "legajos.txt", pero tengo un archivo el cual dentro contiene el nombre de varios archivos que tendría que buscar esta palabra.
Probé hacer un array leyendo ...

¡Hola gente!
Soy una principiante en esto del Perl y tengo que hacer un script para un proyecto en la universidad :? . Sé cómo hacer para que me busque una palabra en un archivo escribiendo el nombre en el script, el problema es que no sé cómo hacer para que me pregunte y me deje introducir la palabra que quiera, es decir:
Función 1: introducir una ...

Quiero crear procesos asíncronos con fork pero cuando lo hago siguen siendo síncronos. El código que uso es

for $process (1..3) {

FORK: {
if (my $pid = fork()) {
# Padre
# No hace nada puesto que se relanza
# uno para cada proceso.
print "\n\tTamano de la pila:", scalar(@stack), "\n";

} elsif (defined $pid) {
# Hijo
$reschild= &simulate_gsrvu_execservice($process);
$sreschild= &gserialize( %{$reschild} );
push @stack, $sreschild;

exit;

} elsif ($! == EAGAIN) { ...

Saludos

Tengo una función que suma y multiplica varios números y va formando un gran número de 21 dígitos, pero requiero poder concatenar un 0 al principio y después concatenar letras en algunos espacios.

Por ejemplo debe de quedar algo así.

Al sumar y multiplicar me da este resultado:

100120121210212120

Lo que quiero hacer es integrar un cero al principio y letras en los ceros que se encuentran en negritas, para que quede como sigue: ...

Hola, ¿qué tal?

Les cuento mi interrogante, estoy tratando de hacer que una aplicación hecha en Perl (openca) pueda obtener unas variables que se cargan en una consulta que se programó en PHP.

Mi situación es la siguiente:

1. ¿Cómo debo leer las variables que me envía el form (html) con método POST en el archivo de Perl?

2. ¿Cómo se declaran esas variables en el archivo de Perl (globales o locales) (my or our)... ...

Amigos:

Necesito hacer un proyecto de lenguaje natural en Perl, y no encuentro ningún programa parecido para tomarme una idea; ¡¡les agradecería si alguno de uds. me echara una mano!! Feliz día.

Hola a todos:

Tengo una tabla en MySQL donde se guardan los feriados (días no laborables) quisiera saber cómo puedo hacer una pequeña aplicación que muestre los feriados de esa base de datos en un datepicker, de tal forma que esos días no se puedan seleccionar, así como también los sábados y domingos.

Nota.- el datepicker puede ser hecho en Ajax o Perl.

¡Hola, compañeros! ¡¡¡Disculpen si los molesto de nuevo!!!

¡Estoy trabajando con el modulo IPDevice::CiscoRouter para poder manipular access-list del router! ¡¡Pero no puedo correr el script porque me sale este error!!

Can't locate RouterBase.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /usr/lib/perl5/site_perl/5.8.5/IPDevice/CiscoRouter.pm line 8.
BEGIN failed--compilation aborted at ...

Quería consultarles si alguien tiene algún script el cual tenga como función comprobar si una url existe.

Digamos tengo una web la cual es: localhost.net/Carpeta/situ.html

Bueno me gustaría mediante Perl poder comprobar si "Carpeta/situ.html" existe de ser así que me lo muestre con un print y sino está, también diciendo que no existe.

Estuve buscando info pero no encontré mucho.

Gracias.