in reply to LWP Upload a file with a progress indicator
I've done a bit of work with this.. The basic idea is:
This snippet will spit out a period for, more or less, each kilobyte uploaded. That's the theory. I've found that this isn't entirely reliable for every LWP implementation I've tried (not many, either).$HTTP::Request::Common::DYNAMIC_FILE_UPLOAD = 1; my $req = make_http_request(); my $gen = $req->content(); die unless ref($gen) eq "CODE"; $req->content( sub { my $chunk = &$gen(); print "." x (length($chunk)/1024) if defined $chunk; return $chunk; } ); my $res = $ua->request($req);
c.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: LWP Upload a file with a progress indicator
by zentara (Archbishop) on Mar 04, 2005 at 13:56 UTC | |
Re^2: LWP Upload a file with a progress indicator
by Anonymous Monk on Nov 25, 2007 at 11:02 UTC | |
by Anonymous Monk on Nov 26, 2007 at 10:02 UTC |
In Section
Seekers of Perl Wisdom