view release on metacpan or  search on metacpan

bin/eng2kor  view on Meta::CPAN

use warnings;
use utf8;
use Encode qw/encode decode/;
use Pod::Usage;
use Getopt::Long;
use Acme::eng2kor;

if ( $^O =~ m/MSWin32/i ) { # for Windows
    binmode STDIN,  ':encoding(euc-kr)';
    binmode STDOUT, ':encoding(euc-kr)';
    @ARGV = map { decode( 'euc-kr', $_ ) } @ARGV;
} else {
    binmode STDIN,  ':encoding(UTF-8)';
    binmode STDOUT, ':encoding(UTF-8)';
    @ARGV = map { decode( 'utf8', $_ ) } @ARGV;
}

my %options;
GetOptions( \%options, "--src=s", "--dst=s", "--reverse", "--help", "--list" );
pod2usage( 0, -noperldoc => 1 ) if $options{help};
my $src = $options{src} || $ENV{E2K_SRC} || 'en';
my $dst = $options{dst} || $ENV{E2K_DST} || 'ko';
($src, $dst) = ($dst, $src) if $options{reverse};
die "src - ENV{E2K_SRC}: $src\ndst - ENV{E2K_DST}: $dst\n" if $options{list};
my $app = Acme::eng2kor->new(src => $src, dst => $dst);

bin/eng2kor  view on Meta::CPAN

	eng2kor english                                                     # English to Korean
	eng2kor hello world                                                 # multiple
	eng2kor "this is a sentence"                                        # sentence
	eng2kor --src=ko --dst=en 안녕하세요                                # Korean to English
	eng2kor -s ja こんにちは                                            # Japanese to Korean
	eng2kor -r 안녕하세요                                               # swap 'src' and 'dst'
	echo "word" | eng2kor                                               # use STDIN to ARG

	### add below line to your .vimrc
	set keywordprg=eng2kor                                              # type 'Shift + k' on a word what you find.
	map <C-e> :!eng2kor                                                 # type 'Ctrl + e'

=head1 SEE ALSO

* L<Acme::eng2kor>

=head1 AUTHOR

hshong <hshong@perl.kr>

=head1 COPYRIGHT AND LICENSE

lib/Acme/eng2kor.pm  view on Meta::CPAN

);

has 'translated' => (
    is => 'rw',
    isa => 'Str'
);


sub translate {
    my ($self, $word) = @_;
    map { s/^\s+//; s/\s+$// } $word if defined $word;
    return $self->_google_translate($word);
}


sub _google_translate {
    my ($self, $word) = @_;
    $self->text($word) if defined $word;
    my $text = uri_escape_utf8($self->text);
    my $escaped_uri = sprintf($GOOGLE_TRANSLATE_API_URL, $text, $self->src . '|' . $self->dst);
    my $json = $self->get_json($escaped_uri);