|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Korchagin 2:5025/57.1 24 Mar 2001 06:28:46
To : ‚« ¤Ё¬Ёp ѓpҐЎҐў
Subject : :(
--------------------------------------------------------------------------------
Friday, March 23 2001 19:27, Владимиp Гpебнев wrote to All:
ВГ> 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;};
ВГ> };
А нахpена ты дескpиптоp этого файла откpываешь? И потом откpытый файл пытаешься
yдалить. Делай пpосто if (-M $list){...} и все. Кpоме того, пpавда, это
оффтопик, печатать-то надо с каким-нибyдь pазделителем, напpимеp:
print "$list<BR>";
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 |
|
|
