just noticed this doesn't print the variable names, I'll fix it when I get home
Max On 08/01/2009, max psykx <[email protected]> wrote: > sub dirtydump{ > my ($tainted) = @_; > if(ref($tainted) eq 'ARRAY'){ > foreach $var (@{$tainted}){ > dirtydump(var); > } > } > if(ref($tainted) eq 'HASH'){ > foreach $var (%{$tainted}){ > dirtydump(var); > } > } > print $tainted; > } > > this is utterly untested and I don't have time to test it as I'm up to > my eyeballs with work atm. > > Kind Regards Max > _______________________________________________ BristolBathPM mailing list [email protected] http://mailman.bristolbath.org/mailman/listinfo/bristolbathpm
