relative Pfadangaben in Perlscripten ermöglichen, aber WO? (Perl/CGI)

[thread]15073[/thread]

relative Pfadangaben in Perlscripten ermöglichen, aber WO?

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
Gast Wolfgang_muc

2010-05-29 11:21

Ich möchte in meinen PerlsScripts nicht immer die komplette DocumentRoot angeben müssen, sondern nur das Verzeichnis relativ zum aufrufenden Script - aber wo stell ich das im Apache ein?

Beispiel: Statt open FILE, "/srv/www/vhosts/domain/httpdocs/datei.txt")

soll es heissen:

open(FILE, "datei.txt")

Merkwürdigerweise funktionierts in PHP Scripten problemlos.
Last edited: 2010-05-29 11:29:04 +0200 (CEST)
- moritz
  
  2010-05-29 11:29
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  chdir '/srv/www/vhosts/domain/httpdocs/' or die "Can't chdir to documentroot: $!"; open my $h, '<', 'file_with_relative_path' or die $!; ...
  
  Perl 6 - Perls Zukunft
- +7 replies
- pktm
  
  2010-05-29 13:38
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Hallo!
  
  Du kannst ausgehend von deinem Skript die Dateien relativ ansprechen.
  Wenn die Datei im selben Vereichnis liegt wie dein Skript, dann kannst du tatsächlich sowas wie open(FILE, "datei.txt") or die($!); verwenden.
  
  Edit: (s. Beitrag von pq): das stimmt nicht immer. Nimm einfach FindBin :)
  
  Hier ein paar Beispiele:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  # selbes Verzeichnis open(FILE, "datei.txt") or die($!); # oder: open(FILE, "./datei.txt") or die($!); # eins drüber: open(FILE, "./../datei.txt") or die($!); # eins drunter in Ordner "files" open(FILE, "files/datei.txt") or die($!); # oder: open(FILE, "./files/datei.txt") or die($!);
  
  Der Punkt am Anfang (.) ist das aktuelle Verzeichnis.
  
  Ich benutze auch gerne FindBin, um vollständige Pfade zu verwenden (ungetestet):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/Perl/bin/perl use strict; use warnings; use FindBin qw/$Bin/; use FileHandle; print "i'm in $Bin reading file $Bin/file.txt\n"; my $file = $Bin . '/file.txt'; my $fh = FileHandle->new($file, "<:encoding(UTF-8)") or die("Dannot open file: $!"); while( my $line = $fh->getline() ) { print $line; } $fh->close();
  
  hth, Alex
  Last edited: 2010-05-29 14:26:13 +0200 (CEST)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - pq
    
    2010-05-29 14:04
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2010-05-29T11:38:20 pktm
    Wenn die Datei im selben Vereichnis liegt wie dein Skript, dann kannst du tatsächlich sowas wie open(FILE, "datei.txt") or die($!); verwenden.
    
    wie kommst du darauf, dass der aktuelle pfad etwas damit zu tun hat, wo das skript liegt?
    beispiel:
    
    Code: (dl )
    
    1 2
    
    $ cd /tmp # /tmp ist aktuelles verzeichnis, "cwd" $ perl /home/user/bla.pl # verzeichnis des scripts ist /home/user
    
    es ist etwas anderes, dass normalerweise beim aufruf über CGI der apache in das skriptverzeichnis geht und damit das aktuelle verzeichnis das des scripts ist (scheint ja aber eben beim fragesteller gerade nicht so zu sein! grund könnte mod_perl sein, denn unter mod_perl ist das aktuelle verzeichnis nicht das des skriptes), aber der aktuelle pfad ist grundsätzlich was anderes als der pfad, in dem das skript liegt.
    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
  - Gast Wolfgang_muc
    
    2010-05-29 14:07
    
    Super! Funktioniert! VIELEN DANK!
    Last edited: 2010-05-29 14:11:55 +0200 (CEST)
    - pq
      
      2010-05-29 14:12
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Super! und wie kommst du in deinem originalposting auf die idee, dass es nicht funktioniert?
      
      im übrigen lies dir bitte meinen kommentar durch.
      das aktuelle verzeichnis ist etwas anderes als das verzeichnis, in dem das skript liegt, und wie ich schon sagte, wird das beim aufruf über CGI in der regel den gleichen wert haben, da der apache vor der ausführung in dieses verzeichnis reingeht.
      
      bei mod_perl ist das nicht so, deshalb würd ich mich auch nicht unbedingt drauf verlassen, sondern ggfs. FindBin verwenden, um zuerst selbst in das verzeichnis reinzugehn.
      Last edited: 2010-05-29 14:14:49 +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
  - +3 replies
  - pq
    
    2010-05-29 14:23
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    und ums nochmal deutlich zu machen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    $ cd /tmp $ cat ~/foo.pl #!/usr/bin/perl5.10 use strict; use warnings; open my $fh, "./datei.txt" or die "Konnte datei.txt nicht öffnen: $!"; $ cat ~/datei.txt datei! $ perl ~/foo.pl Konnte datei.txt nicht öffnen: Datei oder Verzeichnis nicht gefunden at ~/foo.pl line 5.
    
    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
    - pktm
      
      2010-05-29 14:30
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Dann hier zur besonderen Vollständigkeit noch die FindBin-Variante:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      #!/Perl/bin/perl use strict; use warnings; use FindBin qw/$Bin/; open my $fh, "$Bin/datei.txt" or die "Konnte datei.txt nicht öffnen: $!"; print "hurra!";
      
      Quote
      C:\Users\root>perl c:/Apache/cgi-bin/test/dir.pl
      hurra!
      C:\Users\root>
      
      http://www.intergastro-service.de (mein erstes CMS :) )
      - pq
        
        2010-05-29 14:36
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        und spätestens wenn man echte mod_perl handler benutzt, hat man dann gar kein "binary" mehr. unter mod_perl benutze ich deshalb dir_config, um z.b. den pfad der config-datei auszulesen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $inifile = $r->dir_config->get('inifile'); # und in der httpd config: # PerlSetVar inifile /path/to/foo.ini
        
        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

View all threads created 2010-05-29 11:21.