|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 23 Dec 2001 15:36:33
To : Andrey Sapozhnikov
Subject : Re: <DATA> + eval
--------------------------------------------------------------------------------
Привет!
*** 21 декабря Andrey Sapozhnikov пишет Anatoly Moskovsky:
AS> Я так понял, данные надо передавать в код виде дескриптора DATA, а
AS> изначально мы имеем отдельно код и отдельно данные? Тогда делаем так:
AS>
AS> use IO::Scalar;
AS>
AS> my $code = "print for (<DATA>);\n";
AS> my $data = "1\n2\n3\n4\n";
AS>
AS> {
AS> local *DATA;
AS> tie *DATA, 'IO::Scalar', \$data;
AS> eval $code;
AS> }
AS>
Да - это оно.
Спасибо!
Бай
---------------------------------------------------------------
При написании этого сообщения было израсходовано 1.23 кКал
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
