saveme.pl

use 5.010;
use strict;
use warnings;
use open qw/:std :utf8/;
use utf8;

my @moins;
my @plus;

sub uu ($$) {
    my $tmoins = shift;
    my $tplus = shift;

    $tmoins =~ s/ :/ :/g;
    $tmoins =~ s/ !/ !/g;
    $tmoins =~ s/ \?/ ?/g;
    $tmoins =~ s/ ;/ ;/g;

    my $mmoins = $tmoins;
    $mmoins =~ s/ .../ …/g;

    my $cmoins = $mmoins;
    $cmoins =~ s/^-/+/;

    if ($cmoins eq $tplus) {
        $tplus =~ s/^\+/-/;
        $tmoins =~ s/^-/+/;
        print $tplus;
        print $tmoins;
    } else {
        #$cmoins =~ s/^\+/!/;
        #print $cmoins;
        $tplus =~ s/^\+/ /;
        print $tplus;
    }
}

sub tt {
    if ($#moins < $#plus) {
        for my $i (0 .. $#moins) {
            uu $moins[$i], $plus[$i];
        }
        for my $i (0 .. $#moins) {
            shift @plus;
        }
        foreach (@plus) {
            $_ =~ s/^\+/ /;
            print $_;
        }
    } elsif ($#plus < $#moins) {
        for my $i (0 .. $#plus) {
            uu $moins[$i], $plus[$i];
        }
    } else {
        for my $i (0 .. $#moins) {
            uu $moins[$i], $plus[$i];
        }
    }

    @plus = ();
    @moins = ();
}

while (<>) {
    if (/^--- / || /^\+\+\+ / || /^--$/) {
        print $_;
    } elsif (/^\+/) {
        push @plus, $_;
    } elsif (/^-/) {
        push @moins, $_;
    } elsif (/^@@ -([0-9]+,[0-9]+) \+([0-9]+,[0-9]+) @@(.*)$/) {
        print "\@\@ -$2 +$2 \@\@$3\n";
    } else {
        my $line = $_;
        tt;
        print $line;
    }
}
tt;