#!/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
Ответ 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>);
Вы можете использовать Data:: Handle для выполнения tell()ing и seek() для вас за кулисами. (Хотя я считаю, что если у вас есть perl 5.10 или новее, dup дескриптор файла DATA вместо совместного использования дескриптора файла DATA и ища туда и обратно.)
Ответ 3
Честно говоря, самое простое решение - прочитать DATA один раз и спрятать его в массив или переменную.