@INC Problem (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-14 20:44:27
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]21556[/thread]

submit to reddit

@INC Problem [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+18 replies
Gast Gast

2024-04-28 17:00
Das hier:
Code: (dl )

1 2 3 4

BEGIN { $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~; $1 ? (unshift @INC, $1) : (@INC = reverse @INC); }
hat bisher immer funktioniert.
Bin jetzt auf einem neuen Server (OS Alma8) und es funktioniert nicht mehr.
Hat jemand einen Änderungsvorschlag?
Last edited: 2024-04-28 17:06:45 +0200 (CEST)
- GwenDragon
  
  2024-04-28 17:48
  User since
  2005-01-17
  14600 Artikel
  Admin1
  Klapp bei mir.
  
  a.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; use 5.024; use utf8; BEGIN { $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~; $1 ? (unshift @INC, $1) : (@INC = reverse @INC); } say "Programm: $0"; say '@INC: '; say for @INC;
  
  Auf Debian 12:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  test@debora:~$ perl /media/sf_SHARED/a/a.pl Programm: /media/sf_SHARED/a/a.pl @INC: /media/sf_SHARED/a /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.36.0 /usr/local/share/perl/5.36.0 /usr/lib/x86_64-linux-gnu/perl5/5.36 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl-base /usr/lib/x86_64-linux-gnu/perl/5.36 /usr/share/perl/5.36 /usr/local/lib/site_perl
  
  Auf Windows 11:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  T:\>perl X:\media\SHARED\a\a.pl Programm: X:\media\SHARED\a\a.pl @INC: X:\media\SHARED\a C:/strawberry/perl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib
  
  Last edited: 2024-04-28 18:20:39 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- Linuxer
  
  2024-04-28 17:57
  
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  
  Hallo,
  
  was heißt "funktioniert nicht mehr"?
  
  Passiert nicht das erwartete? Oder kommt eine Warnung oder Fehlermeldung? Welche?
  
  Beschreib doch mal genauer, dann kann man vielleicht auch besser beraten.
  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!
  - +2 replies
  - GwenDragon
    
    2024-04-28 18:01
    User since
    2005-01-17
    14600 Artikel
    Admin1
    
    Vielleicht befindet sich der Gast genau im Verzeichnis des Perl-Programms und hat das gestartet, dann kann @INC nix außer der aus der Perl-Installation selbst enthalten, denn $0 ist ja ohne Pfad.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    X:\media\SHARED\a>perl a.pl Programm: a.pl @INC: C:/strawberry/perl/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/site/lib
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - haj
      
      2024-04-29 00:00
      
      User since
      2015-01-07
      531 Artikel
      BenutzerIn
      
      2024-04-28T16:01:06 GwenDragon
      Vielleicht befindet sich der Gast genau im Verzeichnis des Perl-Programms und hat das gestartet, dann kann @INC nix außer der aus der Perl-Installation selbst enthalten, denn $0 ist ja ohne Pfad.
      
      Das ist schon eine wahrscheinliche Erklärung, warum es "auf einem neuen Server" nicht mehr klappt. In grauer Vorzeit war das aktuelle Verzeichnis in @INC. Alma8 kommt mit Perl 5.26, in dieser Version war das erstmalig nicht der Fall.
      
      Wenn also $0 kein Verzeichnis enthält, dann hat der Code früher nix sinnvolles gemacht und sich drauf verlassen, dass das aktuelle Verzeichnis in @INC ist. Mit Perl 5.26 macht der Code immer noch nix sinnvolles, aber das aktuelle Verzeichnis ist eben nicht mehr in @INC.
      
      Der Änderungsvorschlag wäre in der Tat (wie schon von rosti angegeben), FindBin zu verwenden. $FindBin::Bin ermittelt zuverlässig das, was $1 in dem angegebenen Code zu tun versucht.
- +11 replies
- rosti
  
  2024-04-28 19:41
  
  User since
  2011-03-19
  3246 Artikel
  BenutzerIn
  
  siehe FindBin
  
  http://rolfrost.de/perlex.html?m=FindBin
  
  also mach das besser damit.
  
  .
  - +10 replies
  - Gast Gast
    
    2024-04-29 14:29
    
    Das steht auf metacpan geschrieben:
    you should avoid using FindBin in modules that you plan to put on CPAN.
    
    Was mache ich nun als Ersatz für meinen Begin-Block?
    Last edited: 2024-04-29 15:04:33 +0200 (CEST)
    - +2 replies
    - lichtkind
      
      2024-04-29 15:06
      
      User since
      2004-03-22
      5681 Artikel
      ModeratorIn + EditorIn
      
      Du bist doch kein CPAN Autor, oder?
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - Gast Gast
        
        2024-04-29 15:16
        
        Nein bin ich nicht - aber einige meiner Scripte sind Distributionen
        Last edited: 2024-04-29 15:26:34 +0200 (CEST)
    - Linuxer
      
      2024-04-29 15:38
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Da steht aber auch mehr als nur der zitierte Halbsatz. Der gesamte Absatz, in dem dieser Halbsatz steht, sollte beachtet werden!
      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
    - rosti
      
      2024-04-29 17:26
      
      User since
      2011-03-19
      3246 Artikel
      BenutzerIn
      
      Sorry, das da
      
      Code (perl): (dl )
      
      1 2 3 4
      
      BEGIN{ use FindBin qw($Bin); use lib qw($Bin); }
      
      hatte ich vergessen ;)
      
      Propiers aus, bei mir tut es.
      
      .
      - haj
        
        2024-04-29 18:11
        
        User since
        2015-01-07
        531 Artikel
        BenutzerIn
        
        2024-04-29T15:26:24 rosti
        
        Code (perl): (dl )
        
        use lib qw($Bin);
        
        In der Zeile muss anstelle von qw($Bin) einfach $Bin stehen.
      - +3 replies
      - Gast Gast
        
        2024-04-30 12:58
        
        Für die Belange der betreffenden Scripte reicht das hier
        
        use lib ".";
        
        völlig aus.
        Dank an alle die sich um eine Lösung gekümmert haben.
        Last edited: 2024-04-30 13:49:06 +0200 (CEST)
        
        +2 replies
        
        rosti
        
        2024-04-30 18:31
        
        User since
        2011-03-19
        3246 Artikel
        BenutzerIn
        
        Falls Dir der Unterschied nicht klar ist:
        
        . ist das Verzeichnis von dem aus der Perlinterpreter aufgerufen wird
        $FinBin::Bin jedoch ist das Verzeichnis in dem sich das Perlscript befindet.
        
        Ds heißt, daß . und $FinBin::Bin unterschiedliche Verzeichnisse sein können.
        
        In Fakt bekommst Du das Verzeichnis . mit
        
        Code (perl): (dl )
        
        use Cwd qw(getcwd);
        
        Gast Gast
        
        2024-05-01 13:53
        
        2024-04-30T16:31:56 rosti
        Falls Dir der Unterschied nicht klar ist:
        
        . ist das Verzeichnis von dem aus der Perlinterpreter aufgerufen wird
        $FinBin::Bin jedoch ist das Verzeichnis in dem sich das Perlscript befindet.
        
        Ds heißt, daß . und $FinBin::Bin unterschiedliche Verzeichnisse sein können.
        
        In Fakt bekommst Du das Verzeichnis . mit
        
        Code (perl): (dl )
        
        use Cwd qw(getcwd);
        
        Ja - ist mir klar.
        Allerdings funktioniert alles mit use lib "."; wie es immer funktioniert hat.
        Praxis ist: wenn alles funktioniert und keiner weiß warum. ;-)
        Last edited: 2024-05-01 13:59:25 +0200 (CEST)
    - barney
      
      2024-04-29 18:07
      
      User since
      2008-08-31
      134 Artikel
      BenutzerIn
      
      Wenn man FindBin nicht in CPAN Modulen verwenden soll, dann bin vermute ich mal dass der initiale Hack mit `$0` auch nicht angebracht ist.
      
      Anders, für inhouse Anwendungen habe ich keine Hemmungen FindBin zu verwenden.
- GwenDragon
  
  2024-04-29 15:29
  
  User since
  2005-01-17
  14600 Artikel
  Admin1
  
  @Gast
  Quote
  Bin jetzt auf einem neuen Server (OS Alma8) und es funktioniert nicht mehr.
  Hat jemand einen Änderungsvorschlag?
  Und wofür und wie wird das dann verwendet und eingebunden? In einem Shell-Skript? Ein CGI? Ein Cron-Job?
  Welche Perl-Version?
  Hast du mal das Skript aus msg #196049 in der shell ausprobiert?
  Last edited: 2024-04-29 16:59:17 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2024-04-29 18:23
  
  User since
  2005-01-17
  14600 Artikel
  Admin1
  
  Je nach Umgebung kann $0 auch anders sein, nicht immer das was du vielleicht erwartest.
  ⇒ https://perldoc.perl.org/variables/$0
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2024-04-28 17:00.