Richtige Pfade beim Community Script (solved) (Perl/CGI)

[thread]19497[/thread]

Richtige Pfade beim Community Script [solved]

Tags: perl5 CGI Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+26 replies
awangard

2015-02-07 21:30
User since
2015-02-05
27 articles
BenutzerIn
Hallo Leute, ich will ein einfaches Community script auf meinem Server installieren.
Laut meinem Server von (Plesk) muss ich die ganzen Dateien in das Ordner "httpdocs" rein kopieren. Server unterstützt Perl , sowie CGI.

In dem Script sehen alle Pfade so aus:
Code (perl): (dl )

1 2 3 4 5

require "../domain.txt"; require "../konfiguration.txt"; # datenbank Verzeichniss (so belassen) $datenbank7="$datenbank7"; $dat_kategorien="../kategorien.txt";
Mein Server erkennt aber die Pfade nicht und ich muss jedes Pfad in einzelne Dateien manuel ändern, und zwar so:
Code (perl): (dl )

1 2 3 4 5

require "/var/www/vhosts/domain.de/httpdocs/cgi-bin/domain.txt"; require "/var/www/vhosts/domain.de/httpdocs/cgi-bin/konfiguration.txt"; # datenbank Verzeichniss (so belassen) $datenbank7="$datenbank7"; $dat_kategorien="/var/www/vhosts/domain.de/httpdocs/cgi-bin/kategorien.txt";
Es sind einfach zu viele Dateien, kann man das irgendwie umgehen, dass der Server die Pfade, die mit ../ anfangen, automatisch erkennt ?
Last edited: 2015-02-07 21:31:55 +0100 (CET)
- +3 replies
- lichtkind
  
  2015-02-07 21:51
  
  User since
  2004-03-22
  5666 articles
  ModeratorIn + EditorIn
  
  ja require schaut in Pfaden nach die alle in @INC sind, schau mal perlvar.
  
  gibts auch in der shell unter
  
  perldoc perlvar
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - deleted 2015-02-11 19:03
  - awangard
    
    2015-02-11 19:07
    
    User since
    2015-02-05
    27 articles
    BenutzerIn
    
    was bedeuted @INC und wo kann man es finden bzw. ändern ?
    
    kann man @INC rausnehmen oder so, damit der server die Pfade lesen kann?
    oder was braucht man dazu?
- +4 replies
- rosti
  
  2015-02-07 21:55
  User since
  2011-03-19
  2948 articles
  BenutzerIn
  Code (perl): (dl )
  
  use lib "/var/www/vhosts/domain.de/httpdocs/cgi-bin/";
  
  im main-Script. Ich würde den Pfad aber woanders hinlegen. Es genügt dann ein require 'file.txt'; oder wie auch immer die Dateien heißen.
  - +2 replies
  - awangard
    
    2015-02-07 22:06
    User since
    2015-02-05
    27 articles
    BenutzerIn
    
    soll ich jetzt in jeder .pl datei ganz oben
    
    Code (perl): (dl )
    
    use lib "/var/www/vhosts/domain.de/httpdocs/cgi-bin/";
    
    eingeben, damit er die Pfade ../ automatisch erkennt ja ?
    - rosti
      
      2015-02-07 22:15
      
      User since
      2011-03-19
      2948 articles
      BenutzerIn
      
      Quote
      Programmieren ist ein Handwerk. Das musst Du, wie jedes Handwerk, selbst erlernen
      (Niklaus Wirth).
      
      Dazu gehört auch, wie Du Deinen Code organisierst: Möglichst so, dass er wartungsfreundlich und überschaubar ist.
      
      Schöne Grüße ;)
      
      Edit, ein bischen ausführlicher: Jede Perl-Anwendung, sei es als CGI fürs Web oder ein Script für die Kommandozeile, hat eine main. Diese main befindet sich in der ausführbaren Datei, das ist die package main; auch dann, wenn sie nicht explizit als Solche ausgewiesen ist. Eine main (das ausführbare Script) kann CODE-Sourcen weiterer Dateien einbinden mit use, require oder do (guck Dir die Unterschiede an).
      
      Fürs Einbinden weiterer Dateien mit o.g. Operationen sind die Pfade im Array @INC ausschlaggebend.
      
      Tipp:
      
      Code (perl): (dl )
      
      print "@INC";
      
      zeigt Dir diese Pfade. Du kannst das @INC-Array erweitern wie jedes andere Array, empfehlenswert dazu ist das Pragma use lib qw(pfad1 pfad2 usw); womit Du zusätzliche Lib-Pfade einbinden kannst, use lib sorgt dafür, dass die hinzugefügten Pfade nicht doppelt oder dreifach im @INC stehen, sondern nur einmal.
      
      In der Regel ist das Setzen eigener Lib-Pfade nur in der main erforderlich, es ist jedoch möglch, in externen Dateien auch weitere Lib-Pfade hinzuzufügen. Tipp: EIN zusätzlicher Lib-Pfad in der main gesetzt, weist den Weg für ALLE anderen zu kompilierenden Ressourcen.
      
      Ein eigener Lib-Pfad muss nicht unbedingt relativ zu dem Verzeichnis sein, in welchem sich das ausführbare Script befindet. D.h., Du kannst einen eigenen Lib-Pfad sonstwo hin legen, im Fall einer Webanwendung jedoch so, dass die darin liegenden Dateien nicht über den Browser erreichbar sind (außerhalb DOCUMENT_ROOT).
      
      Das Verzeichnis /cgi-bin/ ist per Apache-Config i.d.R. ein ScriptAlias, d.h., vom Browser aus gesehen gibt es da überhaupt keinen Bezug zum Dateisystem (diesen Bezug gibt es nur in der Serverkonfiguration). Über einen ScriptAlias im Browser aufgerufene Webressourcen versucht der Apache auszuführen. Es empfiehlt sich, im /cgi-bin/ nur ausführbare Dateien zu haben. Allein wegen der Übersicht: Konfigurationsdateien, weitere Moduldateien raus aus /cgi-bin/ und ab damit in das eigene Lib-Verzeichnis.
      
      Soweit fürs Erste ;)
      Last edited: 2015-02-08 11:09:50 +0100 (CET)
  - awangard
    
    2015-02-11 19:04
    
    User since
    2015-02-05
    27 articles
    BenutzerIn
    
    "use lib" hat leider nichts gebracht =(
    
    der fehler besteht weiterhin, ...kann die pfade ../ nicht erkennen.
- +18 replies
- pq
  
  2015-02-07 21:55
  User since
  2003-08-04
  12204 articles
  Admin1
  die dateien liegen alle in cgi-bin? das solltest du mal überdenken.
  dazu passt im übrigen nicht, dass du in der ersten variante ein verzeichnis nach oben gehst (..). ist also fraglich, wo die dateien tatsächlich liegen. darüber solltest du dir klar werden. ich gehe jetzt mal davon aus, dass die dateien ein verzeichnis weiter oben liegen.
  
  und dateien mit code sollten nicht .txt benannt werden.
  
  du hast die möglichkeit, FindBin zu benutzen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  # am anfang use FindBin '$Bin'; # $Bin enthält jetzt das verzeichnis, in dem das CGI-skript liegt # dann entweder mit vollem Pfad: require "$Bin/../datei1.txt"; require "$Bin/../datei2.txt"; # oder einmal den Pfad bekannt geben: use lib "$Bin/.."; require "datei1.txt"; require "datei2.txt";
  
  Last edited: 2015-02-07 22:14:21 +0100 (CET)
  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
  - +7 replies
  - rosti
    
    2015-02-07 21:57
    User since
    2011-03-19
    2948 articles
    BenutzerIn
    
    Code (perl): (dl )
    
    use lib "$Bin/..";
    
    Dir ist klar, dass zu diesem Zeitpunkt noch keine Variablen initialisiert sind?
    - +6 replies
    - pq
      
      2015-02-07 21:59
      
      User since
      2003-08-04
      12204 articles
      Admin1
      
      falsch gedacht, rosti.
      $Bin ist initialisiert. FindBin
      guck dir ggfs. mal FindBin.pm an.
      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
      - +5 replies
      - rosti
        
        2015-02-07 22:04
        
        User since
        2011-03-19
        2948 articles
        BenutzerIn
        
        2015-02-07T20:59:31 pq
        falsch gedacht, rosti.
        $Bin ist initialisiert. FindBin
        guck dir ggfs. mal FindBin.pm an.
        
        FindBin ist klar;)
        
        Code (perl): (dl )
        
        use Findbin '$Bin';
        
        kannte ich noch nicht.
        
        +4 replies
        
        pq
        
        2015-02-07 22:09
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        aus der doku (steht ganz oben, leicht zu finden):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        use FindBin; use lib "$FindBin::Bin/../lib"; or use FindBin qw($Bin); use lib "$Bin/../lib";
        
        also egal welche variante, die variable ist initialisiert.
        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
        
        rosti
        
        2015-02-07 22:12
        
        User since
        2011-03-19
        2948 articles
        BenutzerIn
        
        Irgendwo steht aber auch was von Case sensitive ;)
        
        +2 replies
        
        pq
        
        2015-02-07 22:15
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        nun, danke für den hinweis, dass ich das b aus versehen kleingeschrieben habe. ist korrigiert.
        dann behältst du ja wenigstens mit etwas recht.
        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
        
        rosti
        
        2015-02-07 22:16
        
        User since
        2011-03-19
        2948 articles
        BenutzerIn
        
        2015-02-07T21:15:24 pq
        nun, danke für den hinweis, dass ich das b aus versehen kleingeschrieben habe. ist korrigiert.
        dann behältst du ja wenigstens mit etwas recht.
        
        Aber liebe PQ, __WIR__ beide habe doch immer Recht ;)
  - +10 replies
  - awangard
    
    2015-02-11 19:05
    
    User since
    2015-02-05
    27 articles
    BenutzerIn
    
    nein, bilder, stylesheets, htcacces, html sind nicht in cgi-bin.
    
    use FindBin funkioniert auch nicht (
    - +9 replies
    - pq
      
      2015-02-11 19:31
      
      User since
      2003-08-04
      12204 articles
      Admin1
      
      das ist zuwenig information. FindBin funktioniert normalerweise.
      vermutlich gibst du die pfade einfach falsch an.
      da musst du etwas debugging betreiben oder jemanden draufgucken lassen.
      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
      - +8 replies
      - awangard
        
        2015-02-11 19:48
        
        User since
        2015-02-05
        27 articles
        BenutzerIn
        
        dann wende ich FindBin falsch an .
        
        iST ES SO RICHTIG ?
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        use CGI::Carp qw(fatalsToBrowser); use Time::Local; use URI; use Encode; use LWP::Simple qw(!head); use CGI qw(:standard -no_debug); use lib "$Bin/.."; #========================================================================== require "domain.txt"; require "konfiguration.txt"; require "an_links.txt"; require "an_kats.txt"; require "urltuning.txt"; require "styles.txt"; require "verzeichnispfad.txt"; require "modrewrite.txt"; require "module.txt"; require "thumbs.txt"; #========================================================================== require "./module/funktionen.pl"; require "./module/rotator.pl"; require "./module/eintraege.pl"; require "./module/navi.pl"; require "./module/kats.pl";
        
        +7 replies
        
        pq
        
        2015-02-11 19:58
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        da fehlt schonmal die zeile
        use FindBin '$Bin';
        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
        
        +6 replies
        
        awangard
        
        2015-02-11 20:00
        
        User since
        2015-02-05
        27 articles
        BenutzerIn
        
        wo muss denn diese zeile rein?
        
        +2 replies
        
        lichtkind
        
        2015-02-11 20:05
        
        User since
        2004-03-22
        5666 articles
        ModeratorIn + EditorIn
        
        das ist egal weils zur compile time ausgeführt wird
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        pq
        
        2015-02-11 20:06
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        nicht ganz, es muss noch vor dem use lib stehen.
        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
        
        2015-02-11 20:05
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        wie ich in msg #179541 schrieb, möglichst an den anfang (zumindest vor die entsprechenden require-Zeilen und vor das use lib)
        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
        
        awangard
        
        2015-02-11 20:11
        
        User since
        2015-02-05
        27 articles
        BenutzerIn
        
        ist es jetzt so richtig?
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
        
        use CGI::Carp qw(fatalsToBrowser); use Time::Local; use URI; use Encode; use LWP::Simple qw(!head); use CGI qw(:standard -no_debug); use FindBin '$Bin'; #========================================================================== use lib "$Bin/var/www/vhosts/domain.de/httpdocs/cgi-bin/"; require "domain.txt"; require "konfiguration.txt"; require "an_links.txt"; require "an_kats.txt"; require "urltuning.txt"; require "styles.txt"; require "verzeichnispfad.txt"; require "modrewrite.txt"; require "module.txt"; require "thumbs.txt"; #========================================================================== use lib "$Bin/var/www/vhosts/domain.de/httpdocs/cgi-bin/"; require "./module/funktionen.pl"; require "./module/rotator.pl"; require "./module/eintraege.pl"; require "./module/navi.pl"; require "./module/kats.pl";
        
        pq
        
        2015-02-11 20:28
        
        User since
        2003-08-04
        12204 articles
        Admin1
        
        entweder oder.
        use FindBin '$Bin' ermittelt den Pfad des Verzeichnisses, in dem das Skript liegt. Also /irgendwas/cgi-bin steht dann in der Variable $Bin.
        Das erspart dir, den absoluten Pfad einzugeben.
        Daher brauchst du nur noch den relativen Pfad bei use lib anzugeben.
        
        Wenn du den absoluten Pfad angibst bei use lib, brauchst du das FindBin nicht.
        
        also entweder
        use lib "$Bin";
        oder
        use lib "/var/www/vhosts/domain.de/httpdocs/cgi-bin";
        
        oder wenn die dateien ein verzeichnis weiter oben liegen:
        use lib "$Bin/..";
        oder
        use lib "/var/www/vhosts/domain.de/httpdocs";
        
        wo die dateien liegen, weisst nur du selbst. das scheint immer noch das grösste problem zu sein.
        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 2015-02-07 21:30.