Foo Ji-Haw schreef:
> my $WMI = Win32::OLE->GetObject("winmgmts:\\\\localhost\\root\\cimv2")
Alternatives:
my $WMI = Win32::OLE->GetObject( 'winmgmts:\\localhost\root\cimv2' )
my $WMI = Win32::OLE->GetObject( q{winmgmts:\\localhost\root\cimv2} )
> print "$Name,$Path,$PID\n";
Alternative:
{ local ($,, $\) = (',', "\n"); # or (q{,}, qq{\n})
print $Name, $Path, $PID;
}
--
Affijn, Ruud
"Gewoon is een tijger."
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
