in reply to Regular Expression Trick
foreach my $line (@lines) { my ($name, $values) = split '::', $line, 2; # <-- This is the key +- limit your split my @values = split /\|/, $values; # <-- This is not limite +d print "$name\n"; foreach my $value (@values) { my ($color, $number) = split '::', $value; print "\t$color => $number\n"; } print $/; }
Update: Fixed stupidity with '|' character (Thanks, duff!)
------
We are the carpenters and bricklayers of the Information Age.
The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6
... strings and arrays will suffice. As they are easily available as native data types in any sane language, ... - blokhead, speaking on evolutionary algorithms
Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Regular Expression Trick (Don't use one!)
by duff (Parson) on Nov 24, 2003 at 15:08 UTC |