Jun 19, 2012, 9:01 AM
memory issue with my script
I'm having an issue with trying to run a script. It runs for a while, gathers information for some time untill i get the error message: Out of memory!
When i check my task manager i see perl.exe keeps taking more and more momory (over 100MB), unless i comment out the following line:
print RESULT "$computer ",&versioncheck("\\\\$computer\\c\$\\windows\\system32\\msi.dll"),"\n";
This line is used in a ending loop. If I comment this out, perl.exe only uses around 9MB which seems more realistic.
This is the code for the sub:
use Win32::Exe qw();
my $exe = Win32::Exe->new(@_);
my @exe = $exe->version_info->get('FileVersion');
(This post was edited by lukdk on Jun 19, 2012, 9:02 AM)