Kontrolle ein perl-Skript ist die CPU-Auslastung?

Bin ich dabei eine Menge von Datei-Suche auf der Grundlage eines Kriterien in mehreren Iterationen aus meinem Perl-Skript, und es scheint, nehmen die bis zu 100% der CPU-Zeit. Gibt es eine Möglichkeit zu kontrollieren, mein Skript CPU-Auslastung? Ich habe irgendwo gelesen, darum, die leeren Schlaf-Zyklen in meinem Skript. Aber ich bin nicht sicher, wie dies zu tun.

  • Diese ist Plattform-abhängig. Auf welchem Betriebssystem laufen Sie auf?
  • Wenn es keine anderen Prozesse müssen die CPU, warum sollte er es zulassen, Abfälle guten Zyklen, wenn Sie sinnvoll genutzt werden ??
  • Ich bin mit meinem Skripten unter Windows. Ja, es gibt andere Prozesse, die laufen auch. Ich war weniger aufdringlich mit meinen Skripten.
InformationsquelleAutor Nilesh C | 2010-01-06
  1. 10

    Sie senken könnte der Prozess (Perl) Priorität zugeordnet OS: windows oder linux

    Beispiel für niedrigste Priorität:

    windows 

    start /LOW  perl <myscript>

    linux 

    nice +19 perl <myscript>
    • Ähnlich sieht dies die einfachste Lösung. Ich werde versuchen, diese vor den anderen und Bericht zurück.
    • Dies ist eine einfache Lösung, erfordert aber die Benutzer wissen oder erstellen Sie ein Startskript oder eines Pseudonyms gestattet. Wenn Sie allerdings setpriority() wird der code immer renice/Priorität ändern als gedacht. Die Art der Anwendung und verwenden Sie sollten entscheiden, welche Lösung zu wählen.
    InformationsquelleAutor Alon
  2. 7

    Eine großartige Möglichkeit zur Verbesserung der CPU-Auslastung ist die Verwendung von besseren algorithmen. Sie müssen nicht raten, wo dein code ist, alle Ausgaben seiner Zeit: einen profiler verwenden. Devel::NYTProf ist ein fantastisches Werkzeug für diese.

    Werden Sie sicher zu halten Amdahl ' s law in den Sinn. Zum Beispiel, sagen ein Teil von Ihrem Programm verwendet einen quadratischen Algorithmus und mit etwas Mühe könnten Sie ersetzen Sie es mit einem linear ein. Hurra! Aber wenn der code in Frage, macht nur 5% der gesamten Laufzeit, Ihre heroischen Anstrengungen bringen kann, nicht besser als eine kleine fünf-Prozent-Verbesserung. Einen profiler verwenden, um zu bestimmen, ob Chancen für mehr Beschleunigung verfügbar sind anderswo.

    Du uns nicht sagst, was du suchst, und sogar die besten bekannten algorithmen kann die CPU-intensiv. Bedenken Sie, dass Ihr Betriebssystem scheduler geschrieben wurde, von hand abgestimmt, getestet und neu geschrieben, um die Systemressourcen effizient. Ja, einige Aufgaben erfordern spezialisierte Planer, aber solche Fälle sind selten—noch weniger wahrscheinlich, gegeben, dass Sie mit Hilfe von Perl.

    Nehmen Sie es nicht als ein schlechtes Zeichen, dass der code frisst CPU. Sie werden vielleicht überrascht sein zu erfahren, dass eine der härtesten Herausforderungen in realtime Systemen, wo Leistung entscheidend ist, ist, dass die CPU beschäftigt, anstatt im Leerlauf.

    • Mein Skript verbringt viel Zeit damit, niedere Aufgaben, wie das suchen von text in Dateien, das ausführen externer Programme, erfassen und analysieren Sie Ihre Ausgabe, anstatt der spezielle Algorithmus. Im Allgemeinen bin ich mit Ihrer Meinung überein. Ich bin nicht besonders besorgt darüber, dass mein Skript frisst die CPU. Sondern mehr mit der Tatsache, dass diese die CPU-Auslastung wirkt sich auf andere Programme und services laufen auf dem gleichen Windows-server. Das ist es also. Eine einfache niedrigen Prozess-Priorität zu dienen scheint meine Bestimmung zu präsentieren. Ja, profiling ist gut auf lange Sicht.
    • Klingt wie eine kluge Wahl.
    • Danke für den Tipp auf NYTProf! note to self: die einzige Art Anleitung mit den Schritten, die ich finden konnte, so weit ist die perlmonks: mod_perl-Anwendung profiling - Problem,.. Cheers!
    InformationsquelleAutor Greg Bacon
  3. 5

    Könnten Sie schlafen oder usleep. Eine andere Sache, die Sie tun können, ist niedriger die Priorität.

    Update:
    Sehen setpriority()

    • Perl - setpriority Funktion ist nur ein wrapper um die system-call mit dem gleichen Namen. Als solche, es ist ein fataler Fehler zu nennen, es auf Plattformen, die nicht umzusetzen (z.B. Windows).
    • Ich habe gerade dies bestätigt. setpriority() ist nicht implementiert in Windows.
    InformationsquelleAutor Christian V
  4. 3

    Nur schlafen:

    while ($not_done_yet) {
    do_stuff_here();
    sleep 1; # <-- sleep for 1 second.
}

    oder etwas mehr Phantasie, tun N Operationen pro Schlaf-Zyklus:

    my $op_count = 0;
while ($not_done_yet) {
    do_stuff_here();

    $op_count ++;
    if ($op_count >= 100) {
        $op_count = 0;
        sleep 1; # <-- sleep for 1 second every 100 loops.
    }
}
    • Ok. Bekomme ich die Idee. Also werde ich zu brechen, meine Aufgaben in Gruppen Durchlaufen werden können.
    InformationsquelleAutor slebetman
  5. 2

    schlafen + Zeit + mal kann ein bisschen tun.

    my $base = time;
my $ratio = 0.5;
my $used = 0;
sub relax {
    my $now = time;
    my ($total) = times;
    return if $now - $base < 10 or $total - $used < 5;  # otherwise too imprecise
    my $over = ($total - $used) - $ratio * ($now - $base);
    $base = $now + ($over > 0 && sleep($over));
    $used = $total;
}

    (Ungetestet...) Streuen genug relax Anrufe gesamten code und dieser sollte durchschnittlich aus, um in der Nähe von oder unter 50% CPU-Zeit.

    BSD::Resource können dies tun, weniger invasiv, und Sie könnte als gut greifen Time::HiRes für höhere Präzision.

    my $base = clock_gettime(CLOCK_MONOTONIC);
my (undef, $hard) = getrlimit(RLIMIT_CPU);
my $interval = 10;
if ($hard != RLIM_INFINITY && $hard < $interval) {$interval = $hard / 2}
my $ratio = 0.5;
$SIG{XCPU} = sub {
    setrlimit(RLIMIT_CPU, $interval, $hard);
    my $now = clock_gettime(CLOCK_MONOTONIC);
    my $over = $interval - $ratio * ($now - $base);
    $base = $now + ($over > 0 && sleep($over));
};
setrlimit(RLIMIT_CPU, $interval, RLIM_INFINITY);

    (Auch ungetestet...) Auf ein system, das es unterstützt, diese Fragen sollte das Betriebssystem signal, das Sie jeden $interval Sekunden CPU-Zeit, an welcher Stelle Sie den Zähler zurücksetzen und schlafen. Dies sollte nicht verlangen, änderungen an den rest des Codes.

    • Muss getestet werden. Aber sieht aus wie eine interessante Lösung in der Regel Steuern die CPU-Auslastung mit zahlen.
    InformationsquelleAutor ephemient
  6. 2

    Ist Ihr Skript tatsächlich die Dinge zu tun die ganze Zeit? Zum Beispiel, wenn Sie die Berechnung einer mandelbrot-Menge, Sie haben Schleifen, die CPU, sondern sind aktiv auf der Verarbeitung von Daten die ganze Zeit.

    Oder haben Sie Schleifen, wo Sie darauf warten, für mehr Daten zu verarbeiten:

    while(1) { 
    process_data() if data_ready();
}

    Im ersten Fall die Einstellung der Priorität ist wahrscheinlich die beste Lösung. Es wird sich verlangsamen die Berechnung, aber nur soviel wie nötig service andere Prozesse auf dem system.

    Im zweiten Fall verbessern Sie die CPU-Auslastung drastisch durch den Schlaf nur für einen Bruchteil einer Sekunde.

    while(1) { 
    process_data() if data_ready();
    select( undef, undef, undef, 0.1 );
}

    Wenn Sie Daten von einer Quelle, die select angewendet werden können, um so besser. Die können Sie gerne für Ihre Schleife blockiert, bis Daten bereit sind.

    use IO::Select;
my $s = IO::Select->new($handle);

while(1) { 
    process_data() if $s->can_read;
}

    Wählen Sie arbeitet auf sockets und Datei-handles, die auf *NIX-Systemen. Auf Windows-Systemen können Sie nur wählen, gegen Steckdosen.

    InformationsquelleAutor daotoad
Schreibe einen Kommentar