nifgraup · December 5, 2010 23:36 · Dec 5, 2010 · Dec 5, 2010
diff --git a/osmnames.pl b/osmnames.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+# Author:  Björgvin Ragnarsson
+# License: Public Domain
+
+use OSM::osm; # PERL osm module by gary68
+
+openOsmFile('Iceland.osm');
+skipNodes();
+
+($wayId, $wayUser, $aRef1, @tags) = getWay();
+while ($wayId != -1)
+{
+    for($i = 0; exists $tags[0][$i]; $i++)
+    {
+	$key = substr($tags[0][$i], 0, 4);
+	$val = substr($tags[0][$i], 5);
+	if($key eq 'name')
+	{
+	  print $val;
+          last;
+	}
+    }
+    print "\n";
+    ($wayId, $wayUser, $aRef1, @tags) = getWay();
+}
+
+closeOsmFile();
diff --git a/postskrifta.sh b/postskrifta.sh
@@ -20,4 +20,4 @@ fi
 
 for n in $( echo $postalcodes ); do
   cat gotuskra.txt | iconv -f ISO_8859-1 -t $encoding | awk -v n="$n" 'BEGIN{FS=";"}{if ($2 == n) print $3}'
-done
+done
diff --git a/postskrifta.sh b/postskrifta.sh
@@ -0,0 +1,23 @@
+#!/bin/sh
+
+# Author: Björgvin Ragnarsson
+# License: Public Domain
+
+encoding="UTF-8" # annað algengt: "ISO_8859-1"
+
+if [ "$1" = "--list-towns" ]; then
+        awk 'BEGIN{FS=";"}{print $2}' postnumer.txt | uniq | iconv -f ISO_8859-1 -t $encoding
+	exit
+elif [ "$1" = "--town" ]; then
+	postalcodes=`cat postnumer.txt | iconv -f ISO_8859-1 -t $encoding | grep $2 | awk 'BEGIN{FS=";"}{print $1}'`
+elif [ "$1" = "--codes" ]; then
+	postalcodes=$2
+else
+	echo "Usage:"
+	echo "         $0 --list-towns | --codes ""LIST_OF_POSTAL_CODES"" | --town TOWN"
+	exit
+fi
+
+for n in $( echo $postalcodes ); do
+  cat gotuskra.txt | iconv -f ISO_8859-1 -t $encoding | awk -v n="$n" 'BEGIN{FS=";"}{if ($2 == n) print $3}'
+done