Юникод

[shoorick]

0. Читая man, выяснил, что офисный Юникод — это UCS-2LE. А если в ём переставить байты местами — это USC-2BE, или просто UCS-2, или ISO-10646-1.
1. Простейший перловый декодер из офисного Юникода в windows-1251:

   #!/usr/bin/perl -w
   use strict;
   
   open(my $fh, '<:encoding(ucs2_le)', $ARGV[0]);
   my @txt = <$fh>;
   binmode(STDOUT, ":encoding(cp1251)");
   print join('', @txt);

   И что самое главное, не нужен ни внешний софт, ни доп. библиотеки — всё уже есть!
2. upd: а с использованием библиотеки Encode ещё проще:

   #!/usr/bin/perl -w
   use strict;
   use Encode 'from_to'; 
   my $str = ".\cD=\cD8\cD:\cD>\cD4\cD";
   from_to($str, "UCS-2LE", "cp1251");
   print $str;

Comments

[sappa.livejournal.com]

Можно еще чуток короче :)

perl -Mencoding=ucs2_le,STDOUT,cp1251 -pe 1

[Error: Irreparable invalid markup ('<in.txt>') in entry. Owner must fix manually. Raw contents below.]

Можно еще чуток короче :)

perl -Mencoding=ucs2_le,STDOUT,cp1251 -pe 1 <in.txt >out.txt

Ага

[shoorick.livejournal.com]

О сколько нам открытий чудных… :-)

[sharifulin.livejournal.com]

Единственное ограничение такого решения - это версия Perl без лаера (PerlIO), т.е. версии ниже 5.8.0.
А так вот это решение - просто супер:
perl -Mencoding=ucs2_le,STDOUT,cp1251 -pe 1

[Error: Irreparable invalid markup ('<in.txt>') in entry. Owner must fix manually. Raw contents below.]

Единственное ограничение такого решения - это версия Perl без лаера (PerlIO), т.е. версии ниже 5.8.0.
А так вот это решение - просто супер:
<b>perl -Mencoding=ucs2_le,STDOUT,cp1251 -pe 1 <in.txt >out.txt</b>