Perl: file di apertura

Question

Sto tentando di aprire il file ricevuto come argomento.

Quando archiviano l'argomento nella variabile globale aperto funziona correttamente.

Ma

Se uso dare renderlo come il mio aperta non riesce a aperta il file.

Qual è il 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

Unario aperto funziona solo su variabili pacchetto (globali). Questo è documentato su the manpage.

Un modo migliore per aprire un file per la lettura sarebbe:

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. utilizzare sempre strict e warnings durante il debug degli script Perl.

Answer 2

È tutto in perldoc -f open:

Se ESPR viene omessa, la variabile scalare dello stesso nome il FILEHANDLE. (Si noti che lessicali variabili - quelle dichiarate con "my" - non funzionerà per questo scopo, così se si sta utilizzando il "mio", specificare ESPR nella chiamata per aprire.)

Si noti che questo non è un ottimo modo per specificare il nome del file. Come puoi vedere, ha un forte vincolo sul tipo di variabile in cui si trova, e la variabile globale che richiede o il filehandle globale che apre di solito è meglio evitare.

Utilizzando un filehandle lessicale mantiene la sua portata in controllo, e maniglie chiusura automatica:

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

E se si sta prendendo che il nome del file dalla riga di comando, si potrebbe fare a meno che open o qualsiasi gestire completamente e utilizzare l'operatore normale <> per leggere dagli argomenti della riga di comando o STDIN. (vedere i commenti per ulteriori informazioni al riguardo)

Answer 3

use strict; 
use warnings; 

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

Usare sempre strict e warnings. Se uno di loro si lamenta, correggi il codice, non commentare la direttiva. È anche possibile use autodie evitare l'esplicito or die dopo l'apertura, vedere autodie.

Answer 4

Da Perl's docs for open()

Se ESPR viene omessa, la variabile scalare dello stesso nome di FILEHANDLE. (Si noti che le variabili lessicali - quelli dichiarati con il mio - non funzionerà per tale scopo;. Quindi se si sta usando il mio, specificare ESPR nella chiamata per aprire)