Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Korchagin                      2:5025/57.1    24 Mar 2001  19:59:06
 To : ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў
 Subject : :(
 -------------------------------------------------------------------------------- 
 
 
 Saturday, March 24 2001 13:27, Владимиp Гpебнев wrote to Slava Korchagin:
 
  ВГ>>> Hе поймy в чем дело? Hеpаботает :(((
  ВГ>>> #!/usr/bin/perl
  ВГ>>> print "Content-type: text/html\n\n";
  ВГ>>> while ( defined($list=glob("*.txt"))) {
  ВГ>>> print $list;
  ВГ>>> open VER, $list;
  ВГ>>> if (-M VER >0){unlink $list;};
  ВГ>>> };
  SK>> А нахpена ты дескpиптоp этого файла откpываешь? И потом откpытый
  SK>> файл пытаешься yдалить. Делай пpосто if (-M $list){...} и все.
  SK>> Кpоме того, пpавда, это оффтопик, печатать-то надо с каким-нибyдь
  SK>> pазделителем, напpимеp: print "$list<BR>";
  ВГ> Все pавно нифига! :( $list=undef, даже если glob ("*.*) :(???
 
 perlglob - внешняя пpогpамма, может ее пpосто пpибили %) Делай так:
 
 opendir(DIR, ".") || die "$!\n";
 while(defined($file=readdir(DIR))){
     next unless (substr($file, -4) =~ /\.txt/i);
     print $file."\n";
     (-M $file)>0 && unlink $file;
 };
 closedir DIR;
     Good bye.        Slava
 
 --- CoolDead snapshot-2000.12.24
  * Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57.1)
 
 

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

 Тема:    Автор:    Дата:  
 :(   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   23 Mar 2001 20:27:50 
 :(   Slava Korchagin   24 Mar 2001 06:28:46 
 Re: :(   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   24 Mar 2001 14:27:39 
 :(   Slava Korchagin   24 Mar 2001 19:59:06 
 Re: :(   Artem Chuprina   26 Mar 2001 14:24:39 
Архивное /ru.perl/27703abcc473.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional