Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's minimum standard of quality and will not be displayed.

Replies are listed 'Best First'.
Re: web download
by naikonta (Curate) on Jun 05, 2007 at 16:42 UTC
[reply]
Re: web download
by shmem (Chancellor) on Jun 05, 2007 at 16:44 UTC
    Without some code of yours all we can do is point at the documentation of LWP::UserAgent.

    If you post some bits, we should be able to point out errors or misconceptions. See How (Not) To Ask A Question.

    --shmem 

    _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
[reply]
Re: web download
by leighsharpe (Monk) on Jun 06, 2007 at 03:17 UTC
    What about using wget and backticks? eg: 
    my @files=("http://domain.com/file1","http://domain.com/file2","http:/
+/domain.com/file3");
foreach my $filename(@files)
{
   `wget $filename`;
}

    [download]
    Depending, of course, on how you get the filenames. Or, how about this: 
    use LWP::Simple;
my @files=("file1.gz","file2.gz","file3.gz");
my $domain="http://domain.com";
foreach my $file(@files)
{
       my $url=$domain.$file
       getstore($url, $file) or print "failed to get $url\n";
}

    [download]
[reply]
[d/l]
[select]
Re: web download
by Anonymous Monk on Jun 06, 2007 at 04:25 UTC
    you forgot to binmode?
[reply]

Back to Seekers of Perl Wisdom