Gracias..........
---JL <mena@salamanca.ugto.mx> wrote:
>
> 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
> _______________________________________________________
>
>
>
<HR>
<!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=;
chop($linea);
while($linea ne "") {
print DATOS $linea; ---> Aqui estaba el asunto
$linea=;
chop($linea);
}
close(DATOS); ---> le a~adi esto para
cerrar el archivo
}
Hasta pronto!
--
_______________________________________________________
Jose Luis Mena Munoz
mailto:mena@ugto.mx
_______________________________________________________