Perl IO::All:如何读取ARGV和数据?
如何创建一个对象来读取文件句柄ARGV和数据Perl IO::All:如何读取ARGV和数据?,perl,Perl,如何创建一个对象来读取文件句柄ARGV和数据 use strict; use warnings; use 5.010_000; use IO::All; # none of these work... my $io = io->handle(DATA); my $io = io->handle(\*DATA); my $f = \*DATA; my $io = io->handle($f); my $io = io->handle({$f}); my $io = io-
use strict;
use warnings;
use 5.010_000;
use IO::All;
# none of these work...
my $io = io->handle(DATA);
my $io = io->handle(\*DATA);
my $f = \*DATA;
my $io = io->handle($f);
my $io = io->handle({$f});
my $io = io->handle({DATA});
my $io = io->handle({\*DATA});
say $io->slurp();
__DATA__
FOO
BAR
QUUX
看起来像只虫子。传递句柄似乎不起作用,即使文档说它应该起作用。下面的示例消除了
数据的可能复杂性
use strict;
use warnings;
use IO::All;
open my $fh, "<", "/etc/passwd" or die $!;
# Either of these should work according to the docs.
# my $io = IO::All->new($fh);
my $io = io->file->handle($fh);
print $io->all;
使用严格;
使用警告;
使用IO::All;
打开我的$fh,“我花了大约一个小时浏览URL和Perl手册,但找不到任何有用的东西。