<%perl> # porting this bad boy to perl sure could be helpful function dumpArray($var) { # if ((isset($var)) || ($var != "")) { switch (gettype($var)) { case 'integer': // Integer, double and strings are simply displayed. case 'double': case 'string': echo $var; break; case 'array': // Arrays need to be handled special. Oooo recursions if (! count($var)) { // Check to see if the array is empty. echo 'Empty Array.
'; } else { // Llllllet's get ready to rumble. print "\n\n"; echo ''; // echo '

Key	Value

'; do { // Loop through the array. echo ''; } while (next($var)); echo '

Key	DataType	Value
'; echo key($var); // echo '	'; // echo gettype(key($var)); echo '	'; dumpArray($var[key($var)]); echo '

'; print "\n\n"; } break; case 'boolean': settype($var, "integer"); if ($var == 0) { echo "false"; } else { echo "true"; } break; default: $pooh = gettype($var); echo "\nUnknown data type($pooh): $var\n"; settype($var, "integer"); print "-- $var"; break; } # } }