列出main 包内的所有变量情况
foreach $symname (sort keys %main::) {
local *sym = $main::{$symname};
print "/$$symname is defined/n" if defined $sym;
print "/@$symname is nonnull/n" if @sym;
print "/%$symname is nonnull/n" if %sym;
}
列出main 包内的所有变量情况
foreach $symname (sort keys %main::) {
local *sym = $main::{$symname};
print "/$$symname is defined/n" if defined $sym;
print "/@$symname is nonnull/n" if @sym;
print "/%$symname is nonnull/n" if %sym;
}