Chakotay
09-07-2006, 15:44
ich hab ein kleines problem mit dem vergleichen von 2 dateien
1. in der ausgabe wird immer die letzte zeile unterschlagen
(dabei wollte ich eig das alle zeilen verglichen werden :) )
2. wie bring ich das script dazu wenn ne zeile unterschiedlich iss
genau diese zeile mit zu posten ?
(also die zeile aus der $VERSNEW2 soll gepostet werden ,wenn se nen unterschied zu $VERSOLD hat :) )
hier mal das was ich immo hab :confused:
sub test_test_test
{
open(ALT,"<$VERSOLD") ;
my @Lines1 = <ALT> ;
close (ALT) ;
open(NEU,"<$VERSNEW2") ;
my @Lines2 = <NEU> ;
close NEU ;
for ($i = 0; $i < $#Lines1; $i++)
{
if($Lines1[$i] eq $Lines2[$i])
{ print "Zeile $i ist gleich";}
else
{ print "Zeile $2 ist unterschiedlich $ZEILENTEXT !";}
}
return 1 ;
}
1. in der ausgabe wird immer die letzte zeile unterschlagen
(dabei wollte ich eig das alle zeilen verglichen werden :) )
2. wie bring ich das script dazu wenn ne zeile unterschiedlich iss
genau diese zeile mit zu posten ?
(also die zeile aus der $VERSNEW2 soll gepostet werden ,wenn se nen unterschied zu $VERSOLD hat :) )
hier mal das was ich immo hab :confused:
sub test_test_test
{
open(ALT,"<$VERSOLD") ;
my @Lines1 = <ALT> ;
close (ALT) ;
open(NEU,"<$VERSNEW2") ;
my @Lines2 = <NEU> ;
close NEU ;
for ($i = 0; $i < $#Lines1; $i++)
{
if($Lines1[$i] eq $Lines2[$i])
{ print "Zeile $i ist gleich";}
else
{ print "Zeile $2 ist unterschiedlich $ZEILENTEXT !";}
}
return 1 ;
}