Quote

kabel@linux:~/progs/perl> cat pad_test.pl
use strict;
use PadWalker qw/ peek_my /;

print_hiho ();
my $a = "hohi";
my $lex_vars = peek_my (0);
print "der hash hiho existiert ";
unless (exists ($lex_vars->{'%hiho'})) {
print "nicht!";
}
print "!\n";
print "\$a existiert aber\n" if exists $lex_vars->{'$a'};


my %hiho = 1 .. 6;


sub print_hiho {
while (my ($key, $value) = each %hiho) {
print "$key -> $value\n";
}
}
kabel@linux:~/progs/perl> perl -w pad_test.pl
der hash hiho existiert nicht!!
$a existiert aber
kabel@linux:~/progs/perl>

Quote

kabel@linux:~/progs/perl> perl
use strict;
my $hiho if 0;
$hiho = "hallo!";

print "$hiho\n";
hallo!
kabel@linux:~/progs/perl>