Necesito Ayuda En Perl!!!!!

[tariks]

HOLA, PORFAVOR NECESITO AYUDA EN CUANTO A EL LENGUAJE PERL YA QUE ESTOY TRATANDO DE HACER UN SCRIPT.

EN ESTE EJEMPLO SE MUESTRA COMO GENERA UN NUEVO DOCUMENTO DE TEXTO CADA VEZ QUE YO INCLUYO DATOS EN EL, PERO LO QUE ME INTERESA ES QUE EN ESE MISMO DOCUMENTO QUE ESTA CREADO, SE QUEDE GRABADA LA INFORMACION CADA VEZ QUE UN NUEVO USUARIO QUIERA DEJAR SUS DATOS, OSEA, NO QUIERO QUE ME GENERE UN NUEVO DOCUMENTO DE TEXTO, SIMPLEMENTE QUE DENTRO DEL MISMO DOCUMENTO DE TEXTO UN USUARIO DEJE SUS DATOS Y QUEDE GRABADO, OTRO USUARIO ENTRE Y DEJE SUS DATOS Y QUEDE NUEVAMENTE GRABADO, Y ASI SUCESIVAMENTE.

¿SI ME EXPLICO?, Y AQUI ESTA EL SCRIPT, QUE PIDE NOMBRE, EDAD Y CORREO ELECTRONICO:

open(OUT,":>mytext.txt")|| die "No se pudo abrir el texto deseado.txt: $!";
print OUT "Esra es una linea de prueba sobre el documento text.\n";

print("Escribe tu nombre:");
$name=<STDIN>;
chomp($name);

print("Escribe tu edad:");
$age=<STDIN>;
chomp($age);

print("Escribe tu correo electrónico:");
$mail=<STDIN>;
chomp($mail);

print OUT "Tu nombre es: $name.\n Tienes: $age años.\n Tu correo es : $mail.\n";

CREANME QUE ESTARE MUY AGRADECIDO POR SU AYUDA.
GRACIAS!!!!

[DanielRey]

Hola Tariks :)

Ponés:
open(OUT,">mytext.txt")|| die "No se pudo abrir el texto deseado.txt: $!";

>mytext.txt significa que si el archivo no existe, lo crea, y si existe, lo borra y lo crea de nuevo.

Poné >>mytext.txt
En este caso si no existe lo crea, pero si ya existe, agrega al final

open(OUT,">>mytext.txt")|| die "No se pudo abrir el texto deseado.txt: $!";

Suerte ;)

<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>