|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Roman Kirjanov 2:5020/400 19 Apr 2003 15:16:37 To : Alexey Mahotkin Subject : Re: Текущий путь. -------------------------------------------------------------------------------- Hello, Alexey! You wrote to "Roman Kirjanov" on Sat, 19 Apr 2003 09:47:19 +0000 (UTC): ??>>>>>> "RK" == Roman Kirjanov <meister@sinn.ru> writes: RK>> Траблы из-за этого куска кода: chdir($path); opendir(my $dir, RK>> '.'); foreach (readdir($dir)) { if (time() - (stat())[9] > 60 && RK>> -f) {unlink();} } closedir($dir); RK>> Под виндовсом stat работает только для текущего каталога, а писать RK>> потом chdir('..'); - имхо, некузяво. AM> Вообще-то stat(File::Spec->catfile($dir, $_)) Это мне еще один модуль цеплять ? Я и так их три нацеплял. AM> и будет работать в любом каталоге. И unlink тоже (почему ты, AM> кстати, совсем не проверяешь ошибок? Я думаю, что кучу багов ты AM> таким образом вынужден искать на глаз, тогда как тривиальным AM> ... or die "Can't do something: $!" AM> тебя будут тыкать носом сразу в нужное место. И что мне теперь с этими ошибками делать ? Чтоб чуваки в чате увидели "Error, engine doesn't kill old session" ? Слишком много знать будут. Я перед удалением и так проверил - файл, а раз не удалился - найду в каталоге старые файлы и буду разбираться. Может тогда лог сделаю. И die мне не надо. AM> Опять работаешь под рутом? ;) su nobody А разницы то ? Я ж один на этом компе, он не в сети... Про модули и файлы. Много... это сколько ? Пять модулей, это много ? 150 строк в текстовом файле для тривиального парсинга, это много ? With best regards, Meister. [ http://www.sinn.ru/~meister/ ] --- ifmail v.2.15dev4 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577ce00fc7d.html, оценка из 5, голосов 10
|