我怎样才能使用__DATA__两次？

Question

我该怎么用__DATA__两次？

#!/usr/local/bin/perl
use warnings;
use 5.012;

while ( <DATA> ) {
    print;
}

while ( <DATA> ) {
    chomp if $. == 1;
    print scalar reverse;
    print "\n" if eof;
}

__DATA__
one
two
three
four
five
six

Answer 1

要使用DATA文件句柄两次,您需要回放它.棘手的一点是,如果你这样做seek(DATA, 0, 0),它将被定位到第一个源线,而不是之后的线__DATA__.因此,您需要先保存位置:

my $data_start = tell DATA; # save the position
print while (<DATA>);
seek DATA, $data_start, 0;  # reposition the filehandle right past __DATA__
print while (<DATA>);

也可以看看:

• tell
• seek

Answer 2

您可以使用数据::手柄模块做tell()ing和seek()荷兰国际集团为你在幕后.(虽然我相信如果你有Perl 5.10或更高版本,你可以DUP的DATA文件句柄,而不是共享的原始DATA文件句柄,并寻求来回在里面.)