SourceForge: csvdiff/csvdiff: changeset 94:9c689db68a6d
Perlcritic Level 4 erreicht
authorRoland Schmitz <r-sch@users.sourceforge.net>
Sun Oct 04 20:01:15 2009 +0200 (2 months ago)
changeset 949c689db68a6d
parent 93 6cda6ccb81c0
child 95 03c2fabcabd1
Perlcritic Level 4 erreicht
blib/lib/csvdiff.pl
blib/script/csvdiff.pl
csvdiff.pl
     1.1 --- a/blib/lib/csvdiff.pl	Fri Oct 02 15:29:35 2009 +0200
     1.2 +++ b/blib/lib/csvdiff.pl	Sun Oct 04 20:01:15 2009 +0200
     1.3 @@ -616,14 +616,20 @@
     1.4  #  return ($von + 1);
     1.5    
     1.6    #print " von=$von bis=$bis  anz_zeichen=$anz_zeichen Bereich im soll = $soll_teil\n";
     1.7 -  # rueckgabe der Stelle
     1.8 -  if(($bis - $von) == 0) {
     1.9 -    return ($von + 1);
    1.10 -  }
    1.11 +
    1.12 +#  # rueckgabe der Stelle
    1.13 +#  if(($bis - $von) == 0) {
    1.14 +#    return ($von + 1);
    1.15 +#  }
    1.16 +#  # erneute Rekursion
    1.17 +#  else {
    1.18 +#    diff_pos($ist,$soll,$neu_von,$neu_bis);
    1.19 +#  }
    1.20 +  return ($von + 1) if(($bis - $von) == 0);
    1.21 +
    1.22    # erneute Rekursion
    1.23 -  else {
    1.24 -    diff_pos($ist,$soll,$neu_von,$neu_bis);
    1.25 -  }
    1.26 +  return diff_pos($ist,$soll,$neu_von,$neu_bis);
    1.27 +
    1.28  }
    1.29  # === Ende von Funktion diff_pos ==============================================
    1.30  
     2.1 --- a/blib/script/csvdiff.pl	Fri Oct 02 15:29:35 2009 +0200
     2.2 +++ b/blib/script/csvdiff.pl	Sun Oct 04 20:01:15 2009 +0200
     2.3 @@ -619,14 +619,20 @@
     2.4  #  return ($von + 1);
     2.5    
     2.6    #print " von=$von bis=$bis  anz_zeichen=$anz_zeichen Bereich im soll = $soll_teil\n";
     2.7 -  # rueckgabe der Stelle
     2.8 -  if(($bis - $von) == 0) {
     2.9 -    return ($von + 1);
    2.10 -  }
    2.11 +
    2.12 +#  # rueckgabe der Stelle
    2.13 +#  if(($bis - $von) == 0) {
    2.14 +#    return ($von + 1);
    2.15 +#  }
    2.16 +#  # erneute Rekursion
    2.17 +#  else {
    2.18 +#    diff_pos($ist,$soll,$neu_von,$neu_bis);
    2.19 +#  }
    2.20 +  return ($von + 1) if(($bis - $von) == 0);
    2.21 +
    2.22    # erneute Rekursion
    2.23 -  else {
    2.24 -    diff_pos($ist,$soll,$neu_von,$neu_bis);
    2.25 -  }
    2.26 +  return diff_pos($ist,$soll,$neu_von,$neu_bis);
    2.27 +
    2.28  }
    2.29  # === Ende von Funktion diff_pos ==============================================
    2.30  
     3.1 --- a/csvdiff.pl	Fri Oct 02 15:29:35 2009 +0200
     3.2 +++ b/csvdiff.pl	Sun Oct 04 20:01:15 2009 +0200
     3.3 @@ -616,14 +616,20 @@
     3.4  #  return ($von + 1);
     3.5    
     3.6    #print " von=$von bis=$bis  anz_zeichen=$anz_zeichen Bereich im soll = $soll_teil\n";
     3.7 -  # rueckgabe der Stelle
     3.8 -  if(($bis - $von) == 0) {
     3.9 -    return ($von + 1);
    3.10 -  }
    3.11 +
    3.12 +#  # rueckgabe der Stelle
    3.13 +#  if(($bis - $von) == 0) {
    3.14 +#    return ($von + 1);
    3.15 +#  }
    3.16 +#  # erneute Rekursion
    3.17 +#  else {
    3.18 +#    diff_pos($ist,$soll,$neu_von,$neu_bis);
    3.19 +#  }
    3.20 +  return ($von + 1) if(($bis - $von) == 0);
    3.21 +
    3.22    # erneute Rekursion
    3.23 -  else {
    3.24 -    diff_pos($ist,$soll,$neu_von,$neu_bis);
    3.25 -  }
    3.26 +  return diff_pos($ist,$soll,$neu_von,$neu_bis);
    3.27 +
    3.28  }
    3.29  # === Ende von Funktion diff_pos ==============================================
    3.30