Làm thế nào để xác định liệu một xử lý tập tin Perl là một xử lý đọc hoặc viết?

Question

Bạn được cung cấp một đối tượng IO::File hoặc typeglob (\*STDOUT hoặc Symbol::symbol_to_ref("main::FH")); làm thế nào bạn sẽ đi về xác định nếu nó là một xử lý đọc hoặc viết? Giao diện không thể mở rộng để chuyển thông tin này (tôi ghi đè close để thêm các cuộc gọi đến flush và sync trước khi đóng thực tế).

Hiện nay tôi đang cố gắng để flush và sync filehandle và bỏ qua những lỗi "Invalid argument" (đó là những gì tôi nhận được khi tôi cố gắng để flush hoặc sync một filehandle đọc):

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

Có một cái nhìn tại fcntl tùy chọn. Có thể F_GETFL với O_ACCMODE.

Edit: Tôi đã làm một chút googling và chơi trong bữa ăn trưa và đây là một số lẽ không cầm tay mã nhưng nó hoạt động cho hộp Linux của tôi, và có lẽ bất kỳ hệ thống Posix (thậm chí Cygwin, ai mà biết được?) . sản lượng

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); 

Ví dụ:

$ perl test.pl 
out 
File is: Write only 

in 
File is: Read only 

both 
File is: Read/Write