GOL no es una variable especial, es un descriptor o manipulador (handle) de fichero.
Lo que sí puedes hacer es cambiar GOL por una variable que realice la misma función:
Using perl Syntax Highlighting
open my $gol, "ar.txt" or die "Archivo no encontrado";
while (<$gol>) {
chomp;
print "Línea: $. => $_\n";
}
close $gol;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Pero, ¡ojo!:
$gol NO almacena la línea que estás leyendo. Es un descriptor de fichero, y solo eso.
Si quieres guardar la línea en otra variable aparte de en
$_, puedes hacer:
Using perl Syntax Highlighting
open my $gol, "ar.txt" or die "Archivo no encontrado";
while (my $linea = <$gol>) {
chomp $linea;
print "Línea: $. => $linea\n";
}
close $gol;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4