Exportierte Variable hat keinen Wert - #62395 (Allgemeines zu Perl)

Strat

2006-01-29 19:45

User since
2003-08-04
5246 Artikel
ModeratorIn

ich wuerde da schon use vars benuetzen, allerdings nach moeglichkeit in Kombination mit dem Modul Readonly...

Code: (dl )

use Readonly;
use vars qw($DB_NAME $DB_HORST $DB_PORT $DB_USER
             $DB_PASSWD $DB_URL
);

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

oder so aehnlich; das wuerde zwar mit our auch funktionieren:

Code: (dl )

Readonly our $DB_NAME = "testdb";

ich finde jedoch aus persoenlichen Gruenden das use vars in solchen faellen besser.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/