print cyriilic (UTF-8) characters with PERL on HTML page

andipfaff · Sep 13, 2006

Hi there,

beginners question: I have written a small website with a PERL script
which can be viewed in 4 western european languages. Each text to be
displayed is stored in arrays like
$text1[1] = qq(Hallo);
$text1[2] = qq(Salut);
$text1[3] = qq(Saluti);
$text1[4] = qq(Hello);
and printed to STDOUT. Now I want to extend this with cyrillic
characters (5th language: russian). Unfortunately I have no idea how to
do that. I simply tried to cut&paste cyrillic letters from websites
like wikipedia cyrillic aplphabet, but in my Editor (DZSoft) I just get
a question mark when pasting. In Notepad pasting is OK, because he is
capable of UTF-8. DZSoft does not seem to be.

What are the minimum requirements to print a cyrillic character with
PERL into a website? I am working with Windows 2k english or german,
IIS 5 on a W2k Server, ActiveState PERL, and a MySQL database.

The PERL script is using CGI, but HTML code is written directly:
print qq(Content-type: text/html\n\n
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head> etc.

Does anybody can give me a simple script which I can test with Notepad
as en editor?

Thanks in advance
Andi Pfaff

Peter J. Holzer · Sep 13, 2006

beginners question: I have written a small website with a PERL script

The language is called "Perl", not "PERL".

which can be viewed in 4 western european languages. Each text to be
displayed is stored in arrays like
$text1[1] = qq(Hallo);
$text1[2] = qq(Salut);
$text1[3] = qq(Saluti);
$text1[4] = qq(Hello);
and printed to STDOUT. Now I want to extend this with cyrillic
characters (5th language: russian). Unfortunately I have no idea how to
do that. I simply tried to cut&paste cyrillic letters from websites
like wikipedia cyrillic aplphabet, but in my Editor (DZSoft) I just get
a question mark when pasting. In Notepad pasting is OK, because he is
capable of UTF-8.

So what's your problem? (Well, being forced to use notepad may count as
a problem, but it should be good enough for a short test script)

What are the minimum requirements to print a cyrillic character with
PERL into a website?

I don't think I understand the question.

The PERL script is using CGI, but HTML code is written directly:
print qq(Content-type: text/html\n\n

You need to declare the charset in the content-type:

print qq(Content-type: text/html; charset=utf-8\n\n

or you need to convert all non-latin-1 characters to entities.

Does anybody can give me a simple script which I can test with Notepad
as en editor?

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

my $txt = "ÑÐºÑ€Ð°Ð½Ð¾Ð¿Ð»Ð°ÌÐ½";

binmode STDOUT, ":utf8";
print "Content-Type: text/html; charset=utf-8\n";
print "\n";
print "$txt\n";

hp

andipfaff · Sep 14, 2006

auf so eine hochnÃ¤sige Antwort sollte man sich eigentlich den
Kommentar sparen!
- wieso fragst du nach dem problem, obwohl du noch gar nicht bis zum
Ende gelesen hast?
- wenn du die Frage nach dem Minnimum nicht verstehst, wieso
beantwortest du diese dann doch noch am Ende deines Kommentars?
- wieso soll Notepad ein Problem sein? Er ist immerhin kostenlos und
kann Unicode. Alle anderen drei Editoren, die ich probiert habe,
kÃ¶nnen das nicht
- Ob du nun Perl oder PERL schreibst, ist mir wurscht, denn
offensichtlich hast du ja trotz der falschen Rechtschreibung kapiert,
worum es geht, oder?
- ich benÃ¶tige kein "binmode STDOUT, ":utf8";", es funktioniert auch
ohne

beginners question: I have written a small website with a PERL script

Click to expand...

The language is called "Perl", not "PERL".

which can be viewed in 4 western european languages. Each text to be
displayed is stored in arrays like
$text1[1] = qq(Hallo);
$text1[2] = qq(Salut);
$text1[3] = qq(Saluti);
$text1[4] = qq(Hello);
and printed to STDOUT. Now I want to extend this with cyrillic
characters (5th language: russian). Unfortunately I have no idea how to
do that. I simply tried to cut&paste cyrillic letters from websites
like wikipedia cyrillic aplphabet, but in my Editor (DZSoft) I just get
a question mark when pasting. In Notepad pasting is OK, because he is
capable of UTF-8.

Click to expand...

So what's your problem? (Well, being forced to use notepad may count as
a problem, but it should be good enough for a short test script)

What are the minimum requirements to print a cyrillic character with
PERL into a website?

Click to expand...

I don't think I understand the question.

The PERL script is using CGI, but HTML code is written directly:
print qq(Content-type: text/html\n\n

Click to expand...

You need to declare the charset in the content-type:

print qq(Content-type: text/html; charset=utf-8\n\n

or you need to convert all non-latin-1 characters to entities.

Does anybody can give me a simple script which I can test with Notepad
as en editor?

Click to expand...

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

my $txt = "ÑÐºÑ€Ð°Ð½Ð¾Ð¿Ð»Ð°ÌÐ½";

binmode STDOUT, ":utf8";
print "Content-Type: text/html; charset=utf-8\n";
print "\n";
print "$txt\n";

hp

--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | (e-mail address removed) | Was sonst wÃ¤re der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd

anno4000 · Sep 14, 2006

Please don't top-post. Put your comments after the quoted text you're
replying to. Also, this isn't private mail, it's Usenet. Even if
your partner seems to have a German address your reply should be in
the preferred language of the group, which is English.

auf so eine hochnÃ¤sige Antwort sollte man sich eigentlich den
Kommentar sparen!

That would have been a good idea.

- wieso fragst du nach dem problem, obwohl du noch gar nicht bis zum
Ende gelesen hast?

Your problem was poorly stated.

- wenn du die Frage nach dem Minnimum nicht verstehst, wieso
beantwortest du diese dann doch noch am Ende deines Kommentars?

Just as poorly stated. "Printing into a website" can be done
in many different ways. Which do you intend to use?

[...]

- Ob du nun Perl oder PERL schreibst, ist mir wurscht, denn
offensichtlich hast du ja trotz der falschen Rechtschreibung kapiert,
worum es geht, oder?

If you don't know to spell the language you're using, don't expect to be
taken very seriously. Just good advice for the future. For the moment
I believe you have forfeited your chances for a useful reply.

Anno

Jürgen Exner · Sep 14, 2006

andipfaff wrote:
[Unfortunately you have chosen a quoting style that makes is very difficult
to identify what are are referring to; trying to mitigate]

auf so eine hochnäsige Antwort sollte man sich eigentlich den
Kommentar sparen!

Considering how poorly the original question was stated IMHO it was a pretty
moderate response.

- wieso fragst du nach dem problem, obwohl du noch gar nicht bis zum
Ende gelesen hast?

I can only guess that you are refering to:

Please note that just before the OP stated:
So obviously there is no problem here except for him being forced to use
Notepad, or is there?
Besides: it is beyond me how the editor used could have any impact on how to
print something from a program.

- wenn du die Frage nach dem Minnimum nicht verstehst, wieso
beantwortest du diese dann doch noch am Ende deines Kommentars?

I can only guess that you are refering to the OPs question

and the program sample that was provided by Peter.
Well, Peter didn't answer the OPs question at all. The correct answer to the
OPs question would have been:
Your question is non-sensical because the Perl print() command always writes
to a file handle. It cannot print to a web site (whatever that is supposed
to mean!). If you are asking about which minimal format/content a web page
must have to display cyrillic characters then please ask in a newsgroup that
deals with HTML.

Peter was polishing his crystal ball and reading tea leafes to guess what
the OP may have been talking about and kindly provided that HTML
format/content although it has nothing to do with Perl. If it solves the OPs
problem is unclear because the OP really didn't say if the content/fromat of
the HTML page was his problem in the frist place.

- wieso soll Notepad ein Problem sein? Er ist immerhin kostenlos und
kann Unicode. Alle anderen drei Editoren, die ich probiert habe,
können das nicht

Your choice of editor has no bearing on the execution of Perl program or its
output. Therefore even mentioning them in the original posting was a red
hering.

- Ob du nun Perl oder PERL schreibst, ist mir wurscht, denn
offensichtlich hast du ja trotz der falschen Rechtschreibung kapiert,
worum es geht, oder?

Well, then I guess you don't care about "Only perl can parse Perl" (please
note the capitalization!). You problem, because it does have an important
meaning.

- ich benötige kein "binmode STDOUT, ":utf8";", es funktioniert auch
ohne

[Leaving the rest of the previous posting in to provide context in case I
missinterpreted the references]

Peter said:
Peter said:

beginners question: I have written a small website with a PERL
script

Click to expand...

The language is called "Perl", not "PERL".

which can be viewed in 4 western european languages. Each text to be
displayed is stored in arrays like
$text1[1] = qq(Hallo);
$text1[2] = qq(Salut);
$text1[3] = qq(Saluti);
$text1[4] = qq(Hello);
and printed to STDOUT. Now I want to extend this with cyrillic
characters (5th language: russian). Unfortunately I have no idea
how to do that. I simply tried to cut&paste cyrillic letters from
websites like wikipedia cyrillic aplphabet, but in my Editor
(DZSoft) I just get a question mark when pasting. In Notepad
pasting is OK, because he is capable of UTF-8.

Click to expand...

So what's your problem? (Well, being forced to use notepad may count
as a problem, but it should be good enough for a short test script)

What are the minimum requirements to print a cyrillic character with
PERL into a website?

Click to expand...

I don't think I understand the question.

The PERL script is using CGI, but HTML code is written directly:
print qq(Content-type: text/html\n\n

Click to expand...

You need to declare the charset in the content-type:

print qq(Content-type: text/html; charset=utf-8\n\n

or you need to convert all non-latin-1 characters to entities.

Does anybody can give me a simple script which I can test with
Notepad as en editor?

Click to expand...

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

my $txt = "???????????";

binmode STDOUT, ":utf8";
print "Content-Type: text/html; charset=utf-8\n";
print "\n";
print "$txt\n";

Click to expand...

jue

peter_emmerich · Sep 14, 2006

Hi Andi,

assuming you are working with a script running on a webserver (you
mentioned print qq(Content-type: text/html;.....)) here is the perl
code you need at least to print unicode/utf-8 with a script:

#!/usr/bin/perl -w
use CGI;
$my_string = qq(Ã¤ Ã¶ Ã¼ Ã Ã© Ã¨ Ã„ Ã– Ãœ Ð– Ð¶ Ð— Ð· Ð˜ Ð¸ Ð™ Ð¹);
print qq(Content-type: text/html; charset=utf-8\n\n
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="CONTENT-TYPE" content="text/html; charset=utf-8">
<title>UTF-8 Testpage</title>
</head>
<body>
$my_string
</body>
</html>
);

Create the file with Windows Notepad or Notepad++ or another Unicode
capable editor in UTF-8 format, otherwise it will not work!

Best regards
PE

andipfaff · Sep 15, 2006

Thanks,

that's exactly the answer I was waiting for!

Have a nice weekend
Andi

peter_emmerich said:
Hi Andi,

assuming you are working with a script running on a webserver (you
mentioned print qq(Content-type: text/html;.....)) here is the perl
code you need at least to print unicode/utf-8 with a script:

#!/usr/bin/perl -w
use CGI;
$my_string = qq(Ã¤ Ã¶ Ã¼ Ã Ã© Ã¨ Ã„ Ã–Ãœ Ð– Ð¶ Ð— Ð· Ð˜ Ð¸ Ð™ Ð¹);
print qq(Content-type: text/html; charset=utf-8\n\n
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="CONTENT-TYPE" content="text/html; charset=utf-8">
<title>UTF-8 Testpage</title>
</head>
<body>
$my_string
</body>
</html>
);

Create the file with Windows Notepad or Notepad++ or another Unicode
capable editor in UTF-8 format, otherwise it will not work!

Best regards
PE

Hi there,

beginners question: I have written a small website with a PERL script
which can be viewed in 4 western european languages. Each text to be
displayed is stored in arrays like
$text1[1] = qq(Hallo);
$text1[2] = qq(Salut);
$text1[3] = qq(Saluti);
$text1[4] = qq(Hello);
and printed to STDOUT. Now I want to extend this with cyrillic
characters (5th language: russian). Unfortunately I have no idea how to
do that. I simply tried to cut&paste cyrillic letters from websites
like wikipedia cyrillic aplphabet, but in my Editor (DZSoft) I just get
a question mark when pasting. In Notepad pasting is OK, because he is
capable of UTF-8. DZSoft does not seem to be.

What are the minimum requirements to print a cyrillic character with
PERL into a website? I am working with Windows 2k english or german,
IIS 5 on a W2k Server, ActiveState PERL, and a MySQL database.

The PERL script is using CGI, but HTML code is written directly:
print qq(Content-type: text/html\n\n
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head> etc.

Does anybody can give me a simple script which I can test with Notepad
as en editor?

Thanks in advance
Andi Pfaff

Click to expand...

UTF-8 read & print?	6	Nov 25, 2012
Help with my responsive home page	2	Dec 14, 2022
UTF-8 without external modules on Perl 5.0	37	May 19, 2006
hex dump w/ or w/out utf-8 chars	40	Jul 8, 2013
Working on mobile css menu with plenty of frustration!	2	Dec 29, 2022
Writing UTF-8 file under Windows	1	Jan 5, 2007
Login page perl/CGI	2	Apr 27, 2007
XML::PARSER utf-8 and japanese characters	1	Jul 28, 2004

print cyriilic (UTF-8) characters with PERL on HTML page

andipfaff

Peter J. Holzer

andipfaff

anno4000

Jürgen Exner

peter_emmerich

andipfaff

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads