--------------002B1D6BCC1C10893B1180B5
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Saludos!
Lo que pasa es que el interprete de perl busca una funcion DATOS
que es llamada por DATOS($linea) y no al descriptor de archivo.
Solo quita los parentesis y pon un espacio entre DATOS y $linea.
A mi me quedo asi:
#!/usr/local/bin/perl
print "Escribe y callate.\n";
if(open(DATOS,">datos.txt")) {
$linea=<STDIN>;
chop($linea);
while($linea ne "") {
print DATOS $linea; ---> Aqui estaba el asunto
$linea=<STDIN>;
chop($linea);
}
close(DATOS); ---> le a~adi esto para cerrar el archivo
}
Hasta pronto!
--
_______________________________________________________
Jose Luis Mena Munoz
mailto:mena@ugto.mx
_______________________________________________________
--------------002B1D6BCC1C10893B1180B5
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
Saludos!
Lo que pasa es que el interprete de perl busca una funcion DATOS
que es llamada por DATOS($linea) y no al descriptor de archivo.
Solo quita los parentesis y pon un espacio entre DATOS y $linea.
A mi me quedo asi:
#!/usr/local/bin/perl
print "Escribe y callate.\n";
if(open(DATOS,">datos.txt")) {
$linea=<STDIN>;
chop($linea);
while($linea ne "") {
print DATOS $linea; ---> Aqui estaba el asunto
$linea=<STDIN>;
chop($linea);
}
close(DATOS); ---> le a~adi esto para cerrar el archivo
}
Hasta pronto!
--
_______________________________________________________
Jose Luis Mena Munoz
mailto:mena@ugto.mx
_______________________________________________________