|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Andrey Sapozhnikov 2:5020/400 16 Sep 2002 18:54:27 To : Dmitry Smolin Subject : Re: __DATA__ blocks & use --------------------------------------------------------------------------------
Dmitry Smolin wrote:
> Hello there, Alex.
>
> Once, 16 Sep 2002 12:38, Alex Dedul wrote to Dmitry Smolin:
>
> AD>>> Знаю что напрямую это не сделаешь, потому как use выполняется on
> AD>>> compile time, в то время как ::DATA мы имеем на стадии выполнения.
> DS>> И что с того?
> AD> А то что надо это все сделать без
> DS>> sub test {
> DS>> Mod::test();
>
> Так бы и написал (словами, в смысле, а не только в коде).
>
> AD> Если ты заметил, то в __DATA__ у меня будет код, который я хотел
> AD> бы выполнить в самом модуле без дополнительной писанины в главном
> AD> скрипте.
>
> Проблема только в отсутствии писанины в главном скрипте? Хм.
>
> === Cut ===
> #!/usr/bin/perl -w
>
> use strict;
>
> use Mod;
>
> __DATA__
> print "Ok";
> === Cut ===
>
> === Cut ===
> package Mod;
>
> use strict;
>
> END {
> eval <main::DATA>;
> }
>
> 1;
> === Cut ===
>
> Так - подойдет?
Скорее CHECK { ... } нежели END { ... }
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/52847e9e778e.html, оценка из 5, голосов 10
|