[PERL] : Variabelen gebruiken uit config.inc met strict

[Wierdo_NL]

He mensen,

Op het werk zit ik met een probleem, en Perl is niet mijn goeiste taal.

Ik moet strict gebruiken, maar ik wil wel de variabelen uit de config file gebruiken, zodat ik maar op 1 plek de username en/of password hoef te wijzigen.
Zonder strict werkt het, maar "met" weigert hij.

De 2 scripts :
- config.inc met bijvoorbeeld $username en $password voor database connectie.
- script.pl met

code:

use strict;
my $installdir = "/home/PRODUCT/perl";
require("$installdir/include/myConfig.inc");

print $username;

[Brakkie]

Ik weet niks van perl eigenlijk maar kan het niet zijn dat je die $installdir op regel 3 netjes moet concatten aan die string ipv de var gewoon in de string moet zetten.

Dus:

code:

require($installdir."/include/myConfig.inc");

[ Voor 27% gewijzigd door Brakkie op 07-03-2005 16:49 ]

[Soultaker]

De code an sich is gewoon goed. Definieer eens wat 'weigeren' inhoudt? Welke foutmeldingen krijg je, wat gebeurt er, wat had je verwacht, enzovoorts?

[Wierdo_NL]

De variabelen die in de config.inc staan worden wel gevuld, maar ik kan ze niet buiten config.inc gebruiken, waardoor ik er niets aan heb.

Wat ik nu gedaan heb is het volgende :

In config.inc een functie gemaakt ReturnVars.
Deze returnt de variabelen die ik nodig heb.
Maarja als ik ga uitbreiden, moet ik de functie ReturnVars in include.inc aanpassen, waardoor alle scriptjes weer aangepast zouden moeten worden.

Ik wil dus eigenlijk gewoon een config.inc waar al mijn voorgedefinieerde variabelen in staan.
En die wil ik gebruiken in al mijn scripts die de variabelen nodig hebben, dus met een require ofzo.
Dit alles moet werken met strict.

Is dit mogelijk ?

[muba]

$main::username = "theusername";

zou dat werken?

Of anders met hashes werken, dat is altijd wel flex

[Brakkie]

Grappig dat perl Heb zo'n idee dat je hier je antwoord wel moet kunnen vinden.

http://perlmonks.thepen.com/105446.html

[ Voor 4% gewijzigd door Brakkie op 08-03-2005 00:33 ]

[Wierdo_NL]

Yeps mensen, het werkt..
Gegeven tips hielpen mij tot de oplossing.

in config.inc staat :

code:

package main;
use strict;
$main::username;
$main::username = "username";

in main.pl staat :

code:

package main;
use strict;
require ('config.inc')
print $main::username;

Geweldig ! thnx

[Juup]

Om die config.inc nu de namespace "main" te geven is wel zeer ongelukkig gekozen. main is al de naam van de code in je .pl script (ook als deze pietje.pl had geheten). Waarom niet package config; ofzo?

[muba]

Huh? confic.inc heeft helemaal niet de namespace "main".
Hij plaatst zijn variable "username" alleen in main. En main, dat is het script waar de require instaat.


Edit:
Oh ik zie wat je bedoelt.
Ja, die 'package main' moet je echt even weghalen uit 'config.inc'.

[ Voor 30% gewijzigd door muba op 08-03-2005 15:13 ]

[Wierdo_NL]

OK, dank u wijze mannen !