how about this:
#!/usr/bin/perl -w
use strict;
use Algorithm::Diff qw(diff LCS);
use HTML::TokeParser;
use LWP::Simple;
sub tokenize_url
{
my $url = shift;
my $content = get $url or die $!;
my $p = new HTML::TokeParser(\$content);
my (@tokens, $token);
push @tokens, $token
while (defined ($token = $p->get_token));
\@tokens;
}
my @content = map { tokenize_url($_) } qw{
http://perlmonks.org/index.pl?node_id=32285
http://perlmonks.org/index.pl?node_id=32286
};
# hash tokens based on their text content
sub hash_token {$_[0][$_[0][0] eq 'T' ? 1 : -1]}
my @diffs = diff $content[0], $content[1], \&hash_token;
my @LCS = LCS $content[0], $content[1], \&hash_token;
my $largest = 0;
for my $hunk (@diffs)
{
my (@deletions, @additions);
for (@$hunk)
{
push @deletions, $_ if $_->[0] eq '-';
push @additions, $_ if $_->[0] eq '+';
}
my $size = @deletions > @additions ? @deletions : @additions;
$largest = $size if $size > $largest;
}
print scalar(@{$content[0]}), " line",
(@{$content[0]} == 1 ? '' : 's'), " in original", $/;
print scalar(@{$content[1]}), " line",
(@{$content[1]} == 1 ? '' : 's'), " in revision", $/;
print scalar(@diffs), " hunk", (@diffs == 1 ? '' : 's'),
" differ", $/;
print $largest, " line", ($largest == 1 ? '' : 's'),
" in largest hunk", $/;
printf "Revision %0.2f%% similar to original$/",
100 * @LCS / @{$content[0]};
updated 2001-Aug-01: small code changes; renamed from "RE: Re: HTML Document Comparison"
-
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.