Constants in Libs (Allgemeines zu Perl)

[thread]5627[/thread]

Constants in Libs

Leser: 1

esskar

2003-08-09 01:43

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 )

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 )

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!

Relais

2003-08-09 01:48

User since
2003-08-06
2254 Artikel
ModeratorIn

CONST* oder COUNT*?

Wie bei einem Hash geht's noch:

Code: (dl )

use constant {
    CONST1 => 1,
    CONST2 => 2,
    CONST3 => 3,
    CONST4 => 4,
}

Edit: versehentlichen Fullquottel gelöscht.\n\n

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

esskar

2003-08-09 01:51

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

CONST1

als hash geht es erst ab ner höheren version...
das kennen die bei 1und1 noch nicht...

die Vars.pm ist mir egal...
mich stört das Lib vor Vars in den Scripten

also anstatt Lib::Vars::CONST1 würde ich lieber Vars::CONST1 schreiben...

esskar

2003-08-09 01:54

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

habs grad selber gelöst...

im script

Code: (dl )

BEGIN
{
   use FindBin;
   use lib ("$FindBin::Bin/Lib");
}

und in in Vars.pm

Code: (dl )

package Vars;

naja...
geht es jetzt auch noch ohne BEGIN ?

Crian

2003-08-09 02:03

User since
2003-08-04
5873 Artikel
ModeratorIn

ja, lass das BEGIN einfach weg :-)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

esskar

2003-08-09 02:06

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Crian,09.08.2003, 00:03]ja, lass das BEGIN einfach weg :-)[/quote]
quatsch... dann kommt doch der folgende fehler

Quote
Can't locate Vars.pm in @INC (@INC contains: F:/Perl/lib F:/Perl/site/lib .) at H:\Eigene Dateie
n\Entwicklung\Webdesign\YourNation.de\setup.pl line 9.
BEGIN failed--compilation aborted at H:\Eigene Dateien\Entwicklung\Webdesign\YourNation.de\setup.pl
line 9.

Relais

2003-08-09 02:13

User since
2003-08-06
2254 Artikel
ModeratorIn

dann nimm ein use lib dazu...

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

2003-08-09 02:29

User since
2003-08-04
12208 Artikel
Admin1

[quote=esskar,08.08.2003, 23:54]geht es jetzt auch noch ohne BEGIN ?[/quote]
nein...

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

esskar

2003-08-09 02:37

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

so würde es gehen:

Code: (dl )

1
2
3

package Vars;
...
1;

dann

Code: (dl )

1
2
3

use Lib::Vars;

print Vars::CONST1;

aber ob das so schick ist!

kabel

2003-08-09 09:01

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

du könntest per Exporter die konstant-funktionen in den namespace des callers transferieren. vorteil: du musst nur die konstantennamen selber schreiben. nachteil: "namespace-pollution". ist das überhaupt keine option? wozu brauchst du den Exporter überhaupt? wird da schon was exportiert?

ich hab gerade probiert, die subroutine main::AUTOLOAD als dispatcher einzusetzen, es ist nicht wirklich schön (ach ja, fehlerabfrage ade ;) ):

Code: (dl )

use strict;

package Lib::Vars;
use constant HI => "HO";

package main;
use vars qw/ $AUTOLOAD /;

print "HI", &HI, "\n";;

sub AUTOLOAD {
    my $sub = $AUTOLOAD;
    $sub =~ s/\w*::(\w*?)$/$1/;
    $sub = "Lib::Vars::$sub";
    goto &$sub;
}

du kannst konstanten übrigens auch anders erzeugen:
Wie verwende ich Konstanten?
- ex::constant::vars ist eine lösung auf tie-basis.
- zuweisung einer skalarreferenz an einen typeglob.

(ja, ich weiss, bei constant.pm stimmt einiges net, mit dem wiki wird alles viel besser, hoffentlch! 8) )

-- stefan

View all threads created 2003-08-09 01:43.