Come posso verificare se un filehandle è aperto in Perl?

Question

C'è un modo per verificare se un file è già aperto in Perl? Voglio avere un accesso al file di lettura, quindi non richiedere flock.

open(FH, "<$fileName") or die "$!\n" if (<FILE_IS_NOT_ALREADY_OPEN>); 
# or something like 
close(FH) if (<FILE_IS_OPEN>); 

Answer 1

Vedere answer regarding openhandle() from Scalar::Util. La risposta che ho originariamente scritto qui era una volta il meglio che potevamo fare, ma ora è mal datato.

Answer 2

Perché vuoi farlo? L'unica ragione per cui riesco a pensare è quando si utilizzano i filehandle del pacchetto vecchio stile (che si sembra stiano facendo) e si vuole evitare di salvare accidentalmente un handle rispetto a un altro.

Questo problema può essere risolto utilizzando i nuovi filehandle indiretti di stile.

open my $fh, '<', $filename or die "Couldn't open $filename: $!"; 

Answer 3

Perl fornisce la funzione fileno proprio per questo scopo.

EDIT Sono stato corretto per lo scopo di fileno(). Io preferisco il test più breve

fileno FILEHANDLE

oltre

tell FH != -1

Answer 4

Perché ti interessa se è già aperta? Stai cercando di catturare letture simultanee?

Non è necessario preoccuparsi di chiudere il file. O non è aperto e la chiusura fallisce perché non ha nulla da chiudere, o il file è aperto e la chiusura lo rilascia. In entrambi i casi, il file non è aperto su quel filehandle. Chiudi il filehandle senza preoccuparti se non è aperto. Stai vedendo qualcosa di strano lì?

Answer 5

di Tell produce un avvertimento (così fa stat, -s, -e, ecc ..) con use warnings (-w)

perl -wle ' 
    open my $fh, "<", "notexists.txt"; 
    print "can stat fh" if tell $fh 
' 
tell() on closed filehandle $fh at -e line 1. 
-1 

Le alternative fileno($fh) e eof($fh) non producono gli avvertimenti. Ho trovato che l'alternativa migliore era salvare l'output da open.

Answer 6

Il modulo Scalar::Util fornisce la funzione openhandle() per questo. A differenza di fileno(), gestisce i filehand perl che non sono associati ai filehandle del sistema operativo. A differenza tell(), non produce avvisi quando utilizzato su un filehandle non aperto Dal modulo documentation:

openhandle FH

Returns FH if FH may be used as a filehandle and is open, or FH is a tied handle. Otherwise "undef" is returned. 

    $fh = openhandle(*STDIN);   # \*STDIN 
    $fh = openhandle(\*STDIN);   # \*STDIN 
    $fh = openhandle(*NOTOPEN);   # undef 
    $fh = openhandle("scalar");   # undef