extract meters from text data

[MojoFacets.git] / public / code / Habitat.habitat_m.pl

foreach my $v ( @{ $row->{Habitat} } ) {\r
 foreach my $m ( $v =~ m/\b(\d+,?\d*(?:\s*-\s*\d+,?\d*)?)\s*m(?:et)?/g ) {\r
  $m =~ s/,//g;\r
  push @{ $row->{habitat_m} }, $m;\r
 }\r
}\r