view release on metacpan or  search on metacpan

script/remove-common-suffix  view on Meta::CPAN

        },
    );
    exit 99 if !$res;
}

sub run {
    require String::CommonSuffix;
    chomp(my @lines = <>);
    my $suffix = String::CommonSuffix::common_suffix(@lines);
    for (@lines) { s/\A\Q$suffix\E// }
    say for @lines;
}

# MAIN

parse_cmdline();
run();

1;
# ABSTRACT: Strip common suffix from each line of input
# PODNAME: remove-common-suffix

script/strip-common-suffix  view on Meta::CPAN

        },
    );
    exit 99 if !$res;
}

sub run {
    require String::CommonSuffix;
    chomp(my @lines = <>);
    my $suffix = String::CommonSuffix::common_suffix(@lines);
    for (@lines) { s/\A\Q$suffix\E// }
    say for @lines;
}

# MAIN

parse_cmdline();
run();

1;
# ABSTRACT: Strip common suffix from each line of input
# PODNAME: strip-common-suffix