LWP-problems

[Ronny Mandal]

Hello.

I am running the latest ActivePerl on Win32. I utilize the LWP::Simple
and it's get to fetch images from the web.

However, on UNIX, it fetches binary, but on Windows it seems like the
transfer is ASCII. I cannot find anything about the change of mode in
the doc, anyone knows?


Thanks,

Ronny Mandal

 

[usenet]

Ronny Mandal wrote:
anyone knows?

We can guess all day. Show us some code!

 

[Sisyphus]

Hello.

I am running the latest ActivePerl on Win32. I utilize the LWP::Simple
and it's get to fetch images from the web.

However, on UNIX, it fetches binary, but on Windows it seems like the
transfer is ASCII. I cannot find anything about the change of mode in
the doc, anyone knows?

Just binmode the filehandle before you write what you get() to file:

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

my $url = "http://www.kalinabears.com.au/ameliagall.jpg";

my $content = get($url);

open(WR, ">pic.jpg") or die "Can't open file for writing: $!";
binmode(WR);
print WR $content;
close(WR) or die "Can't close file after writing: $!";

__END__

Cheers,
Rob

 

[John Bokma]

Hello.

I am running the latest ActivePerl on Win32. I utilize the LWP::Simple
and it's get to fetch images from the web.

However, on UNIX, it fetches binary, but on Windows it seems like the
transfer is ASCII. I cannot find anything about the change of mode in
the doc, anyone knows?

Script (bare minimum that has this problem)?

 

[Bart Lateur]

However, on UNIX, it fetches binary, but on Windows it seems like the
transfer is ASCII. I cannot find anything about the change of mode in
the doc, anyone knows?

I'm guessing the server wrongfully describes the content type as text.

If all's well on the server side, LWP always does the right thing, at
least in my experience.

 

[Ronny Mandal]

Just binmode the filehandle before you write what you get() to file:

Yes! The binmode really did the trick. Just the same as when emitting
pictures from .pl

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

my $url = "http://www.kalinabears.com.au/ameliagall.jpg";

my $content = get($url);

open(WR, ">pic.jpg") or die "Can't open file for writing: $!";
binmode(WR);
print WR $content;
close(WR) or die "Can't close file after writing: $!";

__END__

Cheers,
Rob

Thanks, Rob!

-Ronny Mandal