script for rewriting clipboard

clipx.pl

use strict;
use warnings;
use utf8;
use Clipboard;
use Path::Tiny;
use Encode;


my $cp932 = Encode::find_encoding("cp932");
my $utf8  = Encode::find_encoding("utf8");

my $clip = $cp932->decode(Clipboard->paste);
printf "[input]\n";
printf "%s\n", $cp932->encode($clip);
printf "--\n";
printf "\n";

my $path = Path::Tiny->tempfile;
$path->spew_utf8($clip);

system "gvim", $path;

my $modified = $path->slurp_utf8;

if ($clip ne $modified) {
    my $str = $cp932->encode($modified);
    Clipboard->copy($str);

    printf "[modified]\n";
    printf "%s\n", $str;
    printf "--\n";
}