Nochmal für die, die gar nichts gecheckt haben: Ich hab euch noch ein kleines Tool zum anagramieren von Code geschrieben... Langsam reichts aber mal, wer jetzt nichts verstanden hat, sollte es lieber gleich lassen:
Code:
#!/usr/bin/perl -w
# Crap Anagramator
# www.katharsis.x2.to
use strict;
use List::Util qw(shuffle);
my $in = shift; # Input file
if (!$in) {
print "\nUsage: code-angrm.pl <file>\n";
exit;
}
open(F, "<$in") or die $!;
my $file = join('', <F>);
close(F);
my @anagr = split(/\n/,$file);
@anagr = shuffle(@anagr);
for (@anagr) {
print $_."\n";
}