steve01: Variabeln und Code auslagern

Beitrag lesen

hallo zusammen,

ich möchte globale variablen und anweisungen auslagern welche gemeinsam genutzt werden.

datei init.pl mit z.B code:

use strict;
use CGI::Carp qw(fatalsToBrowser);

my ($gPathData,$gHits,$gHost,$gAnzReg);
my $gDB;

my $gCounter = "counter.db";

diese binde ich in haupt.pl mit dem befehl
require "init.pl" || die("can't find init, $!");
ein.

leider kann ich aber nicht auf die variablen zugreifen:

print "Content-type: text/plain", "\n\n";
print "$gCounter";

in haupt.pl liefert einen leerwert.

wenn ich die deklarierung mit my weglasse geht es. aber use strict muss ich ebenfalls kommentieren.

warumß

Steve