Re^2: Using Mechanize to download a zip file?

Maybe the module is broken :)? looks like a binmode is missing

=head2 $mech->save_content( $filename )

Dumps the contents of C<< $mech->content >> into I<$filename>.
I<$filename> will be overwritten.

=cut

sub save_content {
    my $self = shift;
    my $filename = shift;

    open( my $fh, ">", $filename ) or $self->die( "Unable to create $f
+ilename: $!" );
    print $fh $self->content;
    close $fh;
}
[download]

update: confirmed and reported

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Comment on Re^2: Using Mechanize to download a zip file? Download Code

Replies are listed 'Best First'.

Re^3: Using Mechanize to download a zip file?
by Scott7477 (Chaplain) on May 10, 2006 at 23:27 UTC

use strict;
use warnings;
use LWP::UserAgent;
use WWW::Mechanize;
use Win32::FileOp;


#use Win32::FileOp qw(ShellExecute);
#    ShellExecute("http://finance.yahoo.com");
my $mech = WWW::Mechanize->new();
$mech->get("http://finance.yahoo.com");
my $filename = 'c:yahoo.html';
$mech->save_content ( $filename );
[download]

[reply]
[d/l]

Re^4: Using Mechanize to download a zip file?

by PodMaster (Abbot) on May 13, 2006 at 03:13 UTC

The module might be still broken;

http://search.cpan.org/src/PETDANCE/WWW-Mechanize-1.18/Changes

1.05_02 Sat Oct  2 16:55:59 CDT 2004
    [ENHANCEMENTS]
    * Added the $mech->save_content( $filename ) function, so you
          can dump stuff to files easily.

[reply]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.