Typgeglobs ausgeben und dereferenzieren?

[Kai Diefenbach]

Hallo Forum,
In beiden Modulen wird 'use strict;' verwendet.

Hier duerfte das Problem liegen. Wenn Du Variable mit 'my' einen lexikalisch Geltungsbereich zuweist werden diese nicht in der Symboltabelle sondern in sogenannte 'scratchpads' gespeichert, die jeder Block/Subroutine enthaelt. D.h. mit my lokalisierte Variable werden nicht durch Typeglobes repraesenteniert

Beispiel:

#!perl -w

use strict;

my $test = 'test1';
my @test = ('test2', 'test3');

test(*test);

*test zeigt hier nicht auf die oben deklarierten Variable

sub test {

my $globe = shift;  
print $$globe;        # ist hier uninitialisiert  

}

Gruß AlexBausW

Gruss
   Kai