in reply to Re^3: Problem enumerating a foreach loop using Win32::OLE->GetObject
in thread Problem enumerating a foreach loop using Win32::OLE->GetObject


Discipulus

Thank you for the information


What is your amazon wishlist? PM me and
ill fulfill an item.


As you pointed out, windows is a pain when
returning errors. It appears the os will
allow the process to hang without any
reaper collection, which is a shame.

FYI: I'm using activestate perl with very
very little issue.

How I solved the issue.

I created a batch file that loops/start min
each ip address which points to the perl script.
If the perl script hangs, only the one instance
to the ip will halt. Not the entire script.
Since I insert a record into a mysql table
instead of a flat file, double feed/line
errors are not an issue.


Below is the intel.bat load file
@echo off for /f "tokens=1,2 delims=:" %%a in ('time /t') do set "variable1=%%a" + & set "variable2=%%b" for /f "tokens=1" %%a in ("%variable2%") do set "mn=%%a" set hr=%variable1% set time=%date:~10,4%-%date:~4,2%-%date:~7,2%-%hr%-%mn% title SINGLE AUP -s=2 - %time% - %username% - %1 start /min cmd /c "perl intel-bug.pl -s=3 -misc=1 -z=%1" SET count=0 FOR /f "tokens=*" %%G IN ('"tasklist | find /i "cmd.exe""') DO (ca +ll :s_do_sums "%%G") GOTO :next :s_do_sums set /a count+=1 goto :eof :next ping 127.0.0.1 -n 3 -w 1000 > NUL rem echo %count% if %count% GEQ 100 Timeout /t 30 if %count% GEQ 75 Timeout /t 20 if %count% GEQ 50 Timeout /t 10 :end



Thanks again,

Joe
  • Comment on Re^4: Problem enumerating a foreach loop using Win32::OLE->GetObject
  • Download Code