CPU- und Memory-Verbrauch eines Programms

[samsara]

Hi All!

Wie kann ich den Rechenzeit- und Speicherbedarf eines Programms herausfinden (z.B. Perl-Skript)?

Danke,

Samsara

[bischi]

Under Windows:

CRTL + ALT + DEL , Links, Links, ENTER

MfG Bischi

[anda_skoa]

Unter Unix console mit top, unter KDE mit KSysGuard (STRG+ESC)

Ciao,
_

[peschmae]

Original geschrieben von bischi
Under Windows:

CRTL + ALT + DEL , Links, Links, ENTER


das ist [Computer sperren] du Depp :rolleyes:

MfG Peschmä

[bischi]

das ist [Computer sperren] du Depp

Das ist Herunterfahren (du Depp :) )

Hab ein Links vergessen ;)

MfG Bischi

[peschmae]

Links ist links und nicht rechts oder sonstwas

ausserdem gehts links nicht weiter da du schon links bist du depp :rolleyes:

übrigens nur W2k

MfG Peschmä

[bischi]

Du hast auch noch nie was von Tastatur auf den Kopf stelllen gehört ;)

MfG Bischi

[peschmae]

auf den Kopf gestellt stimmts immer noch nicht (wenn du 180°-Drehen meinst)

Aber eigentlich drücke ich alle Tasten aufs mal...

muss man Windows so bedienen? :D :D :D

MfG Peschmä

[bischi]

auf den Kopf gestellt stimmts immer noch nicht (wenn du 180°-Drehen meinst)

Aber eigentlich drücke ich alle Tasten aufs mal...

muss man Windows so bedienen?

MfG Peschmä

Kommt draufan, in welche Richtung ;)

Nein, so bedienst du Windows im Normalfall nicht (Zitat: Klicki-Bunti). Du bist inkonsequent...

MfG Bischi

[peschmae]

also in welche denn?

Zuerst - nein geht auch nicht! Du musst 4 mal rechts oder runter drücken oder zweimal rechts und zweimal runter oder - egal

Wie kommst du denn darauf Windows so abartig zu "bedienen"? Mach besser klicki-bunti - die Tastatur bekommt dir offenbar nicht gut

MfG Peschmä

[TrollSlayer]

Follgendes Skript enthällt eine Methode getMemAndTimeUsage die die CPU-Zeit(nicht die Zeit die seit dem Aufruf vergangen ist, sondern nur die Zeit in der der Prozess die CPU benutzt hat!) und den Speicherverbrauch eines Programms zurückgibt:



#!/usr/bin/perl -w

use strict;

sub getMemAndTimeUsage {
if ($_[0] eq "") { return undef; };
use Proc::ProcessTable;
my @results;
my $proc = Proc::ProcessTable->new;
my %fields = map { $_ => 1 } $proc->fields;
return undef unless exists $fields{'fname'};
foreach (@{$proc->table}) {
if($_->fname eq $_[0]) {
push (@results, $_->size) if exists $fields{'size'};
push (@results, $_->time) if exists $fields{'time'};
};
};
return @results;
}

print join("\n", &getMemAndTimeUsage("DateiNameDeinesProgramms"));
exit(0);

Weiere Infos zu ProcessTable: http://search.cpan.org/author/DURIST/Proc-ProcessTable-0.38/Process/Process.pm

[samsara]

Hey danke, TrollSlayer!

Werd's bald mal ausprobieren, wenn ich wieder an der Linuxkiste sitze! :)

Herzlich gegruesst,

Samsara