Hallo Udo, * Udo Mueller <[EMAIL PROTECTED]> [11-04-02 14:22]:
> P.S: Ich m�chte einen Sigrotator haben, hat da jemand was f�r mich?
#!/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;
Die Signaturen in .sigs muessen durch Leerzeilen getrennt sein.
Oder: apt-get install sigrot
Janto
--
Janto Trappe Germany /* rapelcgrq znvy cersreerq! */
GnuPG-Key: http://www.sylence.de/gpgkey.asc
Key ID: 0x8C53625F
Fingerprint: 35D7 8CC0 3DAC 90CD B26F B628 C3AC 1AC5 8C53 625F
msg05655/pgp00000.pgp
Description: PGP signature
