Thread Zeichenlimit einrichten
(40 answers)
Opened by andy at 2013-05-03 14:53
Danke für den Tipp. Hab jetzt versucht die Tipps zu übernehmen, nach der ersten Überarbeitung siehts jetzt 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 32 33 34 my $INFILE1 = 'asw_content.csv'; my $INFILE2 = 'fv_common.csv'; my $OUTFILE = 'neu.csv'; open (my $fh1, '<', $INFILE1) or die "Fehler beim Öffnen der Datei"; open (my $fh2, '<', $INFILE2) or die "Fehler beim Öffnen der Datei"; open (my $fh3, '>', $OUTFILE) or die "Fehler beim Öffnen der Datei"; my @datei1 = $fh1; my $nummer1; my $kuerzel1; my $gesetz1; my @datei2 = $fh2; 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 $fh3 join(';', $kuerzel1, $gesetz1, $gesetz2); } Jetzt spuckt der mir aber folgende Fehlermeldungen aus: Use of uninitialized value $kuerzel1 in hash element at line 25. Use of uninitialized value $kuerzel2 in exists at line 32. Use of uninitialized value $kuerzel1 in join or string at line 33. Use of uninitialized value $gesetz1 in join or string at line 33. Use of uninitialized value $gesetz2 in join or string at line 33. Als Anfänger hab ich immernoch nicht den Riecher dafür, was wo nicht stimmt, dass es dazu führt. Anyone? Last edited: 2013-05-31 13:19:16 +0200 (CEST) |