Printing Chinese characters with CGI.pm

oylee has asked for the wisdom of the Perl Monks concerning the following question:

Hello there: I've been trying to manually print out Chinese characters with CGI.pm (with a charset of either big5 of gb2312).. I'm just at a loss as to how to display binary characters, if that's what that is..


#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI();
my $charset = "gb2312";
print $q->header(-type          => 'text/html',
                 -charset       => $charset
                 );

print q(<!DOCTYPE HTML
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
        "DTD/xhtml1-transitional.dtd">
        <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
        );
print q(<head><title>Stuff</title>);
print qq(<meta http-equiv="Content-Type" content="text/html; charset=$
+charset">);
print "what be this?", "\272";
print "\n\n<p>What the humma humma is this now :", 0x0272, ":</p>\n\n"
+;
print $q->end_html();
exit;
[download]

When I slurp in an HTML file containing Chinese characters and spit it back out using something like
print $q->p($slurped_in_characters)
it displays the characters properly, but I can't seem to print my own characters out -- this may stem from my horribly incomplete understanding of the internal representation of the big5 or gb2312 charsets. My rudimentary checking out of the bytes and utf8 perldocs hasn't brought me any enlightenment either.

Thanks in advance for any input!

Allen

Comment on Printing Chinese characters with CGI.pm Select or Download Code

Replies are listed 'Best First'.
Re: Printing Chinese characters with CGI.pm by sauoq (Abbot) on Jul 23, 2002 at 19:39 UTC
I think you want to `print "\x{272}"` instead. The perlunicode manpage might help too. -sauoq "My two cents aren't worth a dime.";	[reply] [d/l]