Prüfen ob ein Package definiert ist? (gelöst) (Allgemeines zu Perl)

[thread]20696[/thread]

Prüfen ob ein Package definiert ist? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+7 replies
Linuxer

2019-11-20 19:31

User since
2006-01-27
3870 Artikel
HausmeisterIn

Hi,

ich kann ja mehrere packages innerhalb eines Skriptes definieren und später benutzen.
Nun stellt sich mir gerade die Frage, ob ich im main prüfen kann, welche packages definiert worden sind, bzw. ob ein bestimmtes package definiert ist?

Hier ein Beispiel-Code, der mit Workaround auf Linux funktioniert:

skript.pl (6.9kb)

Ausgeführt:
Ausgaben (1.1kb)

Momentan bräuchte ich es als packages in einer Datei.
Ich weiß, ich könnte zu jedem Package eine eigene Datei erstellen und diese dann versuchen zu laden und dieses auf Erfolg prüfen.

Aber derzeit interessiert mich eben die Frage, ob ich prüfen kann, dass ein bestimmter Namensraum per package definiert wurde oder nicht.

Hoffe, ich konnte mein Anliegen ausreichend erklären.

Ideen? Hinweise? Übersehe ich etwas?

edit: more-Tags eingebaut; Tippfehler verjagt
Last edited: 2019-11-21 00:01:47 +0100 (CET)
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!
- Linuxer
  
  2019-11-20 19:54
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Bin gerade unterwegs und kann es nicht testen.
  Ich hatte den Gedanken, ob das evtl. aus %INC oder @INC auszulesen ist.
  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!
- +5 replies
- Daxim
  
  2019-11-20 21:24
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  package foo; package bar; package main; sub package_exists { my ($package) = @_; return exists {%::}->{$package . '::'}; } for (qw(foo bar quux)) { print "$_ ok\n" if package_exists $_; } __END_ foo ok bar ok
  
  Siehe auch: Package::Stash
  - +4 replies
  - Linuxer
    
    2019-11-20 22:28
    
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    Genau sowas suchte ich. Vielen Dank!
    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!
    - +3 replies
    - hlubenow
      
      2019-11-20 22:29
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Eigentlich hat Daxim schon alles beantwortet. Trotzdem nochmal mein Ansatz:
      
      In dem Buch "Advanced Perl", Kapitel 6.8, ist was zum Thema beschrieben.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      #!/usr/bin/perl use warnings; use strict; package FirstPackage { } package SecondPackage { } package ThirdPackage { } package main { for my $name (keys (%main::)) { if ($name =~ m/::$/) { print "$name\n"; } } }
      
      (Ich finde es z.B. cool, daß man packages einfach wie Funktionen mit geschweiften Klammern umgeben kann (das macht vor allem bei Klassen Sinn). Leider sieht man diese Syntax in Lehrdokumenten selten.)
      
      Edit: Zweifelhaften Link entfernt.
      Last edited: 2019-11-20 23:15:39 +0100 (CET)
      - +2 replies
      - Linuxer
        
        2019-11-20 23:03
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Mein Dank auch an Dich.
        
        Eine Bitte hätte ich zusätzlich:
        Die Rechtmäßigkeit der mik.ua Quelle ist mehr als zweifelhaft.
        Bitte entferne daher den Link.
        
        Ein verbleibender Hinweis auf "Advanced Perl, Kapitel 6.8" wäre aber nett ;-)
        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!
        
        hlubenow
        
        2019-11-20 23:16
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Oh, sorry. Erledigt.

View all threads created 2019-11-20 19:31.