Unicode Normalization

nfd2nfc.pl

#!/usr/bin/perl
use strict;
use warnings;

use utf8;
use Encode;
use Unicode::Normalize qw/NFD NFC/;

my $encoding = $ENV{LANG} =~ /euc-?jp/i ? 'euc-jp' : 'utf-8';
binmode STDOUT, ":encoding($encoding)";
binmode STDERR, ":encoding($encoding)";

while(<STDIN>) {
	chomp;
	my $nfd = Encode::decode('utf8', $_);
	my $nfc = NFC($nfd);
	print "renaming $_ to $nfc";
	rename $_,$nfc;
}