列出main包内的所有变量情况

列出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;

}