Avacostn - Moslem

Choose File

DIR : Home /usr/games/../lib/environment.d/../../share/adobe/../doc/dmidecode/../perl-Algorithm-Diff/

Edit File: htmldiff.pl

#!/usr/bin/perl -w
# diffs two files and writes an HTML output file.
use strict;
use CGI qw(:standard :html3);
use Algorithm::Diff 'traverse_sequences';
use Text::Tabs;

my ( @a, @b );

# Take care of whitespace.
sub preprocess
{
	my $arrayRef = shift;
	chomp(@$arrayRef);
	@$arrayRef = expand(@$arrayRef);
}

# This will be called with both lines are the same
sub match
{
	my ( $ia, $ib ) = @_;
	print pre( $a[$ia] ), "\n";
}

# This will be called when there is a line in A that isn't in B
sub only_a
{
	my ( $ia, $ib ) = @_;
	print pre( { -class => 'onlyA' }, $a[$ia] ), "\n";
}

# This will be called when there is a line in B that isn't in A
sub only_b
{
	my ( $ia, $ib ) = @_;
	print pre( { -class => 'onlyB' }, $b[$ib] ), "\n";
}

# MAIN PROGRAM

# Check for two arguments.
print "usage: $0 file1 file2 > diff.html\n" if @ARGV != 2;

$tabstop = 4;    # For Text::Tabs

# Read each file into an array.
open FH, $ARGV[0];
@a = <FH>;
close FH;

open FH, $ARGV[1];
@b = <FH>;
close FH;

# Expand whitespace
preprocess( \@a );
preprocess( \@b );

# inline style
my $style = <<EOS;
	PRE {
		margin-left: 24pt; 
		font-size: 12pt;
	    font-family: Courier, monospaced;
		white-space: pre
    }
	PRE.onlyA { color: red }
	PRE.onlyB { color: blue }
EOS

# Print out the starting HTML
print

# header(),
  start_html(
	{
		-title => "$ARGV[0] vs. $ARGV[1]",
		-style => { -code => $style }
	}
  ),
  h1(
	{ -style => 'margin-left: 24pt' },
	span( { -style => 'color: red' }, $ARGV[0] ),
	span(" <i>vs.</i> "),
	span( { -style => 'color: blue' }, $ARGV[1] )
  ),
  "\n";

# And compare the arrays
traverse_sequences(
	\@a,    # first sequence
	\@b,    # second sequence
	{
		MATCH     => \&match,     # callback on identical lines
		DISCARD_A => \&only_a,    # callback on A-only
		DISCARD_B => \&only_b,    # callback on B-only
	}
);

print end_html();

Filemanager

Name	Size	Permission
.	rwxr-xr-x	-
..	rwxr-xr-x	-
Changes	1.71 KB	rw-r--r--
README	3.26 KB	rw-r--r--
cdiff.pl	12.04 KB	rw-r--r--
diff.pl	977 bytes	rw-r--r--
diffnew.pl	17.14 KB	rw-r--r--
htmldiff.pl	1.81 KB	rw-r--r--

Server Info

Hostname: 116.173.178.68.host.secureserver.net
IP Address: 68.178.173.116
PHP Version: 8.1.34
Server Software: Apache
HDD Total Space: 99.99 GB
HDD Free Space: 32.07 GB
Safe Mode: Disabled
Disable Functions: exec,passthru,shell_exec,system
Total Domains in Server: 1
System: Linux 116.173.178.68.host.secureserver.net 4.18.0-553.111.1.el8_10.x86_64 #1 SMP Sun Mar 8 20:06:07 EDT 2026 x86_64

User Info

Username: puthuppa
User ID: 1102
Group ID: 1104