sslug-teknik team mailing list archive

[Kim Schulz <kim@xxxxxxxxx>]

On Thu, 09 Jan 2003 10:59:03 +0100
Jesper Hess Nielsen <jesper@xxxxxxxxxx> wrote:
> Hej folkens
> 
> Jeg har siddet og søgt lidt rundt på nettet men uden egentlig at finde
> 
> noget særlig brugbart. Jeg har brug for et program der kan indlæse en 
> tekstfil der indeholder en kommentar pr. linie, og så hvert minut
> (eller et eller andet tidsrum) smide en tilfældig linie ud på stdout.
> Det skal bruges til at udskifte en kommentar på et webcam billede. Er
> der nogen der kender et program der kunne bruges? Eller skal jeg selv
> i gang med at kode? :-)
> 
> /Jesper

du kan jo smide følgende i cron 
perl -e '@x = <>; print $x[int(rand(@x))];' fil-med-linjer


alternativt kan du bruge noget ala:
while (1);do
	perl -e '@x = <>; print $x[int(rand(@x))];' fil;
	sleep(60);
done;


eller 
#!/bin/perl
open(FILEH,"<$ARGV[0]");
@lines=<FILEH>;
while(1){
        print $lines[int(rand(@lines))];
        sleep(60);
}



håber det hjalp lidt :o) 

MVH
Kim Schulz