2002/ws/desc/tools cleanup-diff.pl,NONE,1.1

• From: Hugo Haas via cvs-syncmail <cvsmail@w3.org>
• Date: Tue, 25 Apr 2006 09:03:17 +0000
• To: public-ws-desc-eds@w3.org
• Message-Id: <20060425090317.5A6B44EECF@homer.w3.org>

Update of /sources/public/2002/ws/desc/tools
In directory homer:/tmp/cvs-serv24024

Added Files:
	cleanup-diff.pl 
Log Message:
Cleans up the output of htmldiff by hiding anchor and internal link changes


--- NEW FILE: cleanup-diff.pl ---
#!/usr/bin/perl
#
# Cleans up the output of htmldiff by hiding anchor and internal link changes
# Hugo Haas <hugo@w3.org>

while (<STDIN>) {
    $s .= $_;
}

$CLASS='<span\s+class=\s?"diff-old">';

$s =~ s|$CLASS\&lt;a\s+href=\s?\"\#[^\"]+?\"\&gt;</span> ||gs;
$s =~ s|$CLASS\&lt;a\s+name=\s?\"[^\"]+?\"\s+id=\s?\"[^\"]+?\"\&gt;</span> ||gs;

print $s;

Received on Tuesday, 25 April 2006 09:03:25 UTC