Script to retrieve zip from internet

[djaesone]

I am new to Perl, and using Windows. I have a script I typed from a book. The script is to perform a series of downloads of zip files from a website. When I try running it, I seem to be getting "404 Not Found" errors. Any idea why?

The website is injected in the code as:

$baseurl = "http://www.retrosheet.org/";

I'm not sure if the problem is with the way the website is structured, or the code, or if my command line is failing to reach the internet for some reason.

Any thoughts are appreciated. Thanks!

[rafl]

How about pasting some code? Would be very helpful for finding the problem.

Nevertheless my script to do that would look like that:

use strict;
use warnings;
use LWP::Simple;

my $baseurl = "http://www.retrosheet.org/";

for (my $i = 0; $i < 100; $i++) {
    mirror("${baseurl}zipfile${i}.zip", "zipfile${i}.zip");
}

The code assumes that the zipfiles are at the servers root directory and called zipfile${number}.zip where the $number is between 0 and 99. You will need to adapt it to your specifications. Also you should add some error handling.

Cheers, Flo

[planetscape]

Assuming you are using a module such as WWW::Mechanize (and I really can't help you much without knowing what you are using - that's where a snippet of your code would be really helpful):

I would suggest using a module such as HTTP::Recorder or WWW::Mechanize::Shell to record a successful download of a zipfile. The output of HTTP::Recorder, for instance, can be "dropped" right into your WWW::Mechanize scripts.

Another important tool for finding out what is really happening behind the scenes between server and browser is a protocol analyzer such as Ethereal.

Don't forget that Super Search is your friend here on PM...

HTH,

[ayrnieu]

Yes, the problem could lie in any of those that you suggest. I wish you luck in your continued investigations.