Globale Variable

[Alex Gots]

Hallo,

wie kann ich eine globale Variable für ganze Datei festlegen?

Ich möchte, dass diese Variable innerhalb dieser Datei überall (z.B. in meinen Subs) gilt.

Bsp:

8<-----8<-----8<-----

my $GLOBAL = 666;

sub Meine_Funktion {

print "$GLOBAL \n";

}

print "$GLOBAL \n";

8<-----8<-----8<-----

Ausgabe:

666
666

Danke für Ihre baldige Antwort

[Struppi]

Bsp:

8<-----8<-----8<-----

my $GLOBAL = 666;

our $GLOBAL

»
Struppi.

[Rolf Rost]

Hallo,

wie kann ich eine globale Variable für ganze Datei festlegen?

Ich möchte, dass diese Variable innerhalb dieser Datei überall (z.B. in meinen Subs) gilt.

Am besten mit my deklarieren außerhalb der subs. Dann gilt's überall, jedoch nicht in libraries die eingebunden wurden.

my $global = 'fips';

oder mit
use vars qw($global %foo @bar); # gelten auch in libs, aber schlechter Programmierstil

sub meandyou{ print "$global" }

--Rolf