Re: ВФЕФ

От Dmitry Ivanov (2:5023/24.3209) к Dmitry Ivanov

Здравствуйте, Dmitry.

Вы писали 4 февраля 2021 г., 7:24:41:

> Здравствуйте, All.

> Глупый вопрос про __DATA__

> Есть очень условный скрипт

> my $i;

> for $i ( 1 .. 3 ) {

>     while (<DATA>) {

>         print "$i+$_\n";

>     }

> }

> __DATA__

> 4

> 5

> 6

> так   вот   на   первой  итерации  ($i  =  1 DATA "заканчивается". Как

> начатьчитать ее сначала?

> Я   много  гуглил,  нагуглилЮ  что  специальный  файловый  дескриптор.

> Пробовал его закрывать close и через seek гонять. Hе получается.

> Подскажите, плз, что делать

Вопрос снимается

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>);

--

С уважением,

 Dmitry

--- InterSquish NNTP Server/FTN Gate

 * Origin: www.wfido.ru (2:5023/24.3209)

Ответы на это письмо:

From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку

From: Username
Или коротким

Re: __ВФЕФ__