diff options
Diffstat (limited to '')
-rw-r--r-- | download_sqlite.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/download_sqlite.pl b/download_sqlite.pl new file mode 100644 index 0000000..1c7e988 --- /dev/null +++ b/download_sqlite.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl +use strict; +use warnings; +use DBI; +my @drivers = DBI->available_drivers(); +die "Error, please install DBI::SQLite" unless (grep { $_ eq "SQLite" } @drivers); + +print "Downloading the full CPAN tester database, around 13 MB.."; +#`wget http://cpants.perl.org/static/cpants_all.db.gz`; +die "Error, couldn't download the cpants_all.db.gz file from http://testers.cpan.org!" unless -p 'cpants_all.db.gz'; +say "done"; + +print "Unpacking CPAN tester database.."; +`gunzip cpants_all.db.gz`; +die "Error, couldn't unpack the cpants_all.db.gz file!" unless -p 'cpants_all.db'; +#`rm cpants_all.db.gz`; +#die "Warning, couldn't remove the cpants_all.db.gz file" if -p 'cpants_all.db'; +say "done"; + |