Smoke and Glass


The stupid question is the question not asked
	PerlMonks

Smoke and Glass

by frankus (Priest)

on Jan 21, 2003 at 14:46 UTC ( [id://228691]=obfuscated: print w/replies, xml )

Need Help??

Not much deep Perl magicke in this one,
just few, now hackneyed tricks and one or
two things I didn't know before I started.

#!/usr/bin/perl
# Another "Just another Perl hacker"
seek DATA,$|,$|++;$_=((<DATA>)[++$|]
=~/"([^"]+)/,${$|});@_=/([^ ]+)/g;$;
while $|++!=$|;($\,$,,$_)=split( ('

Larry Wall -',

'3 chief virtues of a programmer:','
 Laziness, impatience and hubris',''

)[2,$|--,$^T%2]);print@_[1..s/i//g];
__END__
[download]

--

Brother Frankus.