Come determinare se un handle di file Perl è un handle di lettura o scrittura?

Question

Viene fornito un oggetto IO::File o un typeglob (\*STDOUT o Symbol::symbol_to_ref("main::FH")); come andresti a determinare se si tratta di un handle di lettura o scrittura? L'interfaccia non può essere estesa per passare queste informazioni (sto ignorando close per aggiungere chiamate a flush e sync prima della chiusura effettiva).

Attualmente sto cercando di flush e sync il filehandle e ignorando l'errore "Invalid argument" (che è quello che ottengo quando tentare di flush o sync un filehandle lettura):

eval { $fh->flush; 1 } or do { 
     #this seems to exclude flushes on read handles 
     unless ($! =~ /Invalid argument/) { 
       croak "could not flush $fh: $!"; 
     } 
}; 

eval { $fh->sync; 1 } or do { 
     #this seems to exclude syncs on read handles 
     unless ($! =~ /Invalid argument/) { 
       croak "could not sync $fh: $!"; 
     } 
}; 

Answer 1

Dai un'occhiata alla fcntl opzioni. Forse F_GETFL con O_ACCMODE.

Edit: ho fatto un po 'googling e giocando durante il pranzo ed ecco alcune probabilmente il codice non portabile ma funziona per la mia macchina Linux, e probabilmente qualsiasi sistema Posix (forse anche Cygwin, chi lo sa?) . uscita

use strict; 
use Fcntl; 
use IO::File; 

my $file; 
my %modes = (0 => 'Read only', 1 => 'Write only', 2 => 'Read/Write'); 

sub open_type { 
    my $fh = shift; 
    my $mode = fcntl($fh, F_GETFL, 0); 
    print "File is: " . $modes{$mode & 3} . "\n"; 
} 

print "out\n"; 
$file = new IO::File(); 
$file->open('> /tmp/out'); 
open_type($file); 

print "\n"; 

print "in\n"; 
$file = new IO::File(); 
$file->open('< /etc/passwd'); 
open_type($file); 

print "\n"; 

print "both\n"; 
$file = new IO::File(); 
$file->open('+< /tmp/out'); 
open_type($file); 

Esempio:

$ perl test.pl 
out 
File is: Write only 

in 
File is: Read only 

both 
File is: Read/Write