[Moscow.pm] DATA и quine

[Nikolay Mishin]

Да , хорошая штука http://www.nyx.net/~gthompso/self_perl.txt
особенно open+0;print<0> 

21.10.2011, 12:09, "Maxim Vuets" <maxim.vuets на gmail.com>:
> Привет.
>
> Нужно было несколько раз прочитать DATA (т.е. кусок после __DATA__).
> Сделал "seek DATA, 0, 0" и получил весь исходник.
> Оказывается, всё гениальное просто: дескриптор DATA представляет файл,
> в котором объявлена секция __DATA__, со смещением на оную.
>
> Так получаем куин (quine, программа, которая печатает свой исходный текст):
>
>     seek DATA, 0, 0;
>     print do {local $/; <DATA>};
>     __DATA__
>
> --
> Максим Вуец
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin