Grabbing binary files via http 1

[Nebbish]

Hey folks, an easy one- how do I download binary files through a URL? I know how to use LWP::Simple to "get" a web document, but if the file is binary it doesn't read it properly.

IE, want to use Perl to automate the downloading of a .zip file, at

http://www.someaddy.com/myfile.zip.

How do I do it?

Thx,

Nick

 

[Rieekan]

This might help. I had to add in the multiple attempts due to an issue with the server I was grabbing information from. (It was sporadically available at night)

my $url = "[URL unfurl="true"]http://server/binaryfile.ext";[/URL]
my $file = "c:\\My Documents\\binaryfile.ext";

my ($rc, $status);

print qq(Starting Retrieval\n);

my $loop = 1;
my $count = 1;
my $max_count = 20;

while ($loop)
{
	if ($count == $max_count)
	{
		$loop = 0;
		last;
	}

	$rc = getstore($url, $file);

	$status = status_message($rc);

	print qq(Return Code: $rc\tStatus: $status\n);

	if (is_success($rc))
	{
		print qq(Received file\n);
		exit;
	}
	elsif (is_error($rc))
	{
		$count++;
		next;
	}
}

print qq(File Retrieve Failed after $max_count attempts.\n);

- Rieekan