ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Ashcheulov                  2:5030/214.25  01 Apr 2000  23:44:55
 To : All
 Subject : glob
 -------------------------------------------------------------------------------- 
 

 
 sub init_words # считываем файл
  {
  while(defined($filename=glob("*.sec")))
   {
    open(WORDSLIST,$filename) || die "Error 1 :  $!";
    while(defined($name=<WORDSLIST>))
     {
     chomp ($name);
     $word = <WORDSLIST>;
     chomp ($word);
     $words{$name}=$word;
     }
    close (WORDSLIST) || die "Error 2 :  $!";
    }
  }
  Почему когда пытаешься открыть все файлы по маске *.sec из них не получается
  ничего считать.При этом выдает по русски "Имя команды или файла указано
 неверно"
 
 ... Expected The UnExpected
 --- *GoldED/W32 3.0.0-dam9*
  * Origin: Одно сегодня стоит двух завтра. (FidoNet 2:5030/214.25)
 
 

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

Тема:    Автор:    Дата:    glob   Vladimir Ashcheulov   01 Apr 2000 23:44:55   glob   Sly Golovanov   02 Apr 2000 10:58:34   glob   Sly Golovanov   02 Apr 2000 16:21:32   Re: glob   Artem Chuprina   04 Apr 2000 16:17:47