Foro - Perl en Español

Hola a todos, primero de todo felicitaros por la gran tarea que lleváis a cabo... Creo que sois una gran herramienta para todos los que, como yo, nos iniciamos en el mundo de la programacion en Perl.

Creo que mi duda será fácil de contestar... la cuestión es que tengo que crear un hash el cual he creado de la siguiente manera:

%hash = (
"diez",10,
"cien",100,
"mil",1000,
);

Representa que diez, cien y mil ...

¿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!! 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 ...

Hola:
Saben alguna direcciones de donde pueda bajar el modulo de SFTP, ya que lo quiero instalar en windows y en el ppm me dice que no encuentra el modulo.

Necesito hacer un script que correrá en plataforma Unix que lea un fichero y detecte si el retorno de carro es de Windows, es decir:

si el fichero a leer se ha generado en un Unix, el fin de línea en hexadecimal es '0A', pero si este fichero a leer se ha generado en un Windows y después se ha copiado al Unix el fin de línea en hexadecimal es '0D0A' y en este caso ...