Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Matching quote characters?

by TedPride (Priest)
on Aug 06, 2006 at 22:02 UTC ( #565868=note: print w/replies, xml ) Need Help??


in reply to Matching quote characters?

The object is to get the shortest possible string that starts with " and ends with either " or the end of the sample. So:
while (<DATA>) { chomp; print "$1\n" while m/(".*?(?:"|$))/g; } __DATA__ abc "def "ghi" jkl" mno"pqr"stu v"wx"y"z"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://565868]
help
Chatterbox?
[choroba]: When working at a bank, we had a colleague who entered mining early enough to have lots of bitcoins. He used to say "I go to work just because I'm too bored at home."
[Corion]: choroba: Aah, no, I do it because of the money :)
[choroba]: And when asked "How are you?" in the morning, his reply was usually "I don't know, haven't checked the bitcoin rates yet."
[Corion]: Heh - if I defined myself through the money I make, I would now only be 80% myself :-D
[choroba]: :-D
LanX emacs is the oldest textadventure ...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2017-09-21 15:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (249 votes). Check out past polls.

    Notices?