Encode-Locale reviews

cpanratings
 

RSS | Module Info | Add a review of Encode-Locale

Encode-Locale (1.03) ****

thanks for such good module, you are save my day!!
now I could read russian symbol from console!!
#!/usr/bin/env perl
use utf8;
use Modern::Perl;
use Encode::Locale qw(decode_argv $ENCODING_LOCALE $ENCODING_LOCALE_FS

$ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT);

if (-t)
{

binmode(STDIN, ":encoding(console_in)");

binmode(STDOUT, ":encoding(console_out)");

binmode(STDERR, ":encoding(console_out)");
}

Encode::Locale::decode_argv();
my $lang = shift or die "Usage: $0 What_is_your_language?\n";

$lang =~ /

(perl|перл)

(?{print "use Perl or die!!\nИспользуй Перл или умри!!";})

/ix;

say "

$ENCODING_LOCALE $ENCODING_LOCALE_FS

$ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT";