|
|
| version 1.1, 2010/08/31 21:51:56 | version 1.2, 2010/09/02 22:56:09 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| $f[^file::load[text;253_json.txt]] | $f[^file::load[text;253_json.txt]] |
| $s[^taint[as-is][$f.text]] | |
| $o[^json:parse[^taint[as-is][$f.text]][ $.double(false) ]] | ^try_catch{$o[^json:parse[$s]]} |
| $o[^json:parse[$s][ $.distinct[first] ]] | |
| ^print[$o] | |
| $o[^json:parse[$s][ $.double(false) $.distinct[last] ]] | |
| ^print[$o] | ^print[$o] |
| $o[^json:parse[^taint[as-is][$f.text]][ $.object[$hook] ]] | $o[^json:parse[$s][ $.object[$hook] $.distinct[all] ]] |
| ^print[$o] | ^print[$o] |
| @try_catch[code] | |
| ^try{ | |
| $code | |
| }{ | |
| $exception.handled(true) | |
| $exception.source | |
| $exception.comment | |
| } | |
| @print[hash] | @print[hash] |
| ^hash.foreach[k;v]{ | ^hash.foreach[k;v]{ |
| $k = ^if($v is 'hash'){{^print[$v] | $k = ^if($v is 'hash'){{^print[$v] |
| }}{ | }}{ |
| $v.CLASS_NAME ^if($v is 'bool'){ ^if($v){true}{false} }($v is 'class1' || $v is 'class2'){^v.print[]}{$v} | $v.CLASS_NAME ^if($v is 'bool'){ ^if($v){true}{false} }($v is 'class1' || $v is 'class2'){^v.print[]}{$v} |
| } | } |
| } | } |
| @hook[key;value] | @hook[key;value] |