Perl - How to solve the trouble with encoding in windows console? -
trying use russian lettaz , console acts donkey, because not react on use utf8/utf-8 or cp1251 directives . encoding of text marked red colour don't know. knows how solve ? code listing below: #!/usr/bin/perl -w use strict; use warnings; use tie::ixhash; tie %hash, "tie::ixhash"; %hash = ( 'шляпа' => 'серая', 'водка' => 'горькая', 'вобла' => 'вкусная'); print "В упорядоченной вставке список хеша такой:\n"; foreach $qwerty (keys %hash){ print " $qwerty\n"; } print "Кроме того, предметы обладают некоторыми свойствами:\n"; while((my($predmet, $opredelenie)) = each %hash){ print "$predmet $opredelenie","\n"; } you need specify stdout encoding. script utf-8 encoded: use strict; use warnings; #use tie::ixhash; use utf8; binmode stdout, ":encoding(cp866)"; %hash = ( 'шляпа' => 'серая', 'водка&#
