Re: quotes from the great master

in reply to quotes from the great master

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.

Comment on Re: quotes from the great master Download Code

Replies are listed 'Best First'.
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]

In Section Cool Uses for Perl