From 6925b6a382a0266291e0e0ed1c4210cdfe098f0c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 18 Jun 2010 23:29:12 +0200
Subject: [PATCH] extract meters from text data

---
 public/code/Habitat.habitat_m.pl | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 public/code/Habitat.habitat_m.pl

diff --git a/public/code/Habitat.habitat_m.pl b/public/code/Habitat.habitat_m.pl
new file mode 100644
index 0000000..af08729
--- /dev/null
+++ b/public/code/Habitat.habitat_m.pl
@@ -0,0 +1,6 @@
+foreach my $v ( @{ $row->{Habitat} } ) {
+ foreach my $m ( $v =~ m/\b(\d+,?\d*(?:\s*-\s*\d+,?\d*)?)\s*m(?:et)?/g ) {
+  $m =~ s/,//g;
+  push @{ $row->{habitat_m} }, $m;
+ }
+}
-- 
2.20.1