Thread Constants in Libs (23 answers)
Opened by esskar at 2003-08-09 01:43

esskar
 2003-08-09 01:43
#58510 #58510
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Hi...

folgende Verzeichnisstruktur

/
/Lib
/Lib/AI
...

in / liegen alle meine Scripte (*.pl);
in /Lib liegen alle meine Libs (*.pm), wie z.b. Vars.pm

Vars.pm sieht z.b. so aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
package Lib::Vars;

use strict;
use vars qw/@ISA @EXPORT $VERSION/;

require Exporter;
require SelfLoader;

$VERSION = 1.00;
@ISA = qw/Exporter SelfLoader/;

use constant CONST1 => 1;
use constant CONST2 => 2;
use constant CONST3 => 3;
use constant CONST4 => 4;

1;


ein script im / z.b. so:

Code: (dl )
1
2
3
4
5
use strict;

use Lib::Vars;

print Lib::Vars::COUNT1;


geht es auch irgendwie anders? kürzer? am besten mit Vars::COUNT1 ! den namensraum will ich mir nämlich nicht versauen!

View full thread Constants in Libs