Fetch some meditation material

[TheoPetersen]

   1: #!/usr/local/bin/perl -w
   2: 
   3: use strict;
   4: use LWP::Simple;
   5: 
   6: $_ = get("http://classics.mit.edu/Lao/taote.mb.txt")
   7:   or die "The page that can be fetched is not the true page\n";
   8: my $chapter = 1 + int(81 * rand());
   9: my $end =
  10:   $chapter == 37 ? '\n-------' :
  11:   $chapter == 81 ? '\nTHE' :
  12:   ('\nChapter\s+' . ($chapter + 1). '\s*\n');
  13: /^(Chapter\s+$chapter\s*\n.*?(?=$end))/ms && print $1;

[spaz]

I don't usually reply to Craft because...well it's Craft and usually Craft's aren't that cool, but this just blew my friggin mind! Not that the Perl isn't graceful, but what a great idea.

-- Dave

[bladx]

I concur with spaz on that one, that craft's generally aren't that rockin' but hey, this one actually is cool!! I think any Perl hacker/programmer in perlmonks.org that enjoy's cool little progs and so on, should check this one out for it is cool :-)

[providencia]

This was so cool. I use it in my bash login script.

...wonder if they have the dhammapada?

[Stormshadow]

Loved it! Useful script, and its code I might actually be able to decipher. (being new and all)

-Perl too is part of the beauty of the 10,000 things.

[jgchilds]

Very cool!!!