#include <hallo.h>
Janto Trappe wrote on Thu Apr 11, 2002 um 05:17:24PM:
> #!/usr/bin/perl
> $s=$ENV{"HOME"}."/.sigs";open(S,"$s")||die;$p[0]=0;while(<S>
> ){$p[$#p+1]=tell if/^$/;}seek(S,$p[int rand($#p+.9999)],'see
> k_set')||die;while(<S>){last if/^$/;$z.=$_;}close S;print$z;
Eine andere Version... die Signaturen sind durch -- getrennt, das Skript
fork't sich und läuft im Hintergrund.
Sehr simpel kann man auch fortunes dafür nehmen:
mkfifo .signature
(while fortunes > .signature; do sleep 1; done) &
Gruss/Regards,
Eduard.
--
>Actually, Microsoft is sort of a mixture between the Borg and the Ferengi.
Das stimmt so nicht - die Borg wissen wenigstens, wie ein Netzwerk
auszusehen hat.
Attachment:
pgp5rqchJKvWu.pgp
Description: PGP signature