Perl Config Datei auslagern

[MightyTuX]

Moin, ich bin noch ein anfänger in Sachen Perl und CGI aber versuche mich erade damit.
Mein erster Versuch (ein Weblog) ist auch fast vor seiner ersten Fertigstellung. doch nun würde ich gerne die von mir definierten Variablen in ein exterenes Config File schmeissen und zu begin einlesen.
Mit folgenden Code habe ich gedacht ein wenig weiter zu kommen aber das funzt so nicht. Gibt es vielleicht eine einfachere Art wie in PHP wo man einfach ein @include ("config.inc.php") machen kann?

Code: Alles auswählen

my $CONFIGFILE = "blog.cfg";
require "$CONFIGFILE";

open(CONFIG, "<$CONFIGFILE")
                or print STDERR "Config File not available at $CONFIGFILE $!";
.
.
.                
close (CONFIG);

mfg Mighty

[harre]

Servus,
Ein "require <datei>;" sollte doch genügen, um Variablen im Script zu definieren?

Das "Open..." mußt weglassen, weil du damit die Datei ja nur zum Bearbeiten einliest.

Gruß
Harre

[MightyTuX]

Danke für die schnelle Antwort. Das hatte ich auch schon probiert aber irgendwie werden die Variablen die ich dahin auslager nciht eingelesen ....

Code: Alles auswählen

Global symbol "$DBTYP" requires explicit package name at blog.cgi line 18.
Global symbol "$DATABASE" requires explicit package name at blog.cgi line 18.
Global symbol "$HOST" requires explicit package name at blog.cgi line 18.
Global symbol "$USERNAME" requires explicit package name at blog.cgi line 21.
Global symbol "$PASSWORT" requires explicit package name at blog.cgi line 21.

in der Config sind die Variablen so eingetragen ...

Code: Alles auswählen

;
my $DATABASE = 'test';
my $HOST = 'localhost';
my $DBTYP = 'mysql';
my $USERNAME = 'testuser';
my $PASSWORT = 'blablub';

Die gleichen Variablen im cgi selbst führen zu der gewünschten Ausgabe ..

[godsmacker]

Schau Dir doch eines der zahlreichen Config Module im CPAN an. Config::Simple ist vielleicht passend.

-Flo

[harre]

is auch ne Möglichkeit, warum auch alles selberschreiben

es gibt sogar schon "debianisierte" Module

Code: Alles auswählen

apt-cache search libconfigfile-perl
apt-cache search libconfig-simple-perl

vielleicht ist was passendes dabei...

Grüße
Harre

[gms]

vielleicht ist was passendes dabei...

wenn nicht, laß einfach das "my" bei der Variablendeklaration weg, oder verwende "our"
Gruß
gms