Perl: Archivo de apertura

Question

Estoy tratando de abrir el archivo recibido como argumento.

Cuando almaceno el argumento de que la variable global abierta funciona correctamente.

Pero

Si utilizo dar que sea lo más abierto mi no abierta el archivo.

¿Cuál es el motivo?

#use strict; 
use warnings; 

#my $FILE=$ARGV[0]; #open Fails to open the file $FILE 

$FILE=$ARGV[0];  #Works Fine with Global $FILE 
open(FILE) 
    or 
die "\n ". "Cannot Open the file specified :ERROR: $!". "\n"; 

Answer 1

Unary abierto solo funciona en variables de paquete (globales). Esto está documentado en the manpage.

Una mejor manera de abrir un archivo para lectura sería:

my $filename = $ARGV[0];   # store the 1st argument into the variable 
open my $fh, '<', $filename or die $!; # open the file using lexically scoped filehandle 

print <$fh>; # print file contents 

P. S. siempre use strict y warnings mientras depura sus scripts de Perl.

Answer 2

Todo está en perldoc -f open:

Si se omite EXPR, la variable escalar del mismo nombre que el FILEHANDLE contiene el nombre del archivo. (Tenga en cuenta que las variables léxicas - las declaradas con "mi" - no va a funcionar para este propósito ; así que si usted está utilizando "mi", especifique EXPR en su llamada a abrir.)

Tenga en cuenta que esta no es una muy buena manera de especificar el nombre del archivo. Como puede ver, tiene una restricción estricta en el tipo de variable en el que se encuentra y, por lo general, es mejor evitar la variable global que requiere o el identificador de archivo global que abre.

El uso de un gestor de archivo léxica mantiene su alcance de control, y las manijas de cierre automático:

open my $fh, '<', "filename" or die "string involving $!"; 

Y si usted está tomando ese nombre de archivo desde la línea de comandos, lo que pueda arrancar ese open o cualquier manejar por completo, y usar el operador simple <> para leer desde argumentos de línea de comandos o STDIN. (Consulte los comentarios para obtener más información al respecto)

Answer 3

use strict; 
use warnings; 

my $file_name = shift @ARGV; 
open(my $file, '<', $file_name) or die $!; 
… 
close($file); 

Siempre use strict y warnings. Si alguno de ellos se queja, arregle el código, no comente los pragmas. También puede use autodie para evitar el or die explícito después de abrir, consulte autodie.

Answer 4

De Perl's docs for open()

Si se omite EXPR, la variable escalar del mismo nombre que el FILEHANDLE contiene el nombre del archivo. (Tenga en cuenta que las variables léxicas - aquellas declaradas con mi - no funcionarán para este propósito, así que si está usando mi, especifique EXPR en su llamada para abrir.)