Si ejecutas el programa como
Using perl Syntax Highlighting
perl programa
.pl ENTRADA
.TXT
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
entonces, mientras Perl abre el fichero ENTRADA.TXT y lo envía a la entrada estándar y puedes leerlo, el nombre del fichero sigue estando dentro del array @ARGV.
Puedes imprimirlo con
Using perl Syntax Highlighting
print $ARGV[0
];Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
pero, ¡atención!, debes hacerlo ANTES de haber terminado de leer el fichero de entrada.
Puedes hacerlo nada más empezar el programa:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
$fichero = $ARGV[0
];
print <>;
print $fichero;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4