Re: [PERL] Hjælp til lille script

["Lars R. Clausen" <sslug@sslug>]

On Thu, 25 Feb 1999, Kim Schulz told this:

> hejsa
> Jeg er netop igang med at opsætte/sikre en række maskiner(selfølgelig
> alle med linux) der skal bruges til en skole.
> I den forbindelse skal jeg bruge et lille script der kan ordne følgende:
> 
> scriptet skal hvert minut åbne en fil, læse den linie for linie, og så
> skrive alle de linier der ikke indeholder ordet XXX (hvor XXX er et ord
> der gives når man kører scriptet første gang: "perl script ord") til en
> ny fil.
> Kan dette lade sig gøre??? Kan man evt. lave et lille tjeck der
> automatisk sender den nye fil til en mailadresse, når den er en bestemt
> størrelse(evt. ved 10-15 linier)??
> Håber der er nogen der kan hjælpe mig med dette, da PERL ikke er min
> stærke side!

Det er overkill at bruge Perl til det.  Put blot denne linie i en passende
crontab:

* * * * * grep -v XXX FIL > NYFIL; if [ `wc -l <NYFIL` -ge 10 ]; then mail PERSON <NYFIL; fi

Det skulle gøre det, og formentlig være mindre belastende end at starte
Perl hvert minut.

-Lars

-- 
Lars R. Clausen (sslug@sslug)
A *real* smart bomb would call in sick, perhaps move to another country,
changing its name in the process, open a beach bar maybe and live out its
days in safe anonymity.                          -- Barry O'Neill in rhod