extract meters from text data

diff --git a/public/code/Habitat.habitat_m.pl b/public/code/Habitat.habitat_m.pl
new file mode 100644 (file)
index 0000000..af08729
--- /dev/null
+++ b/public/code/Habitat.habitat_m.pl
@@ -0,0 +1,6 @@
+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