Thread Exportierte Variable hat keinen Wert (3 answers)
Opened by Gast at 2006-01-28 23:29

Gast Gast
 2006-01-28 23:29
#62392 #62392
Mahlzeit!

Folgendes Problem: Ich will meine Datenbanklogin-Daten in eine extra Datei auslagern. So sieht meine pm-Datei aus:
-------------
#!c:\perl\bin\perl.exe -w

package db_data;

use strict;
use vars qw(@EXPORT_OK @ISA);
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw($DB_URL $DB_USER $DB_PASSWD);

my $DB_NAME = "testdb";
my $DB_HORST = "localhost";
my $DB_PORT = "3306";
my $DB_USER = "Test";
my $DB_PASSWD = "Test";
my $DB_URL = "DBI:mysql:database=$DB_NAME;host=$DB_HORST;port=$DB_PORT";
-------

Da will ich mir die Dateien ausgeben lassen :

-------
#!c:\perl\bin\perl.exe -w

use strict;
use DBI;
use DBD::mysql;
use CGI::Carp qw(fatalsToBrowser);
use htmloutput;
use db_data qw($DB_URL $DB_USER $DB_PASSWD);

&htmloutput::printheader();

print "1: $DB_URL<br>";
print "2: $DB_USER<br>";
print "3: $DB_PASSWD<br>";

&htmloutput::printfooter();
--------

Also die Funktionen aus htmloutput,pm funktionieren. Aber im Browser sieht das so aus:

1:
2:
3:

Programmiern an sich kann ich nur C++, muss aber nun für nen Projekt an der Arbeit Perl lernen. Wäre also echt dankbar für jede Hilfe.

grüße...

View full thread Exportierte Variable hat keinen Wert