Select Code to Download

/tmp>diff foo bar
1,2c1,2
...
< bar. Bla. Bar bla.
---
> bar. Bla bar bla.

/tmp>diff -u foo bar
--- foo 2021-01-31 15:13:16.892239748 +0100
...
-bar. Bla. Bar bla.
+bar. Bla bar bla.
 Foo bla bla nada bar.

/tmp>diff -y foo bar
Bla bla. Foo bar baz.                                         | Bla ba
+r. Foo bar baz.
...
Foo foo foo! Bar. Foo                                           Foo fo
+o foo! Bar. Foo
bar. Bla. Bar bla.                                            | bar. B
+la bar bla.
Foo bla bla nada bar.                                           Foo bl
+a bla nada bar.

/tmp>diff -n foo bar
d1 2
...
d4 1
a4 1
bar. Bla bar bla.

sub comparator {
my $str1 = shift @_;
...
    return ($original, $revised);
    
} #END SUB comparator

sub comparator 
{
...
    
    return ($original, $revised);
}