example for repeatable or non-repeatable values

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

foreach my $v ( @{ $row->{Habitat} } ) {\r
 foreach my $ref ( $v =~ m/\[((?:\d+)(?:\s*,\s*\d+)?)\]/g ) {\r
  push @{ $row->{habitat_references} }, split(/\s*,\s*/,$ref);\r
 }\r
}