Foro - Perl en Español

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

Hola que tal, aquí molestándolos de nuevo y solicitando su oportuna y eficiente ayuda. El problema que tengo es con respecto a un script de Perl con Ajax. Ya que soy nuevo en Ajax no sé cómo adaptar las instrucciones de Ajax a Perl. Este es el script que estoy haciendo:

#! /usr/bin/perl -w

BEGIN
{
# Declaramos la ruta de ubicacion del modulo 'comun'.
@INC=(@INC,"/var/www/cgi-bin/comun");
}


use contratos_html; #aqui se encuentran los modulos
use ...

¡¡¡Buenas!!!
He probado cambiando el "TimeOut" del httpd.conf, pero nada...

Necesito ejecutar un CGI que tarda en terminar entre 2 y 4 horas sin que haga timeout... y al terminar muestre el print que tengo al final...

El tema está en que hace timeout al rato...
¿Alguna idea? ¡¡Gracias!!