#!/usr/bin/perl
use locale;
use encoding 'utf8';
use utf8;
use URI::Escape;
use strict;
use POSIX;
sub convert_unicode_to_html {
my $code=$_[0];
my $char;
my $rezult;
my @chars = split(//, $code);
my $ordchar;
foreach $char (@chars) {
$ordchar=ord($char);
if ($ordchar < 128) { $rezult=$rezult.$char; }
else { $rezult=$rezult."&#".$ordchar.";"; }
}
return $rezult;
}
binmode(STDIN,':utf8'); # четене на файл с кодиране Уникод UTF-8
binmode(STDERR,':utf8'); # запис на файл с кодиране Уникод UTF-8
binmode(STDOUT,':utf8'); # запис на файл с кодиране Уникод UTF-8
my $line;
while (defined($line = <STDIN>)) {
print "document.write(unescape('".uri_escape(convert_unicode_to_html($line), "\0-\377")."'));\n";
}
