UTF-16 nach UTF-8 konvertieren

Hier ein kleines Perl-Skript mit dem man eine Datei die Datensätze in UTF-16 enthält nach UTF-8 konvertiert.

#!/usr/bin/perl

# Usage:
#   utf16to8.pl infile > outfile

use strict;
use warnings;

binmode(STDOUT, ':raw:encoding(UTF-8)');

for my $qfn (@ARGV) {
   # Assumes the presence of a BOM.
   open(my $fh, "<:raw:encoding(UTF-16)", $qfn)
      or die("Can't open \"$qfn\": $!\n");

   print while <$fh>;
}