当前位置:  开发笔记 > 编程语言 > 正文

如何确定Perl文件句柄是读取还是写入句柄?

如何解决《如何确定Perl文件句柄是读取还是写入句柄?》经验,为你挑选了1个好方法。



1> JasonSmith..:

看看fcntl选项.也许F_GETFLO_ACCMODE.

编辑:我做了一些谷歌搜索和午餐玩,这里有一些非可移植的代码,但它适用于我的Linux盒子,可能是任何Posix系统(甚至可能是Cygwin,谁知道?).

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

示例输出:

$ perl test.pl 
out
File is: Write only

in
File is: Read only

both
File is: Read / Write

推荐阅读
谢谢巷议
这个屌丝很懒,什么也没留下!
DevBox开发工具箱 | 专业的在线开发工具网站    京公网安备 11010802040832号  |  京ICP备19059560号-6
Copyright © 1998 - 2020 DevBox.CN. All Rights Reserved devBox.cn 开发工具箱 版权所有