 |
|
Home:
Perl Programming Help:
Beginner:
Re: [wickedxter] memory issue with my script:
Edit Log
|
|
lukdk
Novice
Jun 25, 2012, 6:59 AM
Views: 1160
|
|
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.
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
|
|
| |
MAIN
SEARCH
WHO'S 
LOG 