[REBOL] Re: Perl is to stupid to understand this 1 liner.
From: rotenca:telvia:it at: 15-Dec-2001 21:34
Are these correct?
>>f: "123-123-234-2112-3444" parse/all f [some[a: 1 2[3 c "-"]4 c
b:(change/part a "####" b) | skip]
]print f
123-####-3444
>> f: "123-234-2112whatisthis?" parse/all f [some[a: 1 2[3 c "-"]4 c
b:(change/part a "####" b) | s
kip]]print f
####whatisthis?
f: "k-123+123-2112*2/4" parse/all f [some[a: 1 2[3 c "-"]4 c b:(change/part a
####
b) | skip]]p
rint f
k-123+####*2/4
>> f: "k123123-2112-3444" parse/all f [some[a: 1 2[3 c "-"]4 c b:(change/part
a "####" b) | skip]]pri
nt f
k123####-3444
---
Ciao
Romano