CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [wickedxter] memory issue with my script: Edit Log



lukdk
Novice

Jun 25, 2012, 6:59 AM


Views: 1307
Re: [wickedxter] memory issue with my script

Hello,

Thanks for the feedback, although the problem is I don't know the array of files to check when i start the script.

The problem here is that i'm collecting information on remote computers, not knowing weather or not they are powered on. By the time the script finds out which of the 10K+ computers are online, the information is already outdated. That's why the idea is to check if a computer is online and gather information from one computer at a time.

I've looked on the web for other methods and i found the module Win32::File::VersionInfo. I don't know yet if this would solve the memory issue. I do know i had a problem transfering my parameters to that other sub: my $file=GetFileVersionInfo (@_); doesn't work. I'm calling this sub exactly the same way as in the first post.




Code
 use Win32::File::VersionInfo; sub versioncheck{    
my $file=GetFileVersionInfo ("c:\\windows\\system32\\msi.dll");
if ($file){
return $file->{'FileVersion'}, "\n";
# return $file->{FileVersion};
} else {
return 0;
}
}



I've looked up information on perl constructors / destructors, but no good luck there as well.

adding this in the first example didn't help either:

$exe=undef;
my $temp=$exe[0];
@exe=undef;
return $temp;


(This post was edited by lukdk on Jun 25, 2012, 7:13 AM)


Edit Log:
Post edited by lukdk (Novice) on Jun 25, 2012, 7:00 AM
Post edited by lukdk (Novice) on Jun 25, 2012, 7:13 AM
Post edited by lukdk (Novice) on Jun 25, 2012, 7:13 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives