Foro - Perl en Español

Buenas

$nuevo = chomp($entrada = <STDIN>);

Si la entrada de STDIN es "Hola\n" tengo claro que chomp() quita el "\n" y por tanto $nuevo será Hola.

¿Pero qué pasa con la variable $entrada?
¿Queda también como Hola o como Hola\n?


saludos

Hola amigos.

Hace un tiempo con la ayuda de este hermoso foro, principalmente con la colaboración especial del amigo explorer logré terminar un redirector para Squid, el cual a la fecha actual ha evolucionado y es parte de los addons de una minidistro GNU/Linux llamada BrazilFW. Pero acontece que dicho redirector depende 100% de Squid, con lo cual obliga a quien quiera usarlo a instalar Squid. Por tal motivo pido de su ayuda u orientación ...

Buenas, hace unos cuantos años cuando fui a arrancar el PC me pasó algo que ya parece normal entre los usuarios del Windows, que no arrancaba y daba fallos por todas partes (así de buenas a primeras y porque le dio la gana). Ninguna opción de restore me sirvió para poder recuperar el Windows ni lo que tenía grabado en el HD, así que con todo mi cabreo instalé Ubuntu 64 bits en el PC. ...

Buenas, hace una semana más o menos que hice unas preguntas y me recomendaron el uso de módulos de Perl y más tarde el uso de cookies, y les comenté que cuando terminara la web y funcionara me pondría a estudiarme los módulos y luego las cookies. El tema de los módulos ya lo tengo resuelto y entendido (ya he hecho un encriptador y ¡funciona! :D ...

Buenas, probablemente soy yo que no sé buscar pero no encuentro nada por Google. He hecho mi primer módulo de pruebas para encriptar y desencriptar datos; el módulo es Encriptador.pm y las funciones Encripta() y Desencripta().

Quiero llamar a las funciones de tal manera:

Encripta($nombre);
Desencripta($encriptado);

Para así poder decirle que me encripte la palabra contenida en $nombre y que me desencripte lo contenido en $encriptado.

Podría hacer un archivo con la palabra encriptada y ...

Tengo la declaración de variable siguiente:

sub definedir{
$ENV{PATH} = '/usr/local/bin:/Volume/Raid/prueba'
}

y ahora quiero añadir el directorio (con espacios):

/Volume/Raid1 1/prueba2

Mi duda es: ¿podría ponerlo así con el espacio en blanco?

En la shell de Unix debo ponerlo entre comillas 'Raid1 1', pero en Perl desconozco el método.

NOTA: No puedo renombrar el fichero.

A ver si algún forero posee este conocimiento.
Gracias.

Saludos cordiales,

Espero puedan ayudarme con este problemita que me tiene dando vueltas la cabeza:

He estado intentando insertar una línea cada vez que pasen 10 líneas en un archivo de texto.
Lo único que pude hacer es insertar una línea después de cada línea. Ejemplo:
#!/usr/bin/perl

open $FH,"<mp31.lst" or die $!;
$flag=0;
while(<$FH>){
print;

{
print "/home/mp3";
print "psi.mp3\n";
$flag=0;
}
}
close $FH;


¿Cómo puedo hacer que imprima pero solo cada ...

Hola a todos. Soy nuevo en esto de Perl :oops:

Necesito desarrollar un script web que al ejecutarlo redireccione inmediatamente a otra página y treinta segundos más tarde envíe un correo electrónico.

¿Alguien podría ayudarme?

Muchas gracias.
rogerp003

¿Qué tal?

Molestándolos de nuevo con su valioso apoyo.

Estoy tratando de evitar la inyección de instrucciones SQL, pero aun no encuentro la manera adecuada de hacerlo. He buscado en Internet pero los ejemplos que hay son en PHP y en la mayoría lo que hacen es sustituir los caracteres (' / "" ) por cadenas vacías.

¿Existe en Perl algún módulo para evitar la inyección de código SQL o alguna función para poder evitar ...

Hola.

Mi duda es sobre cómo poner un software hecho en Perl a disposición de los usuarios de Ubuntu.

¿Alguien lo ha hecho?