Foro - Perl en Español

Hola a todos, soy nuevo en el foro. Me encargaron la conversión de un script escrito en Perl a PHP y, aunque alguna vez hice algo en Perl, estoy teniendo problemas para entender esta parte del código:

sub getCookie {
my %cookies = fetch CGI::Cookie;
my @arryCookies=(((exists $cookies{'test'}) && ($cookies{'test'}->value)) ? $cookies{'test'}->value : (''));
return $arryCookies;
}

my $cookie_id = &getCookie;
my ($val) = $cookie_id =~ /\d+\.\d+\.\d+\.\d+\.(.*)/;

Un ejemplo de valor de esa cookie es: ...

Hola,
necesito ayuda sobre cómo comparar 2 ficheros. Ambos ficheros tienen un campo clave en común y necesito crear un fichero de salida con la diferencias entre ambos solo si no coincide este campo clave.

Si alguien me puede marcar unas líneas muy generales creo que yo podré acabar solo el programa.

No sé si aquí, en Experto, es el lugar adecuado.

Creo que no me sirve:

use File::Compare; if (compare("file1","file2") == 0) ...

Muchas ...

¿Alguien sabe la diferencia que existe entre las variables locales y privadas en Perl?

Gracias por adelantado

Estaba leyendo el foro, pero no encontré ningún post el cual me pueda ayudar, por eso generé este.

Tengo un script el cual me gustaría meterle una variable la cual me devuelva el tiempo de ejecución que estuvo el script.

Gracias

Hola. Mira tengo una idea en la cabeza pero no sé cómo programarla.

Estoy creando un script que realiza un socket. Pues yo quiero crear una función de que cuando el socket se acabe realice una función definida por mi.

Un ejemplo sería una conexión (socket) con una página web, pues cuando el socket se cerrase ya sea por el usuario o por un problema del mismo que realice una función definida por mi.

Está: ...

Buenas, estoy empezando con Perl y tengo una pregunta de muy muy muy novatos.

Tengo en cada línea de un fichero una hora con este formato |HH:MM| o |H:MM|. Lo que quiero conseguir es imprimir aquellas fechas que NO sean correctas (como por ejemplo: |24:00| o |9:65|).

He conseguido justo lo contrario con este código:

while (<IN>){
print "\n" if /?\d:\d/;
}

He probado a meter la exp. reg. entre corchetes y anteponerle el "^", ...

Hola, estoy realizando una aplicación web en PHP para la gestión de un centro escolar que en un principio iba a ser para una Intranet, pero que se ha decidido sacar a Internet.

Como iba a ser para una Intranet la verdad es que creo que la seguridad de la aplicación es un poco baja. Pido por favor me aconsejéis si está bien este nivel de seguridad o es poco y posibles alternativas. Os cuento, ...

¡¡Hola!! Mi intención es pasar un fichero de texto (.txt) a array bidimensional para poder modificar cada uno de los caracteres que componen el fichero original, en lenguaje Perl.

¿Alguien me puede ayudar? :roll:

¡¡¡Muchas gracias!!! :P

Tengo subido un archivo .txt en mi servidor con un estructura ip:puerto.

EJ: 80.80.80.80:8000

Estoy intentando hacer un código que me recoja la IP y el puerto por separado y me las guarde en una variable.

#!/usr/bin/perl
use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;

$host="HOST";
chomp $host;

$final=$host;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $final);
$doc = $ua->request($req)->as_string;

($ip, $puerto) = $doc =~ m/\'(\w+)\:(\w+)\'/simo;

print "$ip:$puerto";

Pero no me funciona.

Buenas, me gustaría saber la forma de ejecutar comandos de Linux. Estoy haciendo un proyecto CGI en el que tengo que gestionar paquetes Debian y repositorios. Uso lo siguiente y con algunos comandos si va, y con otros no:

Mostrar si un paquete está instalado (funciona):
$a=`dpkg -l $paquete`;
print $a;

Actualizar repositorios (no me funciona):
$b=`aptitude update`;
print $b;

Supongo que el segundo no lo ejecutará por temas de permisos, pero no sé si ...