Как я могу использовать __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

Вы можете использовать модуль Data :: Handle , чтобы сделать tell()ing и seek() ing для вас за кулисами.(Хотя я полагаю, что если у вас есть Perl 5.10 или более поздняя версия, вы можете dup дескриптор файла DATA вместо того, чтобы делиться оригинальным дескриптором файла DATA и искать в нем взад-вперед.)

Answer 3

Честно говоря, самое простое решение - прочитать DATA один раз и сохранить его в массиве или переменной.

my @data;
while(<DATA>){
  push @data, $_;
}