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

No sabía muy bien dónde poner esta pregunta. ¿Hay alguna manera de hacer que si intentan abrir un cgi que no sea acceso.cgi o index.cgi los mande a prohibido.cgi? Pero que desde los propios cgi indicados sí pueda abrir otros.

Buenas, me he registrado hace un ratito y ya tengo un problemilla: quiero hacer un cgi que te pida nombre de usuario y contraseña y luego mande estos datos a otro cgi. De momento tengo el formulario que te pide los datos y te los muestra en pantalla, ¿qué debo hacer para mandarlo a otro cgi? ¿Y luego para que el otro cgi los reciba?

El cgi es simplemente esto:
#!/usr/bin/perl
#
use CGI ...