73 Magazine på Internet

Verkade jobbigt att klicka på webbsidorna för att ladda ner alltihop, så jag gjorde ett perlskript för att ladda ner alla tidningarna. Eller missade jag någon länk på sidorna?

Ser ut att fungera, men inga garantier lämnas :)

Code:
# SM6KWJ 2017-09-20
use strict;
use warnings;
use LWP::Simple;

# Länkformat: https://archive.org/download/73-magazine-1966-11/11_November_1966.pdf

my $YearStart=1960;
my $MonthStart=10;
my $YearEnd=2003;
my $MonthEnd=9;
my $Started=0;

my $UrlHeader='https://archive.org/download/73-magazine-';
my @MonthName=('', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December');
my $url;

for (my $Year=$YearStart; $Year<=$YearEnd; $Year++) {
    for (my $Month=1; $Month<=12; $Month++) {
        if (($Year==$YearStart)&&($Started==0)) {
            $Month=$MonthStart;
            $Started=1;
        }
        if (($Year==$YearEnd)&&($Month>$MonthEnd)) {
            exit;
        }
        if ($Month>9) {
            $url=$UrlHeader.$Year.'-'.$Month.'/'.$Month.'_'.$MonthName[$Month].'_'.$Year.'.pdf';
        }
        else {
            $url=$UrlHeader.$Year.'-0'.$Month.'/0'.$Month.'_'.$MonthName[$Month].'_'.$Year.'.pdf';
        }
       
        my $file=$MonthName[$Month].'-'.$Year.'.pdf';
        print $file."\n";
        my $Response=getstore($url, $file);
        print "$Response\n";
    }
}
 
Last edited:
Back
Top