also so weit bin ich jetzt gekommen


[perl]$hash{AL}="052301";
$hash{"BÖ"}="052313";
$hash{HX}="052363";
$hash{BRE}="052324";
$hash{BO}="052320";
$hash{"FÜ"}="052346";
$hash{GO}="052349";
$hash{"LÜC"}="052377";
$hash{"LÜT"}="052379";
$hash{OT}="052393";
$hash{OV}="052395";
$hash{ST}="052413";
$hash{BRU}="052325";


#Um switch anweisung zu benutzen
#use Switch;
# Eingabedatei öffnen
# Ausgabedatei-normalfälle öffnen
# Ausgabedatei-sonderfälle öffnen

open(EINGABEDATEI,'<',$ARGV[0]) or die $!;
open(AUSGABEDATEI,'>',$ARGV[1]) or die $!;
open(FEHLERDATEI,'>',$ARGV[2]) or die $!;
#schleife
while(<EINGABEDATEI>){ # Eingabedatei zeilenweise lesen
chomp;
$org=$_;
@array=split;
# $array[0]: Gemarkungsbezeichnung (z.B. AL)
# $array[1]: "FL"
# $array[2]: Flur nummer (z.B. 14)
# $array[3]: "NR"
# $array[4]: Flurstücksnummer (z.B. 42 oder 260/285)

$Gemarkungsnummer=$hash{$array[0]};
$Flurnummer=$array[2];
$Flurstuecksnummer=$array[4]; # aufsplitten in Zaehler und Nenner
($Flurstuecksnummerzaehler,$Flurstuecksnummernenner)=split ("/",$Flurstuecksnummer); # aufsplitten in Zaehler und Nenner

#AL FL 14 NR 42 UA
if($array[3] ge "NR" & $array[5] ge "UA")
{
printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00-$array[5] \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner;
}