Himmel! in zeile 44 ist immer noch der Fehler mit dem "=!" da muß "ne" stehen!!!!
List hier eigentlich auch mal jemand die Beiträge?
"warings" würde da eine Warnung ausspucken!

Gast+2008-08-22 13:00:07--

List hier eigentlich auch mal jemand die Beiträge?

Du meinst außer uns Trollinger?

Gast+2008-08-22 13:00:07--

Himmel! in zeile 44 ist immer noch der Fehler mit dem "=!" da muß "ne" stehen!!!!
List hier eigentlich auch mal jemand die Beiträge?
"warings" würde da eine Warnung ausspucken!

Himmel! In dem Post sind so viele Fehler. Liest Du Deine Postings auch mal vor dem Abschicken?

Wir sind nicht da, um solche "Kleinigkeiten" zu beseitigen. Wir haben hier Starthilfe gegeben (und havi sogar noch mehr). In dem Beispielcode wird das warnings-Pragma verwendet, so dass das bei der Ausführung auffällt. Hier hat sich keiner verpflichtet, ein lauffähiges vollständiges Programm zu liefern. Der OP muss selbst auch noch etwas Hirnschmalz in die Lösung seiner Probleme stecken.

Gast+2008-08-22 13:15:09--

Du meinst außer uns Trollinger?

Wenn schon dann Trollingern!

Ok Leuts, ihr habt euern Spass gehabt jetzt lasst uns wieder in Ruhe unserem Ding nachgehen... hush hush!

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;
}

so hier gehts weiter :

#AB FL 17+18
elsif($array[2] =~ "\\+")
{
($vormplus,$nachmplus) = split("\\+",$array[2]);
printf AUSGABEDATEI "%s\t%s-%03u-%03u \n", $org, $Gemarkungsnummer,$vormplus,$nachmplus, $Flurnummer, $Flurstuecksnummerzaehler,$Flurstuecksnummernenner;
}

#AL FL 18 NR 21 22 618
if($array[5] ne "UA" & $array[6] ne "" & $array[6] ne "UA")
{
$Flurstuecksnummer2=$array[5];
($Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2)=split ("/",$Flurstuecksnummer2); # aufsplitten in Zaehler und Nenner
$Flurstuecksnummer3=$array[6];
($Flurstuecksnummerzaehler3,$Flurstuecksnummernenner3)=split ("/",$Flurstuecksnummer3); # aufsplitten in Zaehler und Nenner

printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00 \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler3,$Flurstuecksnummernenner3;
}

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

#AL FL 18 NR 101 102 UA
if($array[6] ge "UA")
{
$Flurstuecksnummer2=$array[5];
($Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2)=split ("/",$Flurstuecksnummer2); # aufsplitten in Zaehler und Nenner

printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00 \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2;
}

if($org =~ "\\-" or $org =~ "\\.")
{
printf FEHLERDATEI "$org \n";
}

}
close(EINGABEDATEI) or die $!;
close(AUSGABEDATEI) or die $!;
close(FEHLERDATEI) or die $!;

[/perl]

so meine frage:

HX FL 14 NR 43 U.A. soll mir genau wie die anderen in der ausgabedatei und ncih der felerdatei ausgegeben werden und zwar so:

HX FL 14 NR 43 U.A.052363-009-00043/000.00-U.A.

wie kriege ich das noch dazu?

kann mir da keiner helfen? Sorry aber wie mache ich das denn mit dem quellcode so das man den so sieht wie ihr wollt?

1. Benutzerkonto anlegen
2. Einloggen
3. [perl]-Tags nutzen

Als Gast darf man nur 2000 Zeichen schreiben.

hallo ich habe so ein ähnliches programm wie es aussieht. ich muss hierbei dazwischen sortieren wenn da steht 22-25 dann muss es die zahlen 022 023 024 und 025 in meiner text.txt datei ausgeben. wenn es zum beispiel 9-3 ist muss es in der auss.txt datei da dort die aussortierten hin kommen.
kann mir jemand sagen wie das machbar ist?