|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sadretdinova Nelly 2:5020/400 25 Dec 2002 10:26:40
To : Konstantin Tokar
Subject : Re: Помогите с демона ми, плиз :)
--------------------------------------------------------------------------------
KT> наверно выглядеть примерно так:
KT> #!perl -w
KT> use strict;
KT> use File::Slurp;
KT> sub do_make {
KT> my $file = shift;
KT> print STDOUT "do_make($file)\n";
KT> return 1;
KT> }
KT> my $dirname = '/tmp/readdir.daemon';
KT> while(1){
KT> my @files = read_dir($dirname);
KT> foreach my $entry (@files){
KT> next unless -f "$dirname/$entry";
KT> eval { do_make( "$dirname/$entry"
KT> );};
KT> warn $@ if $@;
KT> unlink "$dirname/$entry";
KT> }
KT> sleep(1);
KT> }
Большое спасибо, Константин!
У меня все примерно так и выглядело, за исключением строчки sleep(1);
Добавила ее и все нормально заработало.
Hепонятно только, почему без sleep вываливается?
--
С уважением, Hелли.
*** Hа конкурсе по женской логике с большим отрывом победил генератор
случайных чисел.
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Помогите с демона ми, плиз :)