Opened by frodus at 2005-01-15 15:56
User since
2005-01-10
18 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-01-10
18 Artikel
BenutzerIn
Für Win32:
Entsprechend müsste es doch auch für Linux/Unix/BSD gehen:
print `ps -o size -p $$`;
Könnte es allerdings mangels entsprechendem Betriebssystem erst Montag in der Uni testen ;-)
Code: (dl
)
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+)/;
}
Entsprechend müsste es doch auch für Linux/Unix/BSD gehen:
print `ps -o size -p $$`;
Könnte es allerdings mangels entsprechendem Betriebssystem erst Montag in der Uni testen ;-)