Thanks.

I have run into a bit of a roadblock. If a value is set to some jQuery code (let's say to get the value of a text field), it surrounds the jQuery code with quotes which does break things. Can you think of any good ways around this problem?

nysus:

OK, I was going on under the working assumption that you were creating JSON stuff that would be used that your JavaScript stuff would fetch from the server and use. It seems like you're actually generating JavaScript in your perl code to send off to the browser and execute. That's fine, of course, but it certainly complicates things a bit. Now you can't easily use JSON to build your data structures and handle the quoting for you because you've also got some plain JavaScript that you don't want to mangle.

I've not worked in that space yet, so you may want to browse CPAN for other modules that might be useful. A perfunctory look gave up JavaScript::Code and JavaScript::Writer, perhaps one of those might be more in line with what you need.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

OK, after some trial and error, I came up with this:

sub hash_walk {
    my ($hash, $string, $level, %keys_printed) = @_;
    while (my ($k, $v) = each %$hash) {
      $string .= "{ $k: " unless $keys_printed{$level}{$k};
      $keys_printed{$level}{$k} = 1;
      if (ref($v) eq 'HASH') {
        $string = hash_walk($v, $string, ++$level, %keys_printed);
        $string .= ' }, ';
        $level--;
      } else {
        $string .= $v . ' },';
      }

    }
    return $string;
}

my %data = (
  email =>{steve => 'owens'},
  user => {steve => {fun => 'times', laugh => 'in'}},
  pass => {blah => 'moomoo'},
);

print hash_walk(\%data, '', 0, ()) . "\n";
[download]

Now I just need to come up with some code to properly handle the quoting of the values.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

Thanks. Though I think I'm going to roll my own hash recursion routine. I need the mental exercise. This should help me through.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks