1 2 3 4 5
require "../domain.txt"; require "../konfiguration.txt"; # datenbank Verzeichniss (so belassen) $datenbank7="$datenbank7"; $dat_kategorien="../kategorien.txt";
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";
use lib "/var/www/vhosts/domain.de/httpdocs/cgi-bin/";
use lib "/var/www/vhosts/domain.de/httpdocs/cgi-bin/";
Quote(Niklaus Wirth).Programmieren ist ein Handwerk. Das musst Du, wie jedes Handwerk, selbst erlernen
print "@INC";
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";
use lib "$Bin/..";
1 2 3 4 5 6 7
use FindBin; use lib "$FindBin::Bin/../lib"; or use FindBin qw($Bin); use lib "$Bin/../lib";
2015-02-07T21:15:24 pqnun, danke für den hinweis, dass ich das b aus versehen kleingeschrieben habe. ist korrigiert.
dann behältst du ja wenigstens mit etwas recht.
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";
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";