8 Einträge, 1 Seite |
Quotekann ich denn vor dem Aufrufen die Prozess-ID ermitteln?
sh -c 'echo $$; exec script.pl'
1
2
3
4
5
6
7
8
use Win32;
...
my $osname = Win32::GetOSName();
if ($osname eq 'WinXP/.Net' or $osname eq 'Win2003') {
print "memory usage: $1 RAM." if `tasklist /FO list /v /FI "PID eq $$"` =~ /Mem\s+Usage:\s+(.+)/;
} else {
print "memory usage: $1 RAM." if `tlist $$` =~ /WorkingSetSize:\s+(\d+\s+\w+)/;
}
8 Einträge, 1 Seite |