linux-l: rot-156.pl (was: heise online: US-Exportlizenz fuer revolutionaeres Kryptoverfahren)

[Jens Dreger]

On Sat, Apr 01, 2000 at 08:59:05PM +0200, oliver at first.in-berlin.de wrote:
> US-Exportlizenz für revolutionäres Kryptoverfahren

Fuer's Skript-Archiv... (war jetzt eigentlich Perl erlaubt oder nich' ?)

--------------------8<------------------------------------------------------
#!/usr/bin/perl
# rot-156 (c) Jens Dreger
# usage: rot-156 [-d] <input >output
#
my $cmp = grep(/^-d/, at ARGV) ? sub { $b cmp $a } : sub { $a cmp $b };
undef $/; $_ = $file = <STDIN>; s/(\S+)/$w{$1}++/eg; @l=(sort $cmp (keys %w));
for(0 .. $#l) { $w{$l[$_]} = $l[($_+156)%@l]; } $file =~ s/(\S+)/$w{$1}/g;
print $file;
---------------------8<-----------------------------------------------------

Im uebrigen bin ich der Meinung, dass die April-Scherze der ct schon
besser waren und Juergen Kuri schon vor langer Zeit von der ct haette
gefeuert werden muessen. Das beste war noch das ROT-FL...

Gruss,

Jens

PS: Wie immer bin ich ueber jeden Vorschlag, der das Programm
verkuerzt, begeistert ;-)