ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anton Zykov                          2:5066/40      20 Nov 2000  12:45:46
 To : All
 Subject : поскажите
 -------------------------------------------------------------------------------- 
 

 
     Господа, помогите, пожалуйста. Это моя первая программа на перле.
 
     Проблема в том, что после снятия указателя из массива (строка, помеченная
 ###) он оказывется закрытым. Как такие вещи решаются?
 
 ===
 sub getConfigString {
   while ($config) {
     if (eof()) {
       close $config;
       $config = pop @configs;  ###
       next;
     }
     chomp;
     $_ =~ s/#.*$//;
     last if (!grep {s/Include\s+//i} $_);
     push (@configs, $config);
     close $config;
     open($config, "< $_") or die "Cannot open config file.";
   };
   return $_;
 }
 
 $config = gensym;
 @configs = ();
 for (1..10) {
   print &getConfigString . "\n";
 }
 ===
 Ave,
 Anton
 --- GoldED+/W32 1.1.4.7
  * Origin: Stop.Listening.the.Music.Try.to.Feel.It. (2:5066/40)
 
 

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

Тема:    Автор:    Дата:    поскажите   Anton Zykov   20 Nov 2000 12:45:46   Re: поскажите   Ivan Frolcov   20 Nov 2000 13:38:29   поскажите   Anton Zykov   20 Nov 2000 16:02:20   поскажите   Ivan Frolcov   20 Nov 2000 17:21:10   поскажите   Anton Zykov   20 Nov 2000 20:31:52   поскажите   Anton Zykov   20 Nov 2000 16:01:02