perl - __DATA__ を 2 回使用するにはどうすればよいですか?

Question

__DATA__どうすれば2回使えますか？

#!/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

ファイルハンドルを 2 回使用するには、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

Data::Handleモジュールを使用してtell()ing、seek()バックグラウンドで実行できます。(ただし、perl 5.10 以降を使用している場合は、元のファイル ハンドルを共有して前後にシークする代わりに、ファイル ハンドルを複製できると思います。)DATADATA