prune-skk-jisyo.pl

#!/usr/bin/env perl

use 5.014;
use warnings;
use Getopt::Long;

GetOptions(
    'dry-run|n' => \my $opt_dry_run,
    'force|f'   => \my $opt_force,
);

die "Neither -n nor -f given\n" unless $opt_dry_run || $opt_force;

my $replace = ($opt_dry_run && $opt_force) ? undef
            : $opt_force ? 1
            : undef;

do {
    local $^I = $replace;

    my $jisyo_file = shift || '';
    die "Could not open SKK-JISYO '$jisyo_file'\n" unless -f $jisyo_file;

    @ARGV = $jisyo_file;
    while (<>) {
        if ($replace) {
            print unless m|//$|;
        }
        else {
            print "Would remove $_" if m|//$|;
        }
    }
};