Perl Map cgi::param
[https://notes.pinboard.in/u:mark.page/c6351996b54c1a5a4825] - - public:mepage
my $app = { 'form' => { map { $_ => ($cgi->param($_))[0] } $cgi->param }, };
my $app = { 'form' => { map { $_ => ($cgi->param($_))[0] } $cgi->param }, };
function pretty_dump($arr, $d=1){ if ($d==1) echo "<pre>"; // HTML Only if (is_array($arr)){ foreach($arr as $k=>$v){ for ($i=0;$i<$d;$i++){ echo "\t"; } if (is_array($v)){ echo $k.PHP_EOL; Pretty_Dump($v, $d+1); } else { echo $k."\t".$v.PHP_EOL; } } } if ($d==1) echo "</pre>"; // HTML Only }