Startseite
    Sonstiges
    Hardware
    Linux
    Windows
  Archiv
  Kontakt
 


http://myblog.de/adminblog

Gratis bloggen bei
myblog.de





Maximalen Speicherverbrauch eines Programmes mitloggen

Perlscript: aufrufen mit "maxvsize.pl programmname"

#!/usr/bin/perl

$cmdstring=$ARGV[0];
$maxvsize=0;
$vsize=0;
$vsize=0;

sleep(3);

$vsize=getVsize($cmdstring);
while ($vsize>1) {
if ($vsize>$maxvsize) { $maxvsize=$vsize; }
$sleep=`sleep 0.5`;
$vsize=getVsize($cmdstring);
}

print "max vsize: $maxvsize \n";


sub getVsize {

my $cmdstring = shift;
my $value=0;
my @lines = `ps --no-heading -o vsize -C $cmdstring`;

foreach $line (@lines) {
if ($line > $value) { $value=$line; }
}
return $value;
}
15.3.07 16:04
 



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung