#!/usr/bin/perl
use strict;
use warnings;
use Text::Diff;
use List::Util qw( max );
my @one = <<END =~ /.*\n/g;
one
two
three
four
five
six
seven
eight
nine
ten
END
my @two = <<END =~ /.*\n/g;
one
twoplus
three
four
five
six
seven
eight
nine
tenminus
END
print "no CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table' };
print "\nlarge CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table', CONTEXT => max( $#one, $#t
+wo) };
Outputs:
no CONTEXT specified:
+--+-------+----------+
| 0|one |one |
* 1|two |twoplus *
| 2|three |three |
| 3|four |four |
| 4|five |five |
+--+-------+----------+
| 6|seven |seven |
| 7|eight |eight |
| 8|nine |nine |
* 9|ten |tenminus *
+--+-------+----------+
large CONTEXT specified:
+--+-------+----------+
| 0|one |one |
* 1|two |twoplus *
| 2|three |three |
| 3|four |four |
| 4|five |five |
| 5|six |six |
| 6|seven |seven |
| 7|eight |eight |
| 8|nine |nine |
* 9|ten |tenminus *
+--+-------+----------+