73 Magazine på Internet

[SM5DFF]

Från första numret oktober 1960 till början av 2003, allt kan tas hem här:
https://archive.org/details.php?%26tab=about%26morf&embed=1&identifier=73-magazine&sort=-downloads&page=7

Välj önskad årgång i vänster del av skärmen. Innehållsförteckningar finns här:
http://www.qsl.net/kb9mwr/files/ham/73.html#1960

En USB-minne på 32 GB rekommenderas för bekväm läsning i höstmörkret.

Lennart

 

[sm6KWJ]

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

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