1) cygwin diff
2) dos fc
3) Algorithm::Diff, ex:
---code example---
my @a = <A>;
my @B = <B>;
my $match_callback = sub {
# what to do when there is a match
};
my $discard_a_callback = sub {
# what to do if a is discarded
};
my $discard_b_callback = sub {
# what to do if b is discarded
};
my $change_callback = sub {
# what to do if a change is detected
}
traverse_balanced( \@a, \@b,
{ MATCH => $match_callback,
DISCARD_A => $discard_a_callback,
DISCARD_B => $discard_b_callback,
CHANGE => $change_callback }
);
--/code example---
cheers,
-dave
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
