|
|
| version 1.35, 2004/03/25 11:51:19 | version 1.88, 2005/07/26 12:43:06 |
|---|---|
| Line 1 | Line 1 |
| @auto[] | @USE |
| $request:charset[windows-1251] | /_bug.p |
| $response:charset[windows-1251] | |
| @main[] | |
| $table[^table::create{pet | |
| cat milk}] | |
| $hash[^table.hash[pet]] | |
| ^display[$hash] | |
| @main[] | @main[] |
| ^connect[mysql://root@localhost/paf]{ | $bug:prop?<br> |
| $paf<br> | |
| $hash[^hash::sql{select 'cat' as pet | $paf[tut] |
| #, 'milk' as food | =$_paf= |
| }] | |
| ^display_hash[$hash] | |
| } | |
| @main[] | |
| ^connect[mysql://root@localhost/paf]{ | |
| $participants[^hash::sql{select 'feodor' as participant }] | |
| } | |
| #:даст хеш такой структуры: | |
| $participantsZ[ | |
| $.alex(1) | |
| $.boris(1) | |
| ] | |
| #:из которого можно эффективно извлекать информацию, например, так: | @get_paf[] |
| $person[feodor] | (still works) |
| $person ^if($participants.$person){участвует}{не участвует} в мероприятии | |
| } | |
| @set_paf[value] | |
| @display_hash[hash] | $_paf[$value] |
| #$hash.a.a | |
| ^hash.foreach[k;v]{hash $k=( | |
| ^if($v is hash){^display_hash[$v]}{ | |
| ^if($v is bool){bool ^if($v){true;false}}{string $v} | |
| } | |
| }[,] | |
| )^#0A}] | |
| @main[] | |
| $name[ Вася ] | |
| "$name" | |
| "^name.trim[]" | |
| $path[/section/subsection/] | |
| ^path.trim[end;/] | |
| @main[] | |
| $xdoc[^xdoc::create{<?xml version="1.0"?> | |
| <document xmlns:s="urn:special"> | |
| <s:code>string</s:code> | |
| </document> | |
| }] | |
| $xdoc.search-namespaces.s[urn:special] | |
| ^xdoc.selectString[string(//s:code)] |