Re: [PERL] Lock filer

[Kim Jensen <sslug@sslug>]

On Wednesday 13 November 2002 14:53, you wrote:
> Et perl-script kigger en mappe igennem efter filer hvert 5. minut. I denne
> mappe kan f.eks. være 230 text-filer som hver især skal behandles og
> konverteres til PostScript format. Jeg har allerede lavet det script som
> behandler text-filerne (lad os kalde det convert.pl), men det belaster
> serveren ret kraftigt, hvis der startes 230 eksemplarer af scriptet på én
> gang.
>
> For at serveren ikke overbelastes, må der max. startes 5-10 eksemplarer af
> convert.pl, og det er her jeg er løbet ind i en mur. Min første tanke var
> lockfiler, men da min erfaring med Perl ligger på et meget lille sted,
> ønsker jeg lidt hjælp til dette, eller eventuelt et alternativ.
>
Det simpleste ville være at lave en touch på en lock fil når dit script læser 
filerne ind, og derefter slette denne når du er færdig. Lav en ændring i dit 
script, således at det starter med at kigge efter en lock fil, hvis der er 
en, så kør ellers vent igen.

Dette vil dog kun tillade 1 kørsel af programmet, hvis dette er ok, så er det 
en meget nem måde at gøre det, ellers kan du lave en hovedrutine der forker 
nogle processer igang og holder en liste over antallet af aktive forks.

/Kim