initial version of geonames.pl; match geonames ids (P1566) with GND (P227)

geonames.pl

+#!/usr/bin/perl
+
+use strict;
+
+use Data::Dumper;
+$Data::Dumper::Indent= 1;
+
+my $dir= 'data/2019-08-05a';
+
+my $data= {};
+
+read_tsv($data, join('/', $dir, 'P1566.csv'), 'P1566', 0);
+read_tsv($data, join('/', $dir, 'P227.csv'), 'P227', 1);
+
+write_data($data, 'geonames.tsv');
+
+exit(0);
+
+sub write_data
+{
+  my $data= shift;
+  my $fnm= shift;
+
+  open (FO, '>:utf8', $fnm) or die "can't write $fnm";
+  print "writing $fnm\n";
+
+  my @what= qw(P1566 P227); my @fields= qw(lang label val);
+  my @columns= qw(id);
+  foreach my $what (@what)
+  {
+    push (@columns, map { join('_', $what, $_) } @fields);
+  }
+
+  print FO join ("\t", @columns), "\n";
+
+  foreach my $id (sort keys %$data)
+  {
+    my @fields= $id;
+    foreach my $what (@what)
+    {
+      my $x= $data->{$what};
+      push (@fields, map { $x->{$_} } @fields);
+    }
+
+    print FO join ("\t", @fields), "\n";
+  }
+  close (FO);
+}
+
+sub read_tsv
+{
+  my $data= shift;
+  my $tsv= shift;
+  my $what= shift;
+  my $only_matching= shift;
+
+  open (FI, '<:utf8', $tsv) or die "can't read $tsv";
+  my $columns= <FI>;
+  print "reading $tsv\n";
+  my $count= 0;
+  LINE: while (<FI>)
+  {
+    chop;
+    my @f= split("\t");
+
+    my $id= $f[5];
+    next LINE if ($only_matching && !exists($data->{$id}));
+
+    $data->{$id}->{$what}=
+    {
+      lang  => $f[12],
+      label => $f[13],
+      val   => $f[14],
+    };
+    $count++;
+  }
+
+  close(FI);
+
+  $count;
+}
+