X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=jibberish;fp=jibberish;h=b4f219d799a6a61a32fe48d544cc6759bded3a2e;hb=e99ec25514ebceb45c215fba14319769d34904db;hp=d5197b82562549e6bbe849a4dd4f94470b633240;hpb=fa3fd7794f5af996622b6231d1f01e33c8ec5d35;p=filters.git diff --git a/jibberish b/jibberish index d5197b8..b4f219d 100644 --- a/jibberish +++ b/jibberish @@ -1,5 +1,5 @@ #!/usr/bin/perl -# jibberish -- run all filters in random order +# jibberish -- run filters in random order $ENV{PATH}.=":/usr/games"; @@ -18,6 +18,8 @@ ky00te rasterman newspeak studly +censor +spammer ); # shuffle order @@ -30,9 +32,9 @@ for (0..$#all) { } # start the pipe... -my $pipe= join '|', @all; +my $pipe= join '|', @all[0..3 + rand(5)]; open FILTER, "$pipe|" - or die ""Never mind...\n";; + or die "Never mind...\n"; # display the results while () {