view release on metacpan or  search on metacpan

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

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

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

# MAIN

parse_cmdline();
run();

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

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

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

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

# MAIN

parse_cmdline();
run();

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