Dump Binding


We're debugging and we'd like to see all of the bindings in some associative array (%dict), that we pass by name (*dict), formatted as an html definition-list. 

  sub DumpBinding {
    local(*dict) = @_;
    print "<hr><dl>\n";
    for (keys(%dict)){print "<dt>$_<dd>$dict{$_}\n";}
    print "</dl><hr>\n";
  }

 
Last edited June 23, 2001
Return to WelcomeVisitors