kspell.pl

#!/usr/bin/env perl
# 사용법
# chmod a+x kspell.pl
# ./kspell.pl "안뇽하세요? 방갑습니다."
use strict;
use warnings;
use WebService::KoreanSpeller;
use Encode qw/encode decode/;

my $text = decode('utf8', $ARGV[0]);
my $checker = WebService::KoreanSpeller->new( text => $text );
my @results = $checker->spellcheck;

binmode STDOUT, ':encoding(UTF-8)';
print "(",$_->{position},")",$_->{incorrect}," -> ",$_->{correct},"\n",
      $_->{comment},"\n-------------------------------\n" for @results;