﻿#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use integer;


# Filter_2_01_additional_metadata.pl
# 2010-04-04
# Wolfgang Schmidle

# what does it do?
# input
# output

my $dir = "/Users/wschmidle/Desktop/Schema/trunk/trunk/texts/aux";
my $gnd = "metadata-gnd.txt";


# text input

my @text;
while(<>) { push @text, $_; }


@ARGV = ("$dir/$gnd");
my %gnd = ();
my $gndFormat = "[0-9]{8}[0-9X]";

while (<>) {
	
	chomp;
	s!#.*$!!; # remove comments
	s! +$!!;
	next if m!^$!;
	
	if (m!(.+?) *= *($gndFormat)!) {
		$gnd{$1} = $2;
	}
}

# foreach my $key (sort keys %gnd) { warn "Name: $key, GND: $gnd{$key}\n"; }
# die "That's all.\n";


# go through the text

foreach (@text) {

}


# text output

print @text;


# TO DO:
# ...

# wie erhält dieses Skript die Metadaten? Sind sie in Filter_1_01_import_text.pl
# schon vorbehandelt worden, oder sind sie noch so, wie index.meta sie schuf?
# Steht schon "metadata:" davor?
# Spätestens hier in das Zwischenformat überführen 
# (oder in korrektem XML lassen? Eigentlich ist das Zwischenformat überflüssig)
# ergänze links insbesondere zum alten ECHO (für die weitere Bearbeitung),
# aber auch zum Proto-System

# spätestens wenn das Skript mal ein webservice wird, sollte die Liste der GNDs 
# als getrennte Datei vorliegen.
# Wenn derselbe Autor mit anderer Schreibweise vorkommt, wird er halt ergänzt. 
# Es muss nicht gewitzt sein, sondern in der Praxis hilfreich.
