[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