gistfile1.pl

#!/usr/bin/perl

$cookie="cookies.txt";
$rackNum = 16;
$docID = 84699;
$pgStart = 262;
$pgEnd = 291;
$header = "maggiore-qft-new-";
$sleepTime = 300;

for ($i=$pgStart; $i<=$pgEnd; $i++) {

    $url = "http://www.myilibrary.com/content/rack_$rackNum/$docID/$i.asp";
    $buffer = sprintf("foo_%03d", $i);
    $buffer2 = sprintf("bar_%03d", $i);
    $cmdStr = "wget --output-document=$buffer --load-cookies=$cookie $url";
    $outPDF = sprintf("%s--%04d.pdf", $header, $i);

    print "$cmdStr - $outPDF\n";

    system($cmdStr);
    system("grep -P -o '\\w+\\.pdf' $buffer > $buffer2");
    
    open FOO, "$buffer2";
    $pdf = <FOO>; chomp $pdf;
    close FOO;

    $pdfURL = "http://www.myilibrary.com/content/rack_$rackNum/$docID/$pdf";
    system("wget --output-document=$outPDF --load-cookies=$cookie $pdfURL");
    
    sleep $sleepTime;

}