ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       24 Mar 2003  12:27:23
 To : Mikhail Polykovsky
 Subject : Re: eval
 -------------------------------------------------------------------------------- 
 

 MP> $module = "My::Functions::$module";
 MP> eval {
 MP>      use $module ($sub);
 MP>      #use $module тоже не работает
 MP>      $module::our_var1 = $var1;
 MP>      $module::our_var2 = $var2;
 MP>      $out .= &{$sub}($var3);  # если вызывать из ранее подключенного
 MP>                               #       модуля, эта строка работает
 MP> };
 
 MP> Вываливается по syntax error в строке с use. Как правильно сделать?
 
 Попробуй так:
 
 $str = qq|
      use $module ($sub);
      #use $module тоже не работает
      \$${module}::our_var1 = \$var1;
      \$${module}::our_var2 = \$var2;
      \$out .= &${sub}(\$var3);  # если вызывать из ранее подключенного
                               #       модуля, эта строка работает
 |;
 
 eval $str; print $@;
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор