Pfadangabe mit do (gelöst) (Allgemeines zu Perl)

[thread]18063[/thread]

Pfadangabe mit do [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+8 replies
1860gelb

2013-01-16 18:45
User since
2012-11-05
41 Artikel
BenutzerIn
Hallo,

möchte gerne mit do externen Code ausführen lassen nur ich habe folgendes Problem:

Der externe Code liegt in einem extra Ordner;
Wenn ich die Datei in das selbe Verzeichniss wie den bestehenden Code verschiebe kann ich über ./externenCode.pl zugreifen
möchte ich aber in den Ordner über
./Ordner/externenCode.pl zugreifen funktioniert dies nicht;

also nochmals hier genauer:

So funktionierts:
Code: (dl )

1 2

my $path = './test.pl'; do $path;
So nich:
Code: (dl )

1 2

my $path = './Namenimport/test.pl'; do $path;
Weiß jemand wieso?!?!?

Danke!
- +2 replies
- bianca
  
  2013-01-16 18:53
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Läuft das über einen Webserver und das übergeordnete Verzeichnis ist für diesen nicht freigegeben?
  10 print "Hallo"
  20 goto 10
  - 1860gelb
    
    2013-01-16 19:30
    
    User since
    2012-11-05
    41 Artikel
    BenutzerIn
    
    läuft über KEINEN Webserver;
    
    ist alles lokal am pc ;)
- +3 replies
- GwenDragon
  
  2013-01-16 19:14
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Der Pfad ist bei dir relativ zum Programmverzeichnis.
  
  Was passiert denn, wenn du do so verwendest?
  
  Code (perl): (dl )
  
  1 2
  
  my $path = './Namenimport/test.pl'; do $path or die $!;
  
  Absolute Pfade sind eher ein Garant für problemloses Einbinden externen Codes.
  Last edited: 2013-01-16 19:15:33 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - 1860gelb
    
    2013-01-16 19:29
    
    User since
    2012-11-05
    41 Artikel
    BenutzerIn
    
    kriege folgenden Fehler:
    
    Tk::Error: No such file or directory at deskpad_german_bearbeitet line 220.
    Tk callback for .menu.menu
    Tk::__ANON__ at /Library/Perl/5.12/darwin-thread-multi-2level/Tk.pm line 251
    Tk::Menu::Invoke at /Library/Perl/5.12/darwin-thread-multi-2level/Tk/Menu.pm line 532
    <ButtonRelease>
    (command bound to event)
    
    das Problem ist nur das ich das Programm weitergebe und das mit den Pfadangaben nicht hinhaut?!
    
    Eigentlich müsste es aber funktionieren oder?!
    - GwenDragon
      
      2013-01-16 19:59
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Wenn du wissen willst, wo dein Programm leigt, gibt es FindBin.
      
      Mit folgendem Schnippsel am Anfang deines Programms kommst du zu deinem Programmverzeichnis.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      our $progdir; BEGIN { use FindBin qw($Bin); $progdir = $Bin; } # und später zu Laden der externen "Module" do "$progdir/lib/muh/maeh/cow.pl";
      
      Oder du fieselst es aus $0 raus.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- bianca
  
  2013-01-16 20:12
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2013-01-16T17:45:46 1860gelb
  möchte ich aber in den Ordner über
  ./Ordner/externenCode.pl zugreifen
  
  Ich bin hier unsicher, wie genau nun die Struktur aussieht. Für den Wechsel in einen übergeordneten Ordner würde ich .. am Anfang verwenden. Aber ist dein Wort "über" hier als übergeordnet gemeint?
  Zeig uns doch mal die genaue Verzeichnisstuktur.
  10 print "Hallo"
  20 goto 10
  - 1860gelb
    
    2013-01-16 21:08
    
    User since
    2012-11-05
    41 Artikel
    BenutzerIn
    
    Fehler ist gefunden!
    
    Problem war das ich in dem externen Code wiederrum eine Datei öffne!
    Diese verlangte wiederrum einen anderen Pfad!
    
    Letztendlich bin ich aber mit FindBin draufgekommen!
    
    Vielen Dank!!!!

View all threads created 2013-01-16 18:45.