The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
LJEPSON / CGI-Ex-2.45 / samples / yaml_js_3.html 
<html>
<title>Yaml Test</title>
<body>

<table border=1 cellspacing=0>
  <tr>
    <td colspan=2>
<script src="../lib/CGI/Ex/yaml_load.js"></script>
<script>

if (! document.yaml_load) {
  document.writeln('<span style="color:red"><h1>Missing document.yaml_load</h1>Path to ../lib/CGI/Ex/yaml_load.js may be invalid.</span>');
} else {
  document.writeln('<span style="color:green"><h1>Found document.yaml_load</h1></span>');
}

</script>
    </td>
  </tr>

  <tr><th colspan=2>YAML text</th></tr>
  <tr>
    <td colspan=2>
<pre><script>
var yaml = "\n\
key1_a: &foo1 val1\n\
key2_a: &foo2 { skey2_1: sval2_1 }\n\
key3_a: &foo3\n\
  skey3_1: sval3_1\n\
key4_a: &foo4 [ sval4_1, sval4_2 ]\n\
key5_a: &foo5\n\
  - sval5_1\n\
  - sval5_2\n\
\n\
key1_b: *foo1\n\
key2_b: *foo2\n\
key3_b: *foo3\n\
key4_b: *foo4\n\
key5_b: *foo5\n\
";

document.write(yaml)
</script></pre>
    </td>
  </tr>


  <tr>
    <th>Produces</th><th>Should look like</th>
  </tr>
  <tr>
    <td>
<pre><script>
var t1 = new Date();
var y  = document.yaml_load(yaml)
var t2 = new Date();
document.write(document.js_dump(y));
</script></pre>
    </td>
    <td>
<pre>Dump:
[obj].0.key1_a=val1
[obj].0.key1_b=val1
[obj].0.key2_a.skey2_1=sval2_1 
[obj].0.key2_b.skey2_1=sval2_1 
[obj].0.key3_a.skey3_1=sval3_1
[obj].0.key3_b.skey3_1=sval3_1
[obj].0.key4_a.0=sval4_1
[obj].0.key4_a.1=sval4_2 
[obj].0.key4_b.0=sval4_1
[obj].0.key4_b.1=sval4_2 
[obj].0.key5_a.0=sval5_1
[obj].0.key5_a.1=sval5_2
[obj].0.key5_b.0=sval5_1
[obj].0.key5_b.1=sval5_2
</pre>
    </td>
  </tr>

  <tr>
    <td colspan=2>
<script>
document.write("Elapsed time: "+((t2.getTime() - t1.getTime())/1000)+" seconds");
</script>
    </td>
  </tr>

</body>
</html>