Regex problem

Win has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

How do I match the following line to bring me back each figure.

00CH,Gateshead MCD,619,172.90,158.94,186.87,,537,87.42,79.61,95.23,,11
+56,126.89,119.29,134.50
[download]

I have tried the following:

if ($_ =~ /^(00CH,Gateshead MCD)/){

      my $Place = $1;
   
      if ($line =~ /^$Place\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\
+,(\d(\d|\.)*)\,\,*(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.
+)*)\,\,*(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)/) {
    

# $first = $1;  # etc
[download]

Comment on Regex problem Select or Download Code

Replies are listed 'Best First'.
Re: Regex problem by gaal (Parson) on May 10, 2007 at 08:50 UTC
You may find it easier to split on the comma: `my @data = split /,/; # How do you validate your data? Do you need to? warn "bad line", next if @data != 15; # or something... my @not_numeric = grep { length $_ == 0 \|\| /[^-\d\.]/ } @data[2..$#dat +a]; warn "fields contain non-numeric data: @not_numeric", next if @not_num +eric;` [download] (There are better ways to check if something is numeric, this was just quick'n'dirty since I don't know your real requirements.) Or, if you want to go the CPAN route, Text::CSV::Simple and several other modules exist.	[reply] [d/l]
Re: Regex problem by Samy_rio (Vicar) on May 10, 2007 at 08:52 UTC
Hi, try like this, `use strict; use warnings; while (<DATA>){ if ($_ =~ m/^00CH,Gateshead MCD,([^\n]+)/){ my @pos = split/\,/, $1; print "Position : $_ \t $pos[$_]\n" for (0..$#pos); } print '-' x 90, "\n"; } __DATA__ 00CH,Gateshead MCD,619,172.90,158.94,186.87,,537,87.42,79.61,95.23,,11 +56,126.89,119.29,134.50 00CH,Gateshead MCD,69,12.90,158.94,186.87,,537,87.4,7.61,95.23,,116,12 +6.89,19.29,14.50` [download] Regards, Velusamy R. eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@\|6%,53!-9@2~j';	[reply] [d/l] [select]
Re: Regex problem by johngg (Canon) on May 10, 2007 at 09:19 UTC
Using a regex rather than `split`, `my @values = $line =~ m{(\d+(?:\.\d)?)(?=\s,\|\z)}g;` [download] seems to do the right thing. I hope this is of use. Cheers, JohnGG	[reply] [d/l] [select]
Re^2: Regex problem by halley (Prior) on May 10, 2007 at 17:09 UTC
The `m//g` operator, and the `split()` function, are opposite sides of the same coin. If it's easier to describe the things you want to keep, use a match. If it's easier to describe the things you want to discard, use a split. `m{(\d+(?:\.\d)?)(?=\s,\|\z)}g` [download] `split /,/` [download] Which seems easier to write, read, and maintain? -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l] [select]
Re: Regex problem by RL (Monk) on May 10, 2007 at 09:11 UTC
`my $string = '00CH,Gateshead MCD,619,172.90,158.94,186.87,,537,87.42,7 +9.61,95.23,,11 +56,126.89,119.29,134.50 '; my (@ary); (undef,undef,@ary) = split(/\s,\s/, $string);` [download] should take care of whitspaces before or after the comma as well.	[reply] [d/l]