@main[]
$request:charset[UTF-8]
$response:charset[UTF-8]
$response:content-type[
$.value[text/html]
$.charset[$response:charset]
]
$str[ab^taint["]"cd^taint[xml][&]&ef]
^$str[$str] [^str.length[]]
^^str.left(4): ^left[$str](4)
^^str.left(9): ^left[$str](9)
^^str.right(4): ^right[$str](4)
^^str.right(9): ^right[$str](9)
^^str.mid(1;8): ^mid[$str](1;8)
$str[о сколько нам открытий чудных...10.11.2005]
$length(^str.length[]) ^rem{ *** length in real chars (not in bytes) == 42 *** }
^taint[as-is][
^$str[$str] [^str.length[]]
01234567890123456789012345678901234567890123456789
]
^pos[$str;о]
^pos[$str;о;2]
^pos[$str; ]
^pos[$str;чудных]
^pos[$str;2005]
^pos[$str;zzz]
| L |
^^str.left(L) [^^substr.length[]] |
R |
^^str.right(R) [^^substr.length[]]
| N, O |
^^str.mid(N;O)
^for[i](0;$length\2+1){
|
$iLeft($i*2+$i%2)
| $iLeft |
^left[$str]($iLeft) |
$iRight($i*2+($i+1)%2)
$iRight |
^right[$str]($iRight) |
$iMid($i*2)
$iLength(^if($i%2)(3;4))
$iMid, $iLength |
^mid[$str]($iMid;$iLength) |
}
@left[str;num][substr]
$substr[^str.left($num)]
'$substr' [^substr.length[]]
@right[str;num][substr]
$substr[^str.right($num)]
'$substr' [^substr.length[]]
@mid[str;num;count]
'^str.mid($num;$count)'
@pos[str;substr;offset]
^^str.pos[$substr]^if(def $offset){($offset)}: ^if(def $offset){^str.pos[$substr]($offset)}{^str.pos[$substr]}