Thread Zeichenlimit einrichten
(40 answers)
Opened by andy at 2013-05-03 14:53
Hallo zusammen,
ist schon etwas her, aber ich bin zuletzt erst dazu gekommen die Codes weiterzumachen. Derzeit sieht er folgendermaßen aus: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 open INFILE1, '<content.csv' or die "Fehler beim Öffnen der Datei"; open INFILE2, '<common.csv' or die "Fehler beim Öffnen der Datei"; open OUTFILE, '>neu.csv' or die "Fehler beim Öffnen der Datei"; my @datei1 = <INFILE1>; my $nummer1; my $kuerzel1; my $gesetz1; my @datei2 = <INFILE2>; my $nummer2; my $kuerzel2; my $gesetz2; my %hash; for (my $i=1;$i<@datei1;$i++){ my $line1 = $datei1[$i]; ($nummer1, $kuerzel1, $gesetz1) = split /;/, $line1, 3; } $hash {$kuerzel1} = $gesetz1; for (my $j=1;$j<@datei2;$j++){ my $line2 = $datei2[$j]; ($nummer2, $kuerzel2, $gesetz2) = split /;/, $line2, 3; } if (exists($hash{$kuerzel2})){ print OUTFILE join(';', $kuerzel1, $gesetz1, $gesetz2); } Das Problem ist, er gibt nur das letzte Kürzel und die dazugehörigen Gesetze aus. Was habe ich übersehen, dass er die davor wieder löscht und nur das letzte ausgibt? Vielen Dank im Voraus! Viele Grüße andy Last edited: 2013-05-31 11:32:46 +0200 (CEST) |