topic Re: Change diff-Algorithmus in Operating System - Linux

Change diff-Algorithmus

Kalin Evtimov — Fri, 20 Jan 2006 05:05:26 GMT

Hallo!
I am using this algorithm to compare two files.

Code:

@one = qw(a a a a b c d e f g);
@two = qw(b c e h i i i i j);
my %tracker = ();
$tracker{$_} .= 1 for @one;
$tracker{$_} .= 2 for @two;
for (sort keys %tracker) {
if ($tracker{$_} !~ /1/) {
print "$_ has been added\n";
} elsif ($tracker{$_} !~ /2/) {
print "$_ has been deleted\n";
} else {
print "$_ is in both old and new\n";
}
}

It has following output:

a has been deleted
b is in both old and new
c is in both old and new
d has been deleted
e is in both old and new
f has been deleted
g has been deleted
h has been added
i has been added
j has been added

here "a" is mentioned only once, since there are 4 "a"-s in the first array. What can I chnage in order to get them all appearing?

Thank you!

Re: Change diff-Algorithmus

Peter Godron — Fri, 20 Jan 2006 05:24:50 GMT

Hi,
not really a solution, but have you had a look at the "comm" command ?

Re: Change diff-Algorithmus

Kalin Evtimov — Fri, 20 Jan 2006 05:39:29 GMT

No :(

Re: Change diff-Algorithmus

Kalin Evtimov — Fri, 20 Jan 2006 05:45:25 GMT

comm will not wirk, because I am comparing log files and if I sort them, I won't be able to extract the last changes that happened.

Re: Change diff-Algorithmus

Peter Godron — Fri, 20 Jan 2006 06:29:52 GMT

Ok,
how about:
@one = qw(a a a a b c d e f g);
@two = qw(b c e h i i i i j);
my %tracker = ();
$tracker{$_} .= 1 for @one;
$tracker{$_} .= 2 for @two;
for (sort keys %tracker) {
$tester = length($tracker{$_});
if ($tracker{$_} !~ /1/) {
print "$_ has been added $tester time(s)\n";
} elsif ($tracker{$_} !~ /2/) {
print "$_ has been deleted $tester time(s)\n";
} else {
print "$_ is in both old and new\n";
}
}

Re: Change diff-Algorithmus

Peter Godron — Mon, 23 Jan 2006 04:20:30 GMT

Kalin,
how are you getting on with this?
Can you pleas update.

Re: Change diff-Algorithmus

Kalin Evtimov — Mon, 23 Jan 2006 05:33:21 GMT

Yeah, of course.
I was just playing around with this piece of code.
You idea worked for me perfectly. I just put the $tester in a for-loop to print $tester-times the element and now I have it.

Thank you for this idea!