Foro - Perl en Español

Hola.

Estoy haciendo un script para que lea las IP de un fichero y muestre en un fichero las IP que responden a un ping. Lo que ocurre es que aunque el PC al que hago ping esté encendido, el script me dice que no responde al ping. ¿Sabéis cómo solucionarlo?

#!/usr/bin/perl

use Net::Ping;

open(INFILE, "<", "servers") or die("cannot open infile: $!");

my @ip_array = <INFILE>;

close(INFILE);

open(OUTFILE, ">", "ping_output") or die("unable to write ...

Hola, amigos, estoy diseñando un pequeño programita con la ayuda del framework Catalyst acompañado de la BD PostgreSQL.

Tengo la necesidad de hacer mis ventanas interactivas, como por ejemplo: necesito hacer un formulario en ventana emergente y esos datos capturados enviarlos a la ventana padre sin volver a cargar nada nuevamente. Tengo entendido que se puede utilizar Javascript y jQuery en Catalyst pero la verdad, no he encontrado ejemplos claros.

Si alguien puede darme un ...

Buenos días.

Estoy intentando copiar un archivo a una carpeta llamada Downloads/ utilizando:

system("copy XXXXX.tar.gz Downloads/");


En un ordenador con Windows 2000 sí que me funciona esta copia, pero lo estoy intentando con un ordenador con Windows 7 y me dice:

"El sistema no puede hallar el archivo especificado".

¿Hay algo que estoy haciendo mal? ¿Cambia la función copy de un Windows a otro? ¿Quizás necesitaría meter alguna librería en el ordenador con Windows ...

Hola, bueno todos, soy nuevo en este foro.

Me gustaría que me guiaran para poder hacer un programa en Perl que haga una POST a un login de una página web y luego de hacerlo verificar hacia donde redirecciona dicha página, ya que cuando uno hace un intento de registro malo, lo redirecciona a http://www.ll.com y cuando se registra correctamente me redirecciona a otra web, ejemplo: ...

Recién hace dos días que arranco con esto, así que perdonen si pregunto alguna boludez o algo muy sencillo :oops:

Mi consulta es la siguiente:
#!/usr/bin/perl
use Shell;
print "Content-type: text/html\n\n";

$foo = ping("-c5", "www.google.com\n\n");
print $foo;



$foo1 = ping("-c5", "www.ole.com.ar\n\n");
print $foo1;

Yo tengo armado esta función para tirar ping a esas dos páginas, pero al ejecutar esto vía web,
http://miservidor.com.ar/cgi-bin/perl.pl ...

Hay Perl... hay servidor Linux... A veces me siento la frustración y lo complejo de algo tan simple...

Tengo una aplicación que en local, en mi Optiperl funciona bien, en un hosting también me corrió bien...

Pero la subí a otro hosting y obtengo Error 500 Internal Server Error. El log solo me dice algo como:

File does not exist: /home/expola/public_html/404.shtml, referer: http://expolatinedutour.com/index.pl ...

En un directorio al que accedo por ftp, tengo cientos de archivos, pero sólo me interesan los archivos que empiezan por GetFtp, y en concreto, el último archivo creado.

Ejemplo.

GetFtp.20120608050100.tar.gz
GetFtp.20120610050100.tar.gz
GetFtp.20120612050100.tar.gz

Sólo me interesaría el último que ha sido creado en el mismo día.

¿Cómo podría obtener el nombre del fichero para luego poder hacer un get() y descargarlo?

año /2012 mes/ 06 día/12 hora /050100

Disculpad si no me he expresado ...

Buenas, tengo un problema entre pequeño, mediano y grande.

Me explico: necesito ordenar un array de fechas del siguiente formato: 2012/01/01, 2012/01/01, 1985/01/04, 1995/06/07, 2001/02/02. Bien, este sería el array de fechas @fechas. Asociado a este array relleno otros dos arrays: un array de títulos @titulos y un array de nombres de fichero @nombresDeFichero.

El tema es que las posiciones son correlativas en los tres. Es decir la posición $fechas se corresponde con $titulos y ...

¡Hola a todos!

Soy un poco nueva con Perl. El script que intento hacer debería contar cuántas veces está repetida una palabra, en una lista y al final imprimir la palabra y el número de veces que aparece.

Lo he intentado de mil formas y no he podido. Estaba revisando otros foros similares e intenté con las recomendaciones pero no me funciona. Por favor, ¡¡¡necesito ayuda!!! :? ...

Digamos que tengo lo siguiente:

#!/usr/bin/perl -w

use warnings;
use strict;


my @vehiculos;
my @puntos;

@vehiculos = ("coche", "camion", "bicicleta", "triciclo");
@puntos = ("1", "1", "0", "1");

my %hash;
my $keys;


@hash{@vehiculos} = @puntos;

foreach my $keys (sort {$hash{$a} cmp $hash{$b}} keys %hash){
print "$keys = $hash{$keys}\n";
}

Así, como está, me lo imprimiría en base a los valores, de menor a mayor.

Pero si yo quiero imprimirlo en el orden original, o sea, ...