Janek Schleicher wrote at Sat, 07 Sep 2002 10:06:34 +0200:
>>> ...
>>> print join "\n", grep defined, ($string =~ /"(.*?)"|(\w+)/g);
>>> ...
>
> The regexp matches either "(.*?)" in $1 or (\w+) in $1.
^^
Of course, I meant $2.
> But the regexp always makes a list of both ($1,$2) foreach match.
> That's why half of the list consists of undefined elements,
> that have to be grepped out.
>
> It's not really nice, but it works.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
