Perl spew is nice. ;-) I was originally playing around with these:
perl -peek filename
perl -peer filename
but I settled on the polite version.
I think that the best example of a Perl program without a program is the following snippet by Abigail which strips blank lines from a file:
perl -li -00pe0 filename
The following does nothing at all:
perl -alien -sex -Fiend
Perhaps I could expand this into a poem. KM would it qualify?
Update: My final effort in the useless non-use of cat competition:
perl -peruse filename
John.
--
| [reply]
[d/l]
[select] |
Perhaps I could expand this into a poem. KM would it qualify?
Sure. However, this may count as using the perl interpreter in 'poetry mode', but if it isn't poetic, then it doesn't really count as a poem :) If it came down to an entry in the Poetry Contest, like the one above, I would like that it works, but would fail the -w and strict tests. So, unless it was very clever, it would be rejected. Still fun, nonetheless :)
I would like things (slightly) clever like:
perl -alien -sex -Fiend 'do { my $elf; } or die "dirty alien"';
Cheers,
KM | [reply]
[d/l] |
Also works for: perl -spew filename
This might be a fun way to amaze those people looking
over my shoulder while I work...
Update: And also: perl -saneprint filename
buckaduck | [reply]
[d/l]
[select] |
Other interesting ones:
-pedantic
-pelvis
-plenitude
-plaTeau
-peTunia
-pee
I'm sure someone with a good anagram engine could come up with better.
-QM
| [reply] |