Anonymous user
Regular expressions: Difference between revisions
Add ooRexx implementation
m (→{{header|REXX}}: added titles for the REXX programs. -- ~~~~) |
(Add ooRexx implementation) |
||
Line 993:
(Pcre.replace ~pat:"original" ~templ:"modified" "I am the original string")
;;</lang>
=={{header|ooRexx}}==
<lang ooRexx>/* Rexx */
/* Using the RxRegExp Regular Expression built-in utility class */
st1 = 'Fee, fie, foe, fum, I smell the blood of an Englishman'
rx1 = '[Ff]?e' -- unlike most regex engines, RxRegExp uses '?' instead of '.' to match any single character
sbx = 'foo'
myRE = .RegularExpression~new()
myRE~parse(rx1, MINIMAL)
mcm = myRE~pos(st1)
say 'String "'st1'"' 'matches pattern "'rx1'":' bool2string(mcm > 0)
say
-- The RxRegExp package doesn't provide a replace capability so you must roll your own
st0 = st1
loop label GREP forever
mcp = myRE~pos(st1)
if mcp > 0 then do
mpp = myRE~position
fnd = st1~substr(mcp, mpp - mcp + 1)
stx = st1~changestr(fnd, sbx, 1)
end
else leave GREP
st1 = stx
end GREP
say 'Input string: "'st0'"'
say 'Result string: "'stx'"'
return
exit
bool2string:
procedure
do
parse arg bv .
if bv then bx = 'true'
else bx = 'false'
return bx
end
exit
::requires "rxregexp.cls"
</lang>
''Output:'''
<pre>
String "Fee, fie, foe, fum, I smell the blood of an Englishman" matches pattern "[Ff]?e": true
Input string: "Fee, fie, foe, fum, I smell the blood of an Englishman"
Result string: "foo, foo, foo, fum, I smell the blood of an Englishman"
</pre>
=={{header|Oxygene}}==
| |||