daniel_lsl
Deleted
Apr 29, 2000, 11:30 AM
Post #1 of 3
(329 views)
|
|
Sending value to subroutine
|
Can't Post
|
|
Hi I'm stuck at this problem and just can't move on. I hope someone can enligthen me on this. I'm using the LWP::Parallel::UserAgent module. How to send the value of $content to the subroutine abc. Really appreciate your help and time. Thanks.
_____________________________________________
package myUA;
use Exporter();
use LWP::Parallel::UserAgent qw(:CALLBACK);
@ISA = qw(LWP::Parallel::UserAgent Exporter);
@EXPORT = @LWP::Parallel::UserAgent::EXPORT_OK;
sub on_return {
($self, $request, $response, $entry) = @_;
if ($response->is_success) {
$url = $request->url;
if ($url =~ m/abc/) {
$content = $response->content;
&abc;
}
} else {
}
return;
}
package main;
...
...
sub abc {
...
...
}
____________________________________________
|
MAIN
SEARCH
WHO'S 
LOG 