Speicherbedarf eines Perl scripts ermitten (Allgemeines zu Perl)

[thread]6630[/thread]

Speicherbedarf eines Perl scripts ermitten

frodus

2005-01-15 15:56

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Hi Leute,

gibt es unter Windows oder Linux ein tool
mit dem ich den Speicherhunger eines Perl
Scripts ermitteln kann?

Am liebsten mit einer Ausgabe die ich in
eine Datei packen kann.

Danke,

Frodus

betterworld

2005-01-15 16:03

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

ps -o size -p 123
wobei 123 die Prozess-ID ist

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

frodus

2005-01-15 16:06

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Ja erstmal danke,
kann ich denn vor dem Aufrufen die Prozess-ID ermitteln?
Das Problem ist, das das Script viele unterschiedliche
Dateien öffnet und ich würde gerne den Verlauf
des Speicherbedarfs mit Tracken.

/Frodus

betterworld

2005-01-15 16:35

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Quote
kann ich denn vor dem Aufrufen die Prozess-ID ermitteln?

Jein.. vielleicht gefaellt Dir diese Loesung:

Code: (dl )

sh -c 'echo $$; exec script.pl'

Aber wenn das Skript gestartet ist, kannst Du es seine ID ausgeben lassen (print $$)

Wenn das Skript so viele Dateien oeffnet, kannst Du evtl auch mit fuser(1) arbeiten.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

frodus

2005-01-15 16:43

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Danke werde mal schauen ob ich
aus Deinen Infos irgendwas basteln kann was
mir dann weiter hilft.

Weitere Ideen sind natürlich willkommen.

/Frodus

cocko

2005-01-15 17:24

User since
2005-01-10
18 Artikel
BenutzerIn
[default_avatar]

Für Win32:

Code: (dl )

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 ;-)

cocko

2005-01-15 18:14

User since
2005-01-10
18 Artikel
BenutzerIn
[default_avatar]

Sollte klappen (mittels SSH mal eingeloggt):

lichtenb@mond04:~> perl -e 'print `ps -o size -p $$`'
SZ
484

frodus

2005-01-16 16:11

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Ja danke Cocko so hatte ich das auch vor.
Die Win variante werde ich am Montag mal auf
meinem Testrechner im Büro ausprobieren.

View all threads created 2005-01-15 15:56.