Help for this page

Select Code to Download


  1. or download this
    package Test;
$testing = 'TEST';
@test_array = (qw/OneTest TwoTest/);
...
    print "\@$symname is nonnull\n" if         @sym;
    print "\%$symname is nonnull\n" if         %sym;
}
  2. or download this
    package Test;
$testing = 'TEST';
@test_array = (qw/OneTest TwoTest/);
...
    if         (@sym) {@sym = undef; print "\@$symname is cleared\n" }
+;
    if         (%sym) {%sym = undef; print "\%$symname is cleared\n" }
+;
}