[Moscow.pm] DATA и quine
Nikolay Mishin
mi на ya.ru
Пт Окт 21 01:17:31 PDT 2011
Да , хорошая штука 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
Подробная информация о списке рассылки Moscow-pm