Hello perl-win32-users,
1. if I run this script it takes more and more memory
( swap file consumption will increased ).
2. has Perl a "garbage collector" like Java's one? and how can I invoke
it?
3. how can I stop or destroy running thread?
#!perl -w
use threads;
use strict;
use LWP;
while(1){
threads->new(\&lwp); # it works fine if I change
# this line to lwp();
sleep 10; # actually I have GUI::Timer here
};
sub lwp {
my $agent = LWP::UserAgent->new;
$agent->agent("Mozilla/4.0");
my $request = HTTP::Request->new( GET => 'http://web.de' );
my $response = $agent->request($request);
my $contents = $response->content;
#return $contents;
return 1;
};
--
Best regards,
Pavel
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
