quotes from the great master

[sh1tn]

# 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)], $/

[merlyn]

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

There. Automatic fetching and caching. HTTP::Cache::Transparent is a wonderful thing.

[sh1tn]

Splendid way! ++

[ady]

That's not cool...
That's close to 0 dgK
F*Freeeeezing++