dumper.ss

[JamusPsi]

function dump(var, name) {
$name = $name || "var"
if($var) {
echo %name = %var
if(istable($var)) {
if(typeof($var) == "list") {
for($x = 0;$x < $var.count;$x = $x + 1) {
dump($var[%x], =(%name . "[" . %x . "]"))
}

} else {


$keys = keys($var)
for($x = 0;$x < $keys.count;$x = $x + 1) {
$key = %keys[%x]
$subvar = $var[%key]
dump($subvar, =(%name . "." . %key))
}
}

}
} else {
echo %name = (undef)
}
}



This function is similar to the pearl Data:: Dumper function. Pass in a variable reference, and optionally a name for it, and it will recursively show all the data in it. I'm using it mostly for testing as I expose more of the data psinet tracks to scripts. To use the function in your scripts, you can "import dumper.ss"