in reply to Re^2: LWP - content_cb
in thread LWP - content_cb

This doesn't work because (if anything) $data becomes a file handle, but nothing is printed to it.

The idea would be to open a file handle outside of the callback routine, e.g. 

open my $fh, ">", "downloaded.pdf" or die $!;
binmode $fh;  # for when you're on a system (like Windows) where line 
+feeds are translated

[download]

and then within the callback routine, successively print the data to it 

sub callback {
   my ($data, $response, $protocol) = @_;
   print $fh $data;
   ...
}

[download]

Replies are listed 'Best First'.
Re^4: LWP - content_cb
by papaismurf (Novice) on Feb 15, 2012 at 05:02 UTC

    Really Thx for help, but same thing, a file is created but empyt...

[reply]
      Try this code: 
      #!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;

my $urlin  = shift || "http://zentara.net/zentara.avi";
my $infile = "zentara1.avi" ;
print "gettin video file : $infile\n";

# don't buffer the prints to make the status update
$| = 1;

open(IN,"> $infile") or die "$_\n"; 

my $ua = LWP::UserAgent->new();
my $received_size = 0;
my $request_time = time;
my $last_update = 0;
my $response = $ua->get($urlin,
                        ':content_cb'     => \&callback,
                        ':read_size_hint' => 8192,
                       );
print "\n";
close IN;

#play the flv file with mplayer
# system( "mplayer $infile" );

#############################################

sub callback {
  my ($data, $response, $protocol) = @_;

  my $total_size = $response->header('Content-Length') || 0;
  $received_size += length $data;

  # write the $data to a filehandle or whatever should happen
  # with it here.
  print IN $data;

  my $time_now = time;

  # this to make the status only update once per second.
  return unless $time_now > $last_update or $received_size == $total_s
+ize;
  $last_update = $time_now;

  print "\rReceived $received_size bytes";
  printf " (%i%%)", (100/$total_size)*$received_size if $total_size;
  printf " %6.1f/bps", $received_size/(($time_now-$request_time)||1)
     if $received_size;
}

__END__

      [download]
      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh
[reply]
[d/l]
        Thanks, works flawless. I take from your code 

        open(IN,"> $infile") or die "$_\n"; 

print IN $data;

        [download]

        And now my script are working...Really thanks for help.
[reply]
[d/l]

In Section Seekers of Perl Wisdom