|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 26 Mar 2001 14:24:39
To : ‚« ¤Ё¬Ёp ѓpҐЎҐў
Subject : Re: :(
--------------------------------------------------------------------------------
Здравствуй, Владимиp Гpебнев.
В твоём письме от Fri, 23 Mar 2001 19:27:50 +0300 написано:
ВГ> Hе пойму в чем дело? 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;};
ВГ> };
ВГ> win98, apache, perl 5.004
Скрипт из разряда "сделать 4 ошибки в слове 'ещё'"... Что ты имел в виду?
Удалить файлы старше дня?
unlink grep(-M $_ >= 1, glob("*.txt"));
Хинт: возвращаемое значение -M - не целое. И >0 фактически означает "все
существующие":
==== 8< [!perl -le 'print -M ".followup"'] ====
0.00268518518518518
==== >8 [!perl -le 'print -M ".followup"'] ====
Это файл этого письма...
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- ifmail v.2.15dev5
* Origin: NTV Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
:( |
‚« ¤Ё¬Ё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 |
|
|
