bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add some backtracking control

Browse source 
Not terribly necessary here, because inputs are short, but it's a
good practice. I wish there was a way to just disable backtracking for
the entire regex since this kind of pattern doesn't need any of it.
This commit is contained in:
Juerd Waalboer 2023-12-26 04:53:10 +01:00
parent 0d3866a881
commit bdd92748ab
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
revbank
View file

@ -36,10 +36,10 @@ sub split_input($input) {
while ( while (
$input =~ m[ $input =~ m[
\G \s* \G \s*+
(?| (') ( (?: \\. | [^\\'] )* ) ' (?=\s|;|$) (?| (') ( (?: \\. | [^\\'] )*+ ) ' (?=\s|;|$)
| (") ( (?: \\. | [^\\"] )* ) " (?=\s|;|$) | (") ( (?: \\. | [^\\"] )*+ ) " (?=\s|;|$)
| () ( (?: \\. | [^\\;'"\s] )+ ) (?=\s|;|$) | () ( (?: \\. | [^\\;'"\s] )++ ) (?=\s|;|$)
| () (;) | () (;)
) )
]xg ]xg