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