From 32b345a730a51f7dcae292f46442223a4b0b9a01 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 7 Aug 2019 16:49:09 +0200
Subject: [PATCH] save output file into the data directory where the source
 data comes from

---
 geonames.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/geonames.pl b/geonames.pl
index ce0ba35..5a47949 100755
--- a/geonames.pl
+++ b/geonames.pl
@@ -5,14 +5,14 @@ use strict;
 use Data::Dumper;
 $Data::Dumper::Indent= 1;
 
-my $dir= 'data/2019-08-05a';
+my $dir= shift (@ARGV) || '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');
+write_data($data, join('/', $dir, 'wdq-geonames-gnd.tsv'));
 
 exit(0);
 
-- 
GitLab