Hallo Udo, * Udo Mueller <info@cs-ol.de> [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
Attachment:
pgp6pln6ejyML.pgp
Description: PGP signature