前端之家收集整理的这篇文章主要介绍了
perl – 如何使用__DATA__两次？，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
如何使用__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
要使用DATA
文件句柄两次，您需要后退它。棘手的位是，如果你寻求(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
原文链接：https://www.f2er.com/Perl/173257.html
