Perl Module

Revision as of 22:54, 11 November 2011 by Gmelli (talk | contribs) (Text replace - "==Notes ==" to "==Notes==")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

See: Perl Program, Programming Library.



Notes

  foreach $symbol_name (sort keys %TGQueryDataMgmt::) {
     local *local_sym = $TGQueryDataMgmt::{$symbol_name};
     print "\$$symbol_name is defined\n"                  if($local_sym);
     print "\@$symbol_name is defined\n"                  if(@local_sym);
     print "\%$symbol_name is defined\n"                  if(%sym);
}