Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Regexp - match if not between [ ]

by AnomalousMonk (Abbot)
on May 30, 2011 at 15:34 UTC ( #907330=note: print w/ replies, xml ) Need Help??


in reply to Regexp - match if not between [ ]

Using Text::CSV would probably be better. However, this regex approach, while more verbose, is perhaps more maintainable. Needs 5.10+ Special Backtracking Control Verbs. (I've made a guess at the proper regex for a A423.23 thingy.)

>perl -wMstrict -le "my $s = 'The fox did it[ at 12.23 ] well, Cf. 23 A423.23. The ' . 'swallow was even better'; print qq{''$s''}; ;; my $parens = qr{ \[ [^]]* \] }xms; my $cf = qr{ (?i) cf \. }xms; my $ref = qr{ [[:alpha:]]+ \d+ (?: \. \d+)+ }xms; my $splitter = qr{ (?: $parens | $cf | $ref) (*SKIP)(*FAIL) | \. }xms; ;; my @ra = split $splitter, $s; print qq{'$_'} for @ra; " ''The fox did it[ at 12.23 ] well, Cf. 23 A423.23. The swallow was eve +n better'' 'The fox did it[ at 12.23 ] well, Cf. 23 A423.23' ' The swallow was even better'


Comment on Re: Regexp - match if not between [ ]
Select or Download Code
Re^2: Regexp - match if not between [ ]
by Anonymous Monk on May 30, 2011 at 20:06 UTC

    Thanx for all, refreshing.

    salmonix

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://907330]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2014-09-16 22:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (51 votes), past polls