ISO-8859-7 nach UCS2 wandeln - #111279 (Perl/CGI)

murphy

2008-06-19 18:19

User since
2004-07-19
1776 Artikel
HausmeisterIn

Perls interne Stringrepräsentation ist UTF-8. Daher musst Du zuerst von Entitykodierung nach UTF-8 und dann von UTF-8 nach UCS-2 konvertieren um schliesslich das Resultat als URI zu escapen:

Code (perl): (dl )

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

use HTML::Entities qw/decode_entities/;
use Encode qw/encode/;
use URI::Escape qw/uri_escape/;

my $input = '&#949;';
my $output = uri_escape(encode('UCS-2', decode_entities($input)));

say $output;

When C++ is your hammer, every problem looks like your thumb.