Pfad zu geladenem Modul anzeigen? (Allgemeines zu Perl)

[thread]14637[/thread]

Pfad zu geladenem Modul anzeigen?

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
pktm

2010-02-11 14:55

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Kann ich mir den Pfad zu dem Modul anzeigen lassen, das geladen wurde?
Wenn ich also 2mal CGI.pm irgendwo liegen habe, wie kann ich mir anzeigen lassen, welches davon geladen wurde und wo das liegt?

Ich habe hier ein System, das mir anzeigt, dass ein Modul in Version 1.04 installiert ist, aber es wird in Version 1.1 geladen. Aber ich wüsste nicht wo, daher die Idee, dass man den Pfad dazu irgendwie herausfindet.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- pq
  
  2010-02-11 14:58
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2
  
  print $INC{'CGI.pm'}; print $INC{'My/Other/Module.pm'};
  
  AFAIK sind das auch unter windows forward-slashes, so dass man portabel bei z.b. My::Other::Module die doppelpunkte durch ein / ersetzen kann und ein .pm dranhängen kann.
  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
  - pktm
    
    2010-02-11 15:24
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Besten Dank!
    http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- sid burn
  
  2010-02-11 15:08
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Oft reicht auch ein "perldoc -l Modul" aus.
  
  Code: (dl )
  
  1 2
  
  sidburn@sid:~$ perldoc -l CGI /home/sidburn/perl510/lib/5.10.1/CGI.pm
  
  Das gibt dir aus welches es lädt. Zum Suchen nutze ich meist locate. "locate CGI.pm" damit findet man schnell mal Duplikate.
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - pktm
    
    2010-02-11 15:26
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Ja, ich brauche das auch zum Debuggen von Skripten auf einem shared host ohne Shell. Aber jetzt weiß ich immerhin, dass ich nicht selbst noch irgendwo was veraltetes einbinde.
    http://www.intergastro-service.de (mein erstes CMS :) )
- betterworld
  
  2010-02-11 15:57
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Ich benutze dazu dieses Script:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl -lw use strict; eval { require Class::Inspector; my $file = Class::Inspector->resolved_filename($ARGV[0]); unless ($file) { warn "not found\n"; exit (1); } print $file; exit (0); }; die unless 1 == @ARGV; eval "require $ARGV[0]"; my $file = $ARGV[0]; $file =~ s#::#/#g; $file .= '.pm'; print $INC{$file} || die "not found\n";
  
  Das ist wohl mal irgendwann aus einem Einzeiler entstanden, ansonsten kann ich mir auch nicht erklaeren, warum ich da -w statt "use warnings" benutze ;-)
  
  Class::Inspector wird iirc auch von perldoc benutzt, um das Zeug zu finden. Gegenueber der Variante mit %INC hat es den Vorteil, dass das Modul selbst nicht geladen werden muss. Denn beim Laden wird ja auch Code ausgefuehrt, manchmal will man das vielleicht nicht (Acme::Bleech zum Beispiel ;-)
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2010-02-11 14:55.