|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Smolin 2:5020/949 16 Sep 2002 15:44:36
To : Alex Dedul
Subject : __DATA__ blocks & use
--------------------------------------------------------------------------------
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 ===
Так - подойдет?
Take care.
--- skanking to the rhythm of the music by my side
* Origin: Paint myself in blue and red and black and gray (2:5020/949)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
