You went against your mantra of "down with .*" here... why
not advocate using
/(Version[^,]*),/
here?
Update
Oops, sorry Ovid. I saw it in his favorite nodes list, and
thought it was his. Good rant from you. :)
$_="goto+F.print+chop;\n=yhpaj";F1:eval | [reply]
[d/l] |
While I will confess that I noticed that merlyn has Death to Dot Star! listed (on his home node) as one of his favorite nodes, I'm actually the one who wrote that and I occassionally get friendly grief from fellow monks for using it. :)
(Though if merlyn rants against .*, I'd be interested in seeing the link)
Incidentally, I'd write the regex as follows (assuming that the data is very clean):
my $result = $1 if $string =~ /,\s([^,]+)/;
Cheers,
Ovid
Update: japhy, it's an easy mistake to make. I just feel proud to have made the list :)
Join the Perlmonks Setiathome Group or just go the the link and check out our stats. | [reply]
[d/l] |
/(Version.*?*),/
Note - Depending on the data this may or may not perform worse than the previously suggested
/(Version[^,]*,/
| [reply]
[d/l]
[select] |
Oops. Clearly, I read that wrong! Thanks! | [reply] |