RE: memory problem with threads

Hi,

> this script consume fast whole memory

Get more memory :)

You have to either call detach() or join(),
otherwise the resources used wont be released.

If you want to get the return value you call join:

	my @result = $thr->join();

if it should just be cleaned up upon termination call detach:

	$thr->detach();

mvh,
 ------------------------------------------------------------------------
!  Robert Friberg          0733-839080
!  Developer/Trainer       perl,java,dotnet,linux,xml,uml,sql,c/c++,vb
!  Ensofus AB		   http://www.ensofus.se/
!  Miljo Online AB         http://www.miljo-online.se/
 ------------------------------------------------------------------------  

> -----Original Message-----
> From: [email protected] [mailto:[email protected]]
> Sent: Thursday, February 19, 2004 5:36 AM
> To: [email protected]
> Subject: memory problem with threads
> 
> 
> Hello perl-ithreads,
> 
> this script consume fast whole memory
> undef dont help me - memory usage increased on every &lwp loop
> 
> I run it on WindowsXP SP1 with ActiveState 5.8.2
> 
> please help.
> 
> Thanks in advance.
> 
> 
> 
> #!perl -w
> use threads;
> #use strict;  # of course I have ran it with "use strict" too
> use Win32::Internet;  #
> #use LWP;              # the same problem, no difference
> 
> while(1){
>     $thr = threads->new(\&lwp);
>     # lwp(); # works fine
>     #$thr->join;
>     sleep 10;
> };
> 
> sub lwp {
>     $INET = new Win32::Internet();
>     $file = $INET->FetchURL("http://www.yahoo.com");
>     #undef $INET;
>     #undef $file;
>     return 1;
> 
>     #my $url = 'http://web.de';
>     #my $agent = LWP::UserAgent->new;
>     #$agent->agent("Mozilla/4.0");
>     #my $request = HTTP::Request->new( GET => $url );
>     #my $response = $agent->request($request);
>     #$response->is_success or print "lwp-Fehler: 
> ".$response->message ." \n";
>     #my $contents = $response->content;
>     # #return $contents;
>     #1;
> };  
> 
> -- 
> Best regards,
> Pavel                         mailto:[email protected]
> 
>