19 lines
324 B
Smalltalk
19 lines
324 B
Smalltalk
|
|re s s1|
|
||
|
|
re := Regex fromString: '[a-z]+ing'.
|
||
|
|
s := 'this is a matching string'.
|
||
|
|
s1 := 'this does not match'.
|
||
|
|
|
||
|
|
(s =~ re)
|
||
|
|
ifMatched: [ :b |
|
||
|
|
b match displayNl
|
||
|
|
].
|
||
|
|
(s1 =~ re)
|
||
|
|
ifMatched: [ :b |
|
||
|
|
'Strangely matched!' displayNl
|
||
|
|
]
|
||
|
|
ifNotMatched: [
|
||
|
|
'no match!' displayNl
|
||
|
|
].
|
||
|
|
|
||
|
|
(s replacingRegex: re with: 'modified') displayNl.
|