Thread Exportierte Variable hat keinen Wert
(3 answers)
Opened by Gast at 2006-01-28 23:29
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... |