Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Great Perl Literature

by petdance (Parson)
on Oct 03, 2001 at 19:22 UTC ( [id://116477]=poem: print w/replies, xml ) Need Help??

You've had lunch at the Perl Diner, you listen to WPERL, and you've studied your Perl Geography, but do you read great Perl literature? I'm not talking about just the Camel book, but also those listed below.

If you've got other Perl books in your library, post 'em here.

scalar @monte_cristo; sub task { kill( SIGHUP, "mockingbird" ); } $_**(1/2); $_**(1/3); $_**(1/4); for ( @whom ) { toll( chr(7) ); } $nights[11]; sub king { return; } $here..$eternity undef $arms; if ( 1 ) { $postman->ring() for (1..2); } grep /Red October/, @_;
The answers are below. Highlight 'em to see:
The Count of Monte Cristo To Kill a Mockingbird Roots For Whom The Bell Tolls Twelfth Night Return Of The King From Here to Eternity A Farewell To Arms The Postman Always Rings Twice The Hunt For Red October

xoxo,
Andy
--
<megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

Replies are listed 'Best First'.
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:??;

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

      A little bit nitpicking:
      Isn't midsummer day on June the 21st?
        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

Re: Great Perl Literature
by jynx (Priest) on Oct 03, 2001 at 22:02 UTC

    A couple more:
    # 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...

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)

    :-)

Re: Great Perl Literature
by John M. Dlugosz (Monsignor) on Oct 04, 2001 at 00:23 UTC
    $nights[BN]= 'tales'

    Tales of Arabian Nights

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.

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
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

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)
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...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://116477]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (5)
As of 2024-03-28 16:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found