Modulsuche Darstellung von Abhängigkeiten (Allgemeines zu Perl)

[thread]15024[/thread]

Modulsuche Darstellung von Abhängigkeiten

Leser: 25

Articles: hide open all | hide show old branches

+21 replies
bianca

2010-05-16 17:33

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Abend!
Nach einem wunderschönen sonnigen Sonntag mit Flohmarkt und Wurstbrötchen wieder ein bißchen Perl.

Hab hier ein größeres Projekt bestehend aus rund 25 einzelnen Perlscripten (.pl Dateien). Die werden teilweise gegenseitig per require eingebunden je nach Menüaufruf des Users und nutzen dann Funktionen.

Gibt es ein Modul, dass mir diese Abhängigkeiten und gegenseitigen sub Aufrufe darstellt?

Beispiel:
modul1.pl Hauptprogramm
modul2.pl Statistik
modul3.pl Logfile
modul4.pl CRON

modul1.pl required modul2.pl und modul3.pl
modul4.pl required modul3.pl

Das hätte ich gern auf einer Art Matrix, womit man auf einen Blick erkennen kann, a) welches Modul welches aufruft und b) welches Modul von welchem aufgerufen wird. Und das am besten bis runter auf die einzelnen Namen der sub's.
Man müsste dem Tool also quasi sagen, welche Module zusammengehören, das müsste dann die Quelltexte durchsehen und die Abhängigkeiten anzeigen.

Danke und schönen Restsonntag noch!
10 print "Hallo"
20 goto 10
- +2 replies
- pq
  
  2010-05-16 17:50
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Module::Dependency vielleicht als anfang?
  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
  - bianca
    
    2010-05-16 18:00
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Schau ich mir an, danke Dir.
    10 print "Hallo"
    20 goto 10
- +18 replies
- pq
  
  2010-05-16 18:20
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  und zu dynamischen require()s und darstellung von sub-aufrufen kann man nur sagen, dafür muss das programm durchlaufen werden, da muss ein profiler her bzw. vielleicht bietet eins der coverage-module so eine statistik.
  ich vermute stark, dass es profiler gibt, die diese daten sammeln, so dass du sie dir rausziehen kannst. ein kollege hat bei uns neulich mal was in der art gemacht, einen graphen mit der kompletten aufrufliste der subs.
  
  ohne das programm zu durchlaufen kann man jedenfalls nicht herausfinden, wer was aufruft, da das ja dynamisch passiert.
  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
  - +17 replies
  - bianca
    
    2010-05-16 19:02
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-05-16T16:20:40 pq
    ein kollege hat bei uns neulich mal was in der art gemacht, einen graphen mit der kompletten aufrufliste der subs.
    
    Ja, daran wäre ich interessiert. Wie hat er das gemacht? Könntest Du ihn um etwas Code bitten?
    Danke Dir
    10 print "Hallo"
    20 goto 10
    - +16 replies
    - pq
      
      2010-05-16 19:59
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      versuch mal Devel::NYTProf und lasse dann das script nytprofcg laufen, das generiert dir eine datei mit subroutinenaufrufen. musst du ein bisschen basteln.
      die htmlausgabe von nytprofhtml weist aber darauf hin, dass du womöglich einfach GraphViz benutzen kannst, um eine graphik der aufrufe zu bekommen.
      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
      - +15 replies
      - pq
        
        2010-05-16 20:15
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ahja, ganz einfach. nytprofhtml generiert dir ein dot-file "subs-callgraph.dot", daraus machst du ein png mit dem kommando:
        $ dot subs-callgraph.dot -Tpng -o callgraph.png
        Last edited: 2010-05-16 20:16:58 +0200 (CEST)
        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
        
        +14 replies
        
        topeg
        
        2010-05-17 17:03
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Man muss die ".dot" Dateien aber meist noch etwas Nachbearbeiten um eine gute Übersicht zu bekommen. Nicht immer sollen die Abhängikeiten zu "strict" oder "warnings" oder "CORE" sichtbar sein.
        
        +13 replies
        
        pq
        
        2010-05-17 18:18
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        evtl. kann man das schon dem profiler sagen, so dass diese aufrufe/packages gar nicht reported werden...
        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
        
        +12 replies
        
        topeg
        
        2010-05-17 23:41
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Kann sein, ich habe die Zuweisungen/Blöcke mit einer RegExp raus geschmissen:
        
        Code: (dl )
        
        perl -n0e 's/[^\n]+(?:CORE|BEGIN|re::|strict::|warnings::|Exporter::|XSLoader::|bytes::)[^\n]+\n//g; s/(?:^|\n)subgraph cluster_(?:warnings|strict|vars|Exporter|overload|XSLoader|bytes)\w*\s*\{.*?\}//gs; print' <file>.dot > <file>.out.dot
        
        +11 replies
        
        pq
        
        2010-05-18 13:01
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        aber anscheinend ist bianca selbst jetzt eh nicht mehr so dringend daran interessiert =)
        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
        
        +7 replies
        
        bianca
        
        2010-05-18 13:13
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-05-18T11:01:57 pq
        aber anscheinend ist bianca selbst jetzt eh nicht mehr so dringend daran interessiert =)
        
        Interessiert: ja
        Dringend: nein, war auch nicht die Rede von
        
        Trotzdem Danke für die Antworten.
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        pq
        
        2010-05-18 13:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-05-18T11:13:57 bianca
        Trotzdem Danke für die Antworten.
        
        "trotzdem"?
        hast du es denn jetzt mal ausprobiert?
        und für sowas halbherziges fragst du ernsthaft, ob leute ihren kollegen nach code fragen können? um dann gelangweilt abzuwinken, so dringend wars dann doch nicht?
        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
        
        pq
        
        2010-05-18 15:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Splitted to Modulsuche Darstellung von Abhängigkeiten - split
        
        Original message by 'bianca':
        [quote]
        2010-05-18T11:23:43 pq
        "trotzdem"?[/quote...
        
        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
        
        bianca
        
        2010-05-18 15:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Da jetzt m.E. nicht ganz an der richtigen Stelle abgetrennt wurde und ich das so nicht stehen lasse möchte nochmal kurz für alle:
        
        Das Thema ist NICHT dringend und ich komme auch nicht sofort dazu, mich intensiver damit zu beschäftigen. Habe ich von mir aus auch nie behauptet.
        Habe die Frage dennoch gestellt, weil ja der ein oder andere mit Infos dazu auch nicht täglich hier liest und sich manchmal viel später noch sehr gute Hinweise ergeben. Im übrigen kann ich in den Forenregeln keinen konkreten Hinweis dazu finden, wie weit im Voraus man eine Frage stellen darf bis man sich damit im Sinne von Tests/Implementierung/Feedback/Rückfragen beschäftigen kann.
        
        Das alles heißt aber NICHT, dass es halbherzig gemeint ist, ich gelangweilt bin oder etwas abwinke! Das entspringt alles der Fantasie einer anderen Person und hat mit mir nichts zu tun. Ich bin für alle bisherigen und zukünftigen Beiträge dankbar und betrachte es keineswegs halbherzig.
        
        Wer also zum Thema gute Ideen hat ist weiterhin gebeten, sie hier zu posten.
        
        Danke
        
        Edit: Möchte damit unterstreichen, dass ich nicht frage, um andere zu beschäftigen sondern weil es mich wirklich interessiert. Und ich weiß auch, dass z.B. topeg noch auf eine Antwort zu dieser Callback Geschichte wartet. Kommt alles noch! Versprochen!
        Last edited: 2010-05-18 15:48:52 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        pq
        
        2010-05-18 15:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-05-18T13:46:05 bianca
        und ich komme auch nicht sofort dazu, mich intensiver damit zu beschäftigen. Habe ich von mir aus auch nie behauptet.
        
        ah ja, das zeitmanagement. auch du. dann lass bitte in zukunft solche aussagen wie
        "Sieh Du lieber zu, dass Du mit Deinem Zeitmanagement zurecht kommst, siehe anderer Thread gestern oder so...."
        anscheinend trifft uns das zeitproblem ja doch alle. ;-)
        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
        
        +2 replies
        
        bianca
        
        2010-05-18 16:06
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Eigentlich sollte mein Post wieder zum Thema zurückführen, weil wir den Rest ja schon abgesplittet hatten, zumindest war dies eines meiner beiden Anliegen. Warum jetzt dies?
        
        Im übrigen: Ja, das Zeitmanagement trifft uns natürlich alle. Und ich darf daran erinnern, dass Du im Post msg #137218 unaufgefordert und unbegründet damit begonnen hast, Dich über meine Zeit und Prioritäten auszulassen und hast mein Anliegen dann in msg #137222 als halbherzig und gelangweilt beleidigt, weil Deine mir unbekannten Erwartungen anscheinend nicht erfüllt wurden.
        Insofern brauchst Du hier jetzt nicht Gegenhalten, Du hast damit begonnen, nicht ich.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2010-05-18 16:15
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Bitte klärt das per PN miteinander.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        topeg
        
        2010-05-18 16:20
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich kann mir vorstellen, das nicht alle so perl-begeistert sind wie ich, und sich 24/7 mit perl beschäftigen. :-)
        
        +2 replies
        
        pq
        
        2010-05-18 16:33
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das kann ich mir auch vorstellen.
        wenn ich jedoch sehe, dass sich der fragesteller derweil im forum aufhält und sich mit anderen threads beschäftigt und fleissig postet und versucht, perl-module zu installieren, um ein anderes programm auszuprobieren, was hier jemand gepostet hat, also sich durchaus mit perl beschäftigt, nehme ich eben an, was ich auch zum ausdruck gebracht habe, dass es wohl doch nicht so wichtig war und mein kollege sich möglicherweise umsonst die arbeit gemacht hätte (wenn ich nicht selbst nachgeschaut und es rausgefunden hätte).
        nichts anderes hab ich zum ausdruck gebracht.
        wenn jemand 2 tage nicht im forum eingeloggt zu sehen wäre, würde ich auch nicht nachfragen, da ich dann tatsächlich annehmen würde, er habe anderes zu tun =)
        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
        
        esskar
        
        2010-05-18 16:36
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        naja, ich programmiere jeden tag, mal in Perl, mal in was anderem. Und auch mich inetressieren manchmal heute schon themen, für die ich erst nächstes jahr richtig zeit finde.
        
        aber, manchmal wartet man einfach auf ein "danke für die antwort/mühe".

View all threads created 2010-05-16 17:33.