in reply to Regular expression double grouping negation headache
Ok, color me confused.
Your script as written dones exactly what you claim that it doesn't when I run it (under linux). However, your output fails to expose the flaw in your parsing. The script throws away some of the values. You only capture the value up to the first space, but spaces are a valid character in the value.
I simplified your expression a little. I removed unnessasary backslashes, parens, and quotes and I replaced [^\s] with \S. The new regex is:
Since you already know that (thanks to the shells processing of your arguments) that everything to the right of the equals is a valid part of the value you can correct the problem by simplifying to this:
-pete
"Pain heals. Chicks dig scars. Glory lasts forever."
Your script as written dones exactly what you claim that it doesn't when I run it (under linux). However, your output fails to expose the flaw in your parsing. The script throws away some of the values. You only capture the value up to the first space, but spaces are a valid character in the value.
I simplified your expression a little. I removed unnessasary backslashes, parens, and quotes and I replaced [^\s] with \S. The new regex is:
%defaults = map {/([^=]+)=(\S+)/?($1=>$2):()} @ARGV;
Since you already know that (thanks to the shells processing of your arguments) that everything to the right of the equals is a valid part of the value you can correct the problem by simplifying to this:
And, I would also simplify the left hand side to be:%defaults = map {/([^=]+)=(.*)/?($1=>$2):()} @ARGV;
And, actually, you can takes advantage of the fact that calling a regex in list context returns the submatches as a list and use:%defaults = map {/(.*?)=(.*)/?($1=>$2):()} @ARGV;
Hope this helps%defaults = map {(/(.*?)=(.*)/)} @ARGV;
-pete
"Pain heals. Chicks dig scars. Glory lasts forever."
|
---|
Replies are listed 'Best First'. | |
---|---|
Doesn't seem complete
by tlhf (Scribe) on Jun 29, 2002 at 16:21 UTC | |
by dreadpiratepeter (Priest) on Jun 29, 2002 at 22:21 UTC | |
by tlhf (Scribe) on Jun 30, 2002 at 22:48 UTC | |
by dreadpiratepeter (Priest) on Jun 30, 2002 at 23:08 UTC | |
by tlhf (Scribe) on Jun 30, 2002 at 23:32 UTC | |
by Aristotle (Chancellor) on Jun 29, 2002 at 22:20 UTC |
In Section
Seekers of Perl Wisdom