[vienna.pm] konfigurationsdateien lesen

Roland Bauer roland.bauer at fff.at
Sat May 12 00:37:33 CDT 2001


* * * vienna-pm-list * * *


> Lass das my weg, dann gehts.


Ja, und nimm "use strict;" dazu ..... ;-)


> header.pm:
> package My::Stuff;
> 
> my $head="...";
> 
> 
> und dann in main.pl:
> 
> use lib ('/path/to/lib')
> use My::Stuff;
> 
> print $My::Stuff::head;
> 
> Aber:
> There Is More Than One Way To Do It !

Variante 3:
-----------
Varibalen in Modul definieren und zum Export
bereitstellen.


---------------------------------
# ./My/Stuff.pm

package My::Stuff;

use strict; # NICHT VERGESSEN !!!!

use vars qw($VERSION @EXPORT_OK @ISA $head); # wegen strict

$VERSION = 0.00_01; # nur als $My::Stuff::VERSION ansprechbar

use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw($head);

$head = "..."; # muss fuer Export global sein, kein my
--------------------------------

und dann ...
-----------------------------
# main.pl

use strict; # NICHT VERGESSEN !!!!!

use lib '.'; # ... und ins Unterverzeichnis My/ stellen
use My::Stuff qw($head);

print "$head\n";
--------------------------------

Statt lib '.' besser das Modul in ein Verzeichnis aus
der @INC-Variable installieren.

Am einfachsten durch Erstellen eines
Makefile.PL

Roland
###
You are subscribed to vienna-pm-list as Roland Bauer <roland.bauer at fff.at>
http://www.fff.at/fff/vienna.pm/



More information about the Vienna-pm mailing list