Hi, 
Can anyone help me with this. 

I'm using wget, a perl script and a shell script to download files
from serveral directories on a web server.

The URLs I'm passing to wget are of the form:

http://www.foo.br/001/ -  http://www.foo.br/050/

My perl script loops through the numbers 1-50, inserting each
iteration in a string representing the URL. I call it from my shell
script and redirect output to a text file. I then call wget from the
same shell script passing the name of this text file to wget's
--input-file option.

I want to do this all in Perl and avoid messing around with shell
scripts or batch files.

Also, is there a simple way of constructing the numbers 001-050 for my
URL strings?

I don't like what I'm doing at the moment which is....

$max = 51;
$zero = "0";
$zerozero = "00"

for ($i=1; $i<10; $i++) {
        print "$zerozero$i\n";
}
for ($i=10; $i<$max; $i++) {
        print "$zero$i\n";
}

Cheers, 

Malcolm

Reply via email to