Globale Variable auch im .pm-Package - #104947 (Allgemeines zu Perl)

RalphFFM

2008-01-20 19:56

User since
2006-11-16
258 Artikel
BenutzerIn

Hallo,

ich habe ein Skript und ein Package, und möchte nun gerne eine globale Variable
auch im Package verfügbar haben. Möchte aber die Variable nicht wie sonst per
Übergabeparameter übergeben.

Die globale Variable ist im Package unbekannt. Global symbol "$global" requires
explicit package name at test.pm line 12. Irgendwie sitze ich da gerade
"wie der Ochs vorm Berg". Im voraus Danke für Hilfe. :-o

Gruß, Ralph

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use test;
my $global = "Diese Welt";
mysub ("Jene Welt");

Code (perl): (dl )

package test;
require Exporter;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 1.0;
@ISA     = qw(Exporter);
@EXPORT  = qw(mysub);
sub mysub {
        my $lokal = shift;
        print "\$lokal: $lokal\n";
        print "\$global: $global\n";
}
1;