perl – 如何使用DATA两次？

发布时间：2020-12-15 21:23:17 所属栏目：大数据来源：网络整理

导读：如何使用__DATA__两次？ #!/usr/local/bin/perluse warnings;use 5.012;while ( DATA ) { print;}while ( DATA ) { chomp if $. == 1; print scalar reverse; print "n" if eof;} __DATA__onetwothreefourfivesix 解决方法要使用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

perl – 如何使用__DATA__两次？

解决方法

perl – 如何使用DATA两次？