quotes from the great master

# random Larry Wall quote
# quotes can be taken from:
# http://www.perl.com/CPAN/misc/lwall-quotes.txt.gz
# Sun Jul  2 15:25:40

use File::Slurp;

$_      = read_file(q{lwall-quotes.txt});
$quote  = [];

push @$quote, $2 while /(\%\%)(.+?)\1/gs;
print $quote->[rand(@$quote)], $/
[download]

Comment on quotes from the great master Download Code

Replies are listed 'Best First'.
Re: quotes from the great master by merlyn (Sage) on Jul 02, 2006 at 15:27 UTC
`use HTTP::Cache::Transparent (); use LWP::Simple qw(get); use Compress::Zlib (); HTTP::Cache::Transparent::init({BasePath => "/tmp/http-cache-transpare +nt-$>"}); my $gzipped = get "http://www.perl.com/CPAN/misc/lwall-quotes.txt.gz"; my $quotes = Compress::Zlib::memGunzip($gzipped); my @quotes = split /\n%%\n/, $quotes; print $quotes[rand @quotes], "\n";` [download] There. Automatic fetching and caching. HTTP::Cache::Transparent is a wonderful thing. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re^2: quotes from the great master by sh1tn (Priest) on Jul 02, 2006 at 16:26 UTC
Splendid way! ++	[reply]
Re^2: quotes from the great master by ady (Deacon) on Jul 04, 2006 at 05:22 UTC
That's not cool... That's close to 0 dgK F*Freeeeezing++	[reply]