Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^16: Change in Berkeley DB in Perl 5.12? (download latest berkeleydb)

by Anonymous Monk
on Dec 23, 2011 at 19:30 UTC ( #944964=note: print w/ replies, xml ) Need Help??


in reply to Re^15: Change in Berkeley DB in Perl 5.12?
in thread Change in Berkeley DB in Perl 5.12?

#!/usr/bin/perl -- use LWP::Simple qw/ get mirror $ua /; $ua->show_progress(1); my $html = get( q{http://www.oracle.com/technetwork/database/berkeleyd +b/downloads/} ); if( my( $current ) = $html =~ m{href=\x22http[^\x22]+?/([^/]+md5)\x22} +i ){ print "$current\n"; die "UHOH " if $current =~ /[^a-zA-Z0-9\.\-]/; mirror( "http://download.oracle.com/berkeley-db/$current", $curren +t ); $current =~ s/\.md5$//i; mirror( "http://download.oracle.com/berkeley-db/$current", $curren +t ); } __END__ ** GET http://www.oracle.com/technetwork/database/berkeleydb/downloads +/ ==> 301 Moved Permanently ** GET http://www.oracle.com/technetwork/database/berkeleydb/downloads +/index.html ==> 200 OK (1s) db-5.2.36.tar.gz.md5 ** GET http://download.oracle.com/berkeley-db/db-5.2.36.tar.gz.md5 ==> + 304 Not Modified ** GET http://download.oracle.com/berkeley-db/db-5.2.36.tar.gz ==> 304 + Not Modified


Comment on Re^16: Change in Berkeley DB in Perl 5.12? (download latest berkeleydb)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://944964]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2014-09-17 06:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (60 votes), past polls