comment on

Use Algorithm::Diff to show the differences as color-coded HTML between two text sequences.

use Algorithm::Diff qw(traverse_sequences);

my ($old, $new) = split /\n--\n/, join "", <DATA>; # get strings

$_ = [split /\s+/, $_] for ($old, $new); # turn them into arrayrefs

traverse_sequences($old, $new, {
  MATCH => sub { print "$old->[shift]\n"},
  DISCARD_A => sub { print "<font color=red>$old->[shift]</font>\n"},
  DISCARD_B => sub { print "<font color=green>$new->[shift,shift]</fon
+t>\n"},
});

__END__
We start. Let's begin. This is the old text. Then we end.
--
We start. This is the new text.  And here's some stuff I added. Then w
+e end.
[download]

which produces:

We
start.
<font color=red>Let's</font>
<font color=red>begin.</font>
This
is
the
<font color=red>old</font>
<font color=green>new</font>
text.
<font color=green>And</font>
<font color=green>here's</font>
<font color=green>some</font>
<font color=green>stuff</font>
<font color=green>I</font>
<font color=green>added.</font>
Then
we
end.
[download]

which results in:

We start. Let's begin. This is the old new text. And here's some stuff I added. Then we end.

In reply to Showing differences between two sequences by merlyn

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Just another Perl shrine
	PerlMonks