Performance verbessern und Perl bei der Arbeit beobachten (Perl/CGI)

[thread]14829[/thread]

Performance verbessern und Perl bei der Arbeit beobachten

Leser: 23

Articles: hide open all | hide show old branches

+18 replies
cbxk1xg

2010-03-17 15:17

User since
2003-10-20
496 Artikel
BenutzerIn

Hallo Freund der Sonne!

Ich habe mit meinem selbstgestrickten CMS momentan so einige Bauchschmerzen. Ich habe einige Funktionen geschrieben, auf die ich nicht verzichten kann und die haben mein CMS mittlerweile zu einer richtig lahmen Schnecke gemacht. Ich benutze CGI ohne FastCGI oder mod_perl.

Jetzt würde ich gerne herrausfinden, wo eigentlich der Schuh drückt. Kann man (außer mit top unter Linux) Perl dabei zusehen, was es macht? Also, wo grade die Interpretation des Codes langsam wird? Welche Klasse oder Funktion Speicher oder CPU frisst?
- +10 replies
- pq
  
  2010-03-17 15:24
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Devel-NYTProf
  siehe den punkt "Apache Profiling" in der doku. das hab ich aber selbst noch nicht ausprobiert und weiss nicht, ob das unter CGI auch geht.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +4 replies
  - GwenDragon
    
    2010-03-17 16:09
    
    User since
    2005-01-17
    14555 Artikel
    Admin1
    
    Na ja, mit Hindernissen:
    1) -d:NYTProf an den Shebang des Skripts hängen
    2) Skript ablaufen lassen
    3) Shell aufrufen
    4) Ins Verzeichnis des Skripts gehen
    5) nyprofhtml aufrufen
    6) Unterverzeichnis nytprof wurde erstellt
    7) Im Browser dann ins Verzeichnis des Skripts gehen (wenn möglich) und dort das Unterverzeichnis nytprof wählen
    8) HTML-Seite zeigt dann Prodildaten
    9) Im Produktivumgebung Shebang wieder ändern und Unterverzeichnis nytprof löschen!
    
    PS: Ich weiß, das ist seltsam beschrieben, aber ich weiß es gerade nicht besser zu erklären. Sorry.
    Aber so lief es bei mir auf einem Debian-Server ab.
    Last edited: 2010-03-17 16:14:19 +0100 (CET)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +3 replies
    - cbxk1xg
      
      2010-03-17 16:15
      
      User since
      2003-10-20
      496 Artikel
      BenutzerIn
      
      2010-03-17T15:09:03 GwenDragon
      Na ja, mit Hindernissen:
      8) HTML-Seite zeigt dann Prodildaten
      
      Was sehe ich denn dann? Kryptische Benchmarks, oder was verständliches? Also, z.B. Funktion XY hat 3 Sekunden lang 30% CPU-Power belegt?
      - pq
        
        2010-03-17 16:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        such mal nach screenshots in der doku:
        http://timbunce.files.wordpress.com/2008/07/nytpro...
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - GwenDragon
        
        2010-03-17 16:20
        
        User since
        2005-01-17
        14555 Artikel
        Admin1
        
        Nein, auf Deutsch ist es nicht.
        
        Aber die Inhalte sind wirklich sehr aufschlussreich.
        Ich bin auch beim ersten Mal damit klar gekommen, als ich es vor 1/2 Jahr auf einem Server laufen lassen musste. ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - cbxk1xg
    
    2010-03-17 16:12
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    2010-03-17T14:24:25 pq
    Devel-NYTProf
    siehe den punkt "Apache Profiling" in der doku. das hab ich aber selbst noch nicht ausprobiert und weiss nicht, ob das unter CGI auch geht.
    
    Dazu muss man ja studiert haben! :-) Nee, mal im Ernst, das ist nun wirklich Hölle kompliziert. Gibt es nichts einfacheres? Ich meine, bei anderen Sprachen wie Delphi z.B. hat man eine IDE mit einer Debugging Konsole. Gibt es sowas nicht für Perl? Einen Geheimtipp vielleicht?
    - renee
      
      2010-03-17 16:14
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Debugging != Profiling...
      
      Wenn Du "remote debugging" machen willst, kann ich Komodo empfehlen. Der kostet aber...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - +3 replies
    - GwenDragon
      
      2010-03-17 16:18
      
      User since
      2005-01-17
      14555 Artikel
      Admin1
      
      Was nutzt dir denn eine IDE? Du musst das doch im laufenden Betrieb testen können.
      Auf dem Entwicklungsrechner lokal sieht das ganz anders aus als auf einem Server.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - renee
        
        2010-03-17 16:20
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Beim Komodo kannst Du es so machen, dass das Debugging im Server angeschaltet wird, die Dateien dann aber im Komodo geöffnet wird und Du dort den Ablauf siehst...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        GwenDragon
        
        2010-03-17 17:11
        
        User since
        2005-01-17
        14555 Artikel
        Admin1
        
        Ah, Remote Debugging ist also gemeint. War bei meiem Post noch nicht klar.
        Ja, diverse IDE können das, kenn' ich auch.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +6 replies
- esskar
  
  2010-03-17 15:37
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  hast du den test-cases für diese funktionen?
  solltest du! :-)
  dann kannst du sie testen und mit verschiedenen daten füttern und profilen.
  - +5 replies
  - cbxk1xg
    
    2010-03-17 16:22
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Mh, also NYTProf sieht ja schon ganz nett aus.
    Test-cases? Wozu genau? Ich weis ja, das etwas nicht so läuft, wie ich es will. Ich muss halt die bösen Funktionen finden, die mir die Performance klauen.
    
    Komodo sieht eigentlich richtig schick aus. Hat damit schon jemand Erfahrungen gesammelt? Ich verabschiede mich gerne von meinem geliebten TextPad, wenn ich dafür eine IDE bekomme, die man auch bedienen kann.
    - +4 replies
    - esskar
      
      2010-03-17 16:29
      
      User since
      2003-08-04
      7321 Artikel
      ModeratorIn
      
      2010-03-17T15:22:09 cbxk1xg
      Test-cases? Wozu genau? Ich weis ja, das etwas nicht so läuft, wie ich es will. Ich muss halt die bösen Funktionen finden, die mir die Performance klauen.
      
      deswegen sollst du ja für jede funktion einen test-case schreiben,
      gegen die du dann high-performance tests machen kannst.
      - +3 replies
      - cbxk1xg
        
        2010-03-17 16:36
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        OK. Das wird bei einem großen System aber viel zu aufwendig. Dann bin ich ja nur noch damit beschäftigt Test-cases zu schreiben. Ich vermute ja, das im Hintergrund irgendetwas mit den Dateizugriffen nicht stimmt. Mein System ist Datei-basiert und nicht Datenbank-basiert. Und Perl ist leider nicht sehr auskunftsfreudig, wenn es darum geht, unter die Haube zu gucken. Ich finde halt den Fehler nicht. Und der kann sich prinzipiell überall verstecken.
        
        +2 replies
        
        esskar
        
        2010-03-17 16:40
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        man sollte auch die test-cases schreiben BEVOR man die eigentliche funktion schreibt! :-)
        
        cbxk1xg
        
        2010-03-17 16:47
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Ja nee, is klar! :-) Das System gibt's nun aber schon. Ich vermute mal, ich kann mich entweder händisch durch den Code wühlen und dabei viel Kaffee und Zigaretten verbrauchen, oder ich gucke mir erst mal Komodo genauer an... - Hab mich grad' für letzteres entschieden.
        
        @GwenDragon: Ob es dann perfomant auf dem Web-Server läuft, werde ich dann wohl auch recht schnell rausbekommen.
- Linuxer
  
  2010-03-17 17:09
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Hi,
  Perl.com hat einen netten - wenn auch alten - Artikel, der sich ums Profiling eines Perl Programms dreht:
  
  http://www.perl.com/pub/a/2004/06/25/profiling.htm...
  
  Als Resultat erhält man eine Textausgabe der folgenden Art (eigenes Beispiel; hab nur keinen Langläufer parat; im Artikel wird auch genauer auf die Ausgabe eingegangen).
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  Total Elapsed Time = 0.029024 Seconds User+System Time = 0.039024 Seconds Exclusive Times %Time ExclSec CumulS #Calls sec/call Csec/c Name 25.6 0.010 0.010 1 0.0100 0.0100 Getopt::Long::CallBack::BEGIN 25.6 0.010 0.029 4 0.0025 0.0073 main::BEGIN 25.6 0.010 0.010 23 0.0004 0.0004 Getopt::Long::BEGIN 0.00 0.000 0.000 1 0.0000 0.0000 Exporter::Heavy::heavy_export 0.00 - -0.000 1 - - Getopt::Long::ConfigDefaults 0.00 - -0.000 1 - - Getopt::Long::Configure 0.00 - -0.000 1 - - Exporter::export 0.00 - -0.000 1 - - main::print_help 0.00 - -0.000 1 - - warnings::unimport 0.00 - -0.000 2 - - warnings::import 0.00 - -0.000 1 - - overload::BEGIN 0.00 - -0.000 2 - - overload::OVERLOAD 0.00 - -0.000 1 - - Getopt::Long::import 0.00 - -0.000 2 - - Regexp::DESTROY 0.00 - -0.000 1 - - main::parse_options
  
  Ich weiß nicht, ob das hierfür verwendete Devel::DProf noch "Mode" ist, mir gefällt jedenfalls die eher schlichte, aber übersichtliche Darstellung des Ergebnisses. Und Perl 5.10.1 liefert es jedenfalls noch mit ;)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2010-03-17 15:17.