Re: Great Perl Literature
by japhy (Canon) on Oct 03, 2001 at 19:52 UTC
|
What an excellent opportunity...
# famous much?
$fellowship{ring};
($tower) x 2;
$val = system 'king'; # petdance has nothing on me ;)
# I'm thinking of OSC books here
END { game() }
$SIG{CHLD} = \&talk;
# some short stories, all by the same author
HEIM: { ... }; # perhaps this is a strech...
pop @body;
my Bottle $imp;
# and some other books...
@days = map permute("world"), 1 .. 80;
$phasers = 'stun';
int main () { $foo = 10; } # one of my favorites...
*me = *robot;
("perl.c", "perl.h"); # another tricky one
Answers are obligatory, I suppose...
Fellowship of the Ring
The Two Towers
Return of the King
Ender's Game
Speaker for the Dead
Markheim
The Body-Snatcher
The Bottle-Imp
Around the World in 80 Days
Set Phasers to Stun
Stranger in a Strange Land (you knew that, though...)
I, Robot
Foundation
|
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??; | [reply] [Watch: Dir/Any] [d/l] |
Re: Great Perl Literature
by Masem (Monsignor) on Oct 03, 2001 at 19:53 UTC
|
sub native { return; }
/Canterbury(.*)/g; # yea, this is bad...
&date( "2001 Jul 21 18:00:00" )->{ dream };
unlink( "~usher/house" ); # This is even worse...
print "<FONT COLOR=\"red\">A</FONT>\n";
$moheicans[-1];
$list[-1]->{game};
(And spoilers, I hope...)
Return of the Native
Canterbury Tales
A Midsummernight's Dream
The Fall of the House of Usher
The Scarlet Letter
Last of the Moheicans
Ender's Game
-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com
||
"You've left the lens cap of your mind on again, Pinky" - The Brain
It's not what you know, but knowing how to find it if you don't know that's important
| [reply] [Watch: Dir/Any] [d/l] |
|
A little bit nitpicking: Isn't midsummer day on June the 21st?
| [reply] [Watch: Dir/Any] |
|
I've always been under the impression that June 21 (while being the Summer Solsist) was concerned as the first day of summer by most calenders. July is definely in the 'middle' of summer so it was a better choice here.
-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com
||
"You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important
| [reply] [Watch: Dir/Any] |
|
Re: Great Perl Literature
by jynx (Priest) on Oct 03, 2001 at 22:02 UTC
|
# this one's a bit contrived...
for($recent..$later) {
$live .= $interesting * $_;
}
do {
$dreams =~ s/Terror(?:Death)//
} while $dreams;
# as is this one...
$alien = `touch`;
for (0..5) {
push@time,scalar(localtime);
sleep 1;
}
print $_,$/ for @time;
sub human {
-t $man;
}
while (!$home) {
if (fork) {
$home++;
} else {
$home--;
}
}
(spoilers):
Interesting Times (Terry Pratchett)
The Dream Cycle: Dreams of Terror and Death (H.P.Lovecraft)
Contact (Carl Sagan)
A brief History of Time (Stephen Hawking)
Terminal Man (Michael Chrichton)
The Odyssey (Homer)
|
jynx
Update: Restructured some of the code to something remotely worthwhile... | [reply] [Watch: Dir/Any] [d/l] |
Re: Great Perl Literature
by danger (Priest) on Oct 04, 2001 at 00:07 UTC
|
Not all great literature, just a few fun ones that popped into
my head while scanning my shelves:
# fiction:
eval {die "22\n"};
$@ == 22? print "Gotcha":die $@;
#!/usr/bin/perl
# ... rest of code
@years = (undef) x 100;
use Acme::Bleach;
use Tie::Cycle;
tie my $foucault, 'Tie::Cycle', [-1,1];
# non-fiction:
use Devel::Peek;
# ...
print Dump($gray);
$cosmic->();
use Carp;
sub species {confess()}
$delta = (localtime)[2]-(gmtime)[2];
print abs($delta * 15), $delta>0?'E':'W';
$prehistory =~ /$patterns/
spoilers:
# fiction:
Catch 22 (Joseph Heller)
The Unconsoled (Kazuo Ishiguro)
[no '-w' no 'use strict' == no sympathy]
One hundred years of solitude (Gabrial Garcia Marquez)
Out of Sight (Elmore Leonard)
Foucault's Pendulum (Umberto Ecco);
# non-fiction:
Gray's Anatomy (Henry Gray)
The Cosmic Code (Heinz Pagels)
Origin of Species (Charles Darwin)
Longitude (Dava Sobel)
[it's the general idea, not the accuracy that matters]
Patterns in Prehistory (Robert Wenke)
:-)
| [reply] [Watch: Dir/Any] [d/l] [select] |
Re: Great Perl Literature
by John M. Dlugosz (Monsignor) on Oct 04, 2001 at 00:23 UTC
|
| [reply] [Watch: Dir/Any] [d/l] |
Re: Great Perl Literature
by frag (Hermit) on Oct 04, 2001 at 01:38 UTC
|
Let's see what books come to mind... The other day, looking for something to take my mind off current events, I read the $Potter[0] book. It wasn't too bad, and now I'm looking forward to the movie. I may pick up $Potter[1] next, or else try out Daniel Pinkwater's @novels[0..4] .
Last year, I re-read
scalar(grep {$_->isa('Sheep::Electric')} Android::dream);
It's been years since I first read it, and it held
up better than I remembered.
I've never read
no strict 'subs';
lunch;
, and I tried reading -s $machine, but I just couldn't get into it. If I read any of his work, I think I'd be more interested in his later work, like maybe
grep {$_->{longitude} =~ /W/} @lands.
Somewhere I've got a copy of
use Storable;
my @men =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
grep { $_->[1] > (55*365) }
map { [$_, -C] }
glob("*.man");
die "Error: Nemo senex est" unless @men;
my $guy = retrieve($men[0]);
use Inline C => <<'END_C';
int fish() {
return 1;
}
END_C
$guy && fish;
that I've been meaning to read, along with
$gerund = $lot[50-2]->can("cry");
(The first Array Potter book, that is, plus "5 Novels", "Do Androids Dream of Electric Sheep?", "The Naked Lunch", "The Soft Machine", "The Western Lands", "The Old[est] Man and the [Inlined] Sea", and "The Crying of Lot 49". And yeah, I am kind of grep-happy; it's just a phase.)
(And I removed Catch-22; I should've read the other posts more carefully...)
Update: 'Damn'x3; --$self for botching an array slice.
-- Frag. | [reply] [Watch: Dir/Any] [d/l] [select] |
Re: Great Perl Literature
by MZSanford (Curate) on Oct 04, 2001 at 14:43 UTC
|
Some Great, some not so great ...
$man =~ tr/man/bug/;
$machine = \"ghost";
if (0) {
(time() < $^T) && die;
}
require 6;
no strict;
print $$^X;
Metamorphosis |
Ghost in the machine |
Never too young to die |
Great Expectations ;) |
Crime and punishment |
| [reply] [Watch: Dir/Any] [d/l] |
Re: Great Perl Literature
by EvanK (Chaplain) on Oct 05, 2001 at 09:31 UTC
|
# figure this one out
sqrt(3936256);
length("so") && carp("thank you");
$house = "#000000";
# /me gets shot
do("ne");
1984
So Long & Thanks For All The Fish
Black House
Dune
______________________________________________
RIP
Douglas Noel Adams
1952 - 2001
| [reply] [Watch: Dir/Any] [d/l] |
Re: Great Perl Literature
by studking (Initiate) on Nov 03, 2001 at 00:45 UTC
|
petdance, you are the MAN (or WOMAN or IT, as the case may be - not sure) | [reply] [Watch: Dir/Any] |
Re: Great Perl Literature
by Anonymous Monk on Feb 03, 2009 at 02:52 UTC
|
What fun! Thankyou Andy, you've just improved a shite day significantly. Thanks also to Selected Best Nodes for giving me a great vintage node. (This is missingthepoint wasting time instead of working... caffeine deprivation)
My answers, before looking or reading the rest of the thread...
| [reply] [Watch: Dir/Any] |