#!/usr/bin/perl

use warnings;
use strict;

open(EIN, "<test.csv") or die $!;

my %pnr;

while(<EIN>) {
   chomp;
   my @f = split(/;/);
   $pnr{join("", @f[0..126])} = 1;
} # while
close(EIN) or die $!;

open(EIN, "<testNEU.csv") or die $!;
open(AUS, ">NEU.txt")     or die $!;

while(<EIN>) {
   chomp;
   my @satz = split(/;/);
   my $vergleich = join("", @satz[0..126]);
   print AUS $_."\n" if not defined $pnr{$vergleich};
} # while

close(EIN) or die $!;
close(AUS) or die $!;

print "Fertig.\n";

1;

#Pruefen ob die benoetigten Module installiert sind, wenn ja landen, wenn nein
#sterben ;-}
#Es sind zwar durchweg Standard Module, aber sicher ist sicher
eval "require Getopt::Std;";
die "Modul Getopt::Std not installed\n" if $@;
use Getopt::Std;