nicht angemeldet
Hallo Leute,
ich komme einfach nicht dahinter, wie ich aus einem package heraus eine Variable im main package zugreifen kann.
Hier ist ein Code Snippet:
package main;
use strict;
my $variable = "hallo"; # muss mit my declariert werden, weil strict
sub routine
{
print "something";
}
irgendwo anders
package sub;
use strict;
&main::routine(); # das geht
print $variable; # das geht nicht
Die Variable sollte global verfügbar sein, aber strict zwingt mich dazu sie mit my zu deklarieren, wodurch sie nur noch im main package zur Verfügung steht.
Kann man das nicht irgendwie hinkriegen, dass man doch auf die Variable global zugreifen kann?
Gruß,
Cruz