1.1 --- a/blib/lib/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
1.2 +++ b/blib/lib/csvdiff.pl Fri Oct 02 15:29:35 2009 +0200
1.3 @@ -59,7 +59,7 @@
1.4 # $s_num_cols abgelegten Spalten (1).
1.5 my @a_num_cols = (); # Aufteilen der in $s_num_cols uebergebene(n) Felder
1.6 # in einzelne Werte
1.7 -my $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
1.8 +# $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
1.9 # dann als Schluessel der Hashs zu verwenden
1.10 my $s_separator = ','; # Feldtrenner
1.11 my $s_d_separator = '.'; # Dezimaltrennzeichen
1.12 @@ -78,9 +78,9 @@
1.13 my %h_key_all; # Hash das alle vorkommenden Key's enthaelt
1.14 # Wert = wie oft kommt der jeweilige Key in beiden
1.15 # Dateien vor
1.16 -my @a_records=(); # Array das mehrfach verwendet wird, um einen
1.17 +# @a_records=(); # Array das mehrfach verwendet wird, um einen
1.18 # Record am Trenner in einzelne Felder aufzuspalten
1.19 -my @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
1.20 +# @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
1.21 # werden
1.22 my @a_fadeout_cols=(); # Array in das die uebergebenen "Fadeout" Spalten
1.23 # aufgespalten werden
1.24 @@ -107,10 +107,9 @@
1.25 # Einige temporaere Variablen, die z.B. als Counter verwendet werden
1.26 my $s_line_counter; # Zeilenzaehler, wird mehrfach verwendet
1.27 my $s_field_counter; # Feldzaehler, wird mehrfach verwendet
1.28 -my ($s_trim, $s_zeile, $s_i, $s_tmp_counter, $s_key, $s_diff);
1.29 -my ($s_col, $s_tmp_col);
1.30 +my ($s_trim, $s_zeile, $s_i, $s_key, $s_diff, $s_col);
1.31 #my (@a_trim_act, @a_trim_exp, $s_tmp_var, $s_zeile_join);
1.32 -my (@a_tmp_lines, @a_tmp_records, $s_tmp_empty_lines);
1.33 +my (@a_tmp_records);
1.34
1.35 # === Funktion ================================================================
1.36 # Name: buggy
1.37 @@ -743,7 +742,7 @@
1.38
1.39 my ($s_file, @a_daten) = @_;
1.40
1.41 - my $s_line_counter = 0;
1.42 + $s_line_counter = 0;
1.43 my @a_records = (); # Array leer machen
1.44 my @a_key_cols = ();
1.45 my %h_tmp_key_data;
2.1 --- a/blib/script/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
2.2 +++ b/blib/script/csvdiff.pl Fri Oct 02 15:29:35 2009 +0200
2.3 @@ -62,7 +62,7 @@
2.4 # $s_num_cols abgelegten Spalten (1).
2.5 my @a_num_cols = (); # Aufteilen der in $s_num_cols uebergebene(n) Felder
2.6 # in einzelne Werte
2.7 -my $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
2.8 +# $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
2.9 # dann als Schluessel der Hashs zu verwenden
2.10 my $s_separator = ','; # Feldtrenner
2.11 my $s_d_separator = '.'; # Dezimaltrennzeichen
2.12 @@ -81,9 +81,9 @@
2.13 my %h_key_all; # Hash das alle vorkommenden Key's enthaelt
2.14 # Wert = wie oft kommt der jeweilige Key in beiden
2.15 # Dateien vor
2.16 -my @a_records=(); # Array das mehrfach verwendet wird, um einen
2.17 +# @a_records=(); # Array das mehrfach verwendet wird, um einen
2.18 # Record am Trenner in einzelne Felder aufzuspalten
2.19 -my @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
2.20 +# @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
2.21 # werden
2.22 my @a_fadeout_cols=(); # Array in das die uebergebenen "Fadeout" Spalten
2.23 # aufgespalten werden
2.24 @@ -110,10 +110,9 @@
2.25 # Einige temporaere Variablen, die z.B. als Counter verwendet werden
2.26 my $s_line_counter; # Zeilenzaehler, wird mehrfach verwendet
2.27 my $s_field_counter; # Feldzaehler, wird mehrfach verwendet
2.28 -my ($s_trim, $s_zeile, $s_i, $s_tmp_counter, $s_key, $s_diff);
2.29 -my ($s_col, $s_tmp_col);
2.30 +my ($s_trim, $s_zeile, $s_i, $s_key, $s_diff, $s_col);
2.31 #my (@a_trim_act, @a_trim_exp, $s_tmp_var, $s_zeile_join);
2.32 -my (@a_tmp_lines, @a_tmp_records, $s_tmp_empty_lines);
2.33 +my (@a_tmp_records);
2.34
2.35 # === Funktion ================================================================
2.36 # Name: buggy
2.37 @@ -746,7 +745,7 @@
2.38
2.39 my ($s_file, @a_daten) = @_;
2.40
2.41 - my $s_line_counter = 0;
2.42 + $s_line_counter = 0;
2.43 my @a_records = (); # Array leer machen
2.44 my @a_key_cols = ();
2.45 my %h_tmp_key_data;
3.1 --- a/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
3.2 +++ b/csvdiff.pl Fri Oct 02 15:29:35 2009 +0200
3.3 @@ -59,7 +59,7 @@
3.4 # $s_num_cols abgelegten Spalten (1).
3.5 my @a_num_cols = (); # Aufteilen der in $s_num_cols uebergebene(n) Felder
3.6 # in einzelne Werte
3.7 -my $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
3.8 +# $s_joined_key = ""; # Alle Keys zu einem String zusammenfassen, um diese
3.9 # dann als Schluessel der Hashs zu verwenden
3.10 my $s_separator = ','; # Feldtrenner
3.11 my $s_d_separator = '.'; # Dezimaltrennzeichen
3.12 @@ -78,9 +78,9 @@
3.13 my %h_key_all; # Hash das alle vorkommenden Key's enthaelt
3.14 # Wert = wie oft kommt der jeweilige Key in beiden
3.15 # Dateien vor
3.16 -my @a_records=(); # Array das mehrfach verwendet wird, um einen
3.17 +# @a_records=(); # Array das mehrfach verwendet wird, um einen
3.18 # Record am Trenner in einzelne Felder aufzuspalten
3.19 -my @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
3.20 +# @a_key_cols=(); # Array in das die uebergebenen Keys aufgespalten
3.21 # werden
3.22 my @a_fadeout_cols=(); # Array in das die uebergebenen "Fadeout" Spalten
3.23 # aufgespalten werden
3.24 @@ -107,10 +107,9 @@
3.25 # Einige temporaere Variablen, die z.B. als Counter verwendet werden
3.26 my $s_line_counter; # Zeilenzaehler, wird mehrfach verwendet
3.27 my $s_field_counter; # Feldzaehler, wird mehrfach verwendet
3.28 -my ($s_trim, $s_zeile, $s_i, $s_tmp_counter, $s_key, $s_diff);
3.29 -my ($s_col, $s_tmp_col);
3.30 +my ($s_trim, $s_zeile, $s_i, $s_key, $s_diff, $s_col);
3.31 #my (@a_trim_act, @a_trim_exp, $s_tmp_var, $s_zeile_join);
3.32 -my (@a_tmp_lines, @a_tmp_records, $s_tmp_empty_lines);
3.33 +my (@a_tmp_records);
3.34
3.35 # === Funktion ================================================================
3.36 # Name: buggy
3.37 @@ -743,7 +742,7 @@
3.38
3.39 my ($s_file, @a_daten) = @_;
3.40
3.41 - my $s_line_counter = 0;
3.42 + $s_line_counter = 0;
3.43 my @a_records = (); # Array leer machen
3.44 my @a_key_cols = ();
3.45 my %h_tmp_key_data;