Foro - Perl en Español

Hola, ando loco con esto que no me funciona y no veo el posible fallo.
$ip = $ENV{'REMOTE_ADDR'};
$_ = "$ip";
@numeros = split(/\./);

open(DATA,"online_provincias.txt");
while(<DATA>){
@C = split (/;/);
if ($C eq "$numeros") {
$provincias = "$C";
}else{
$provincias = "No"
}
}
Siempre imprime "No", aunque se cumpla la condición.

Los datos de la base están así:
27;Lugo
28;Madrid
29;Málaga
y $numeros es 28.

Os doy las gracias anticipadas.
Un saludo.

Buenas a todos. Me gustaria hacer un script perl para hacer copias de seguridad de mi sistema linux. Hay alguna funcion predeterminada en perl para hacer copias de seguridad? si no es asi, algun modulo existira, no?

Mi idea es hacer una politica de copias de seguridad tal que asi:

Lunes: Copia general de todo el sistema. Nivel 0.

Resto de dias: copia incremental de la anterior. Nivel 1.

Que les parece? admito sugerencia tambien. ...

Hola a todos:
Soy nuevo en Perl y veo que tiene unas posibilidades impresionantes. He leido el mensaje de kidd que muestra cómo ejecutar programas externos a Perl con system().
Mi pregunta es: ¿Cómo es posible ocultar los cálculos intermedio y que no se vean en pantalla? Cuando ejecuto un programa se me llena la pantalla de datos intermedios y sin relevancia.

Muchas gracias por vuestra atención,
Jokin

Que onda, ¿cómo les va?

Bueno está este CGI que quiero arreglar, lo que hace es comprimir un folder en un zip, lo genera en tiempo real, el problema es que el código truena y genera un archivo vacío si el folder es muy grande, con folders no tan grandes jala a la perfección,

Mi pregunta es: ¿Cual forma creen que sería la más eficiente para corregir eso?

Mi solución había sido leer el folder ...

Tengo un pequeño problemilla. Necesito que cada vez que un usuario se registre en mi pagina, reciba un email con los datos. Como puedo hacer eso con un script perl?

Supongo que necesitare unos cuantos modulos auxiliares. Cuales?

Muchas gracias por su ayuda de antemano.

Buenas,

Quiero imprimir todos los elementos de un array y entre ellos meter una coma; ahora mismo estoy haciendo esto:
foreach (@array) {
print $_ , " , ";
}
El resultado es el esperado... algo más o menos así:

elemento1 , elemento2 , elemento3 ,

Es decir, después de cada elemento del array meto una coma, ¿pero cómo podría hacer para no insertar una coma después del último elemento? Es decir que quede ...

Hola:

Ayer por alguna razón estaba buscando algo en el sitio de Perl Monks cuando me tope con un post que puso merlyn donde habla acerca de como es extremadamente díficil inclusive hasta casi imposible crear un buen parser de perl.

En la participación pone solamente un par de ejemplos que complicarían la vida de cualquier persona que quiera crear un buen parser en perl, debido a la gran cantidad de formas en que uno ...

Buenas,

¿Cómo se podría comentar un bloque de código en Perl? Lo que equivaldría al /* ... */ de C, vamos :-)

Resulta bastante molesto ir comentando línea a línea con #...

¡¡Saludos!!

Buenas,

Quiero pasar arrays entre funciones. Estoy llamando a la función así:
$resultado = funcion(@array1, @array2);
¿Cómo podría recoger esos arrays desde funcion()?

He probado con esto:my @tmp1 = shift;
my @tmp2 = shift;pero no funciona.. ¿Cómo podría solucionarlo?

¡¡Saludos!!

Hola a todos de nuevo:

Debo anunciaros que hemos abierto una nueva web para WAS en The N-Factory, y los desarrollos libres que vamos desarrollando, dónde están tanto las descargas como la documentación y otras informaciones sobre los distintos temas. Es un sitio de colaboración y nos gustaría que os pasaseis por allí y lo vieseis.

Además, también tengo que anunciaros que hemos sacado la versión para Unix/Linux de WAS, con su propio worker y ...