[filters.git] / jibberish

#!/usr/bin/perl
# jibberish -- run filters in random order

$ENV{PATH}.=":/usr/games";

@all= qw(
eleet
b1ff
chef
jethro
upside-down
kraut
cockney
jive
pirate
nyc
ken
ky00te
rasterman
newspeak
studly
censor
spammer
);

# shuffle order
srand;
for (0..$#all) {
	my $n= @all*rand;
	my $was= $all[$_];
	$all[$_]= $all[$n];
	$all[$n]= $was;
}

# start the pipe...
my $pipe= join '|', @all[0..3 + rand(5)];
open FILTER, "$pipe|"
	or die "Never mind...\n";

# display the results
while (<FILTER>) {
	print $_
}

# This could be optimized: take the last program off the pipeline,
# open the pipeline as standard input, then exec that last program.
#
# But you have to ask yourself: how important is it to optimize
# the generation of jibberish?
Commit	Line	Data
7e3afbba	1	#!/usr/bin/perl
e99ec255	2	# jibberish -- run filters in random order
7e3afbba	3
	4	$ENV{PATH}.=":/usr/games";
	5
	6	@all= qw(
dc17484a	7	eleet
	8	b1ff
	9	chef
	10	jethro
	11	upside-down
	12	kraut
	13	cockney
7e3afbba	14	jive
32a7bed8	15	pirate
7e3afbba	16	nyc
bc19f2cf	17	ken
bc19f2cf	18	ky00te
0652168f	19	rasterman
7e3afbba	20	newspeak
9edc0e61	21	studly
e99ec255	22	censor
e99ec255	23	spammer
7e3afbba	24	);
	25
	26	# shuffle order
	27	srand;
	28	for (0..$#all) {
	29	my $n= @all*rand;
	30	my $was= $all[$_];
	31	$all[$_]= $all[$n];
	32	$all[$n]= $was;
	33	}
	34
	35	# start the pipe...
e99ec255	36	my $pipe= join '\|', @all[0..3 + rand(5)];
7e3afbba	37	open FILTER, "$pipe\|"
e99ec255	38	or die "Never mind...\n";
7e3afbba	39
	40	# display the results
	41	while (<FILTER>) {
	42	print $_
	43	}
	44
	45	# This could be optimized: take the last program off the pipeline,
	46	# open the pipeline as standard input, then exec that last program.
	47	#
	48	# But you have to ask yourself: how important is it to optimize
	49	# the generation of jibberish?