Good idea, zentara. I thought for sure I could take the "chfont" test script and plug in my problem characters-codes to see if they displayed properly.

But before I had a chance to try that, I ran the code you attached and, lo and behold -- it has similar problems:



I couldn't find chfont.pl in the Tk directories (ActivePerl distribution) on Linux nor Solaris 2.8. But I did run the widget demo on both Linux and Solaris 2.8. The Traditional Chinese, Hebrew, Japanese, and Korean fonts appeared properly. I think the Russian appeared okay. Some of the Greek characters appeared okay and some didn't. But none of the Arabic and Simplified Chinese characters appeared properly.

Looking at its code, it specified a helvetica font like I was using.

(UPDATE: I've discovered this doesn't run by itself. You need to run widget and choose the "Labels and Unicode Text" demo. And not just any perl's widget, but ActivePerl's 5.8.x widget. I couldn't find a Unicode Text demo in CPAN's perl 5.8.5) 
# unicodeout.pl

use vars qw/$TOP/;
use subs qw/unicodeadd/;

sub unicodeout {

    # This demonstration script shows how you can produce output (in l
+abel
    # widgets) using many different alphabets.

    my($demo) = @_;
    $TOP = $MW->WidgetDemo(
        -name     => $demo,
        -text     => 'This is a sample of Perl/Tk\'s support for langu
+ages that use non-Western character sets.  However, what you will act
+ually seebelow depends largely on what character sets you have instal
+led, and what you see for characters that are not present varies grea
+tly between platforms as well.  The strings are written in Perl Unico
+de characters using the \\x{XXXX} escape sequence so as to do so in a
+ portable fashion.',
        -title    => 'Unicode Label Demonstration',
        -iconname => 'unicodeout',
    );

    my $unicode_wait = $TOP->Label(
        -text => 'Please wait while loading fonts...',
        -font => 'Helvetica 12 italic',
    )->pack;
    $TOP->update;

    # Processing when some characters are missing might take a while, 
+so make
    # sure we're displaying something in the meantime.

    $TOP->Busy;

    unicodeadd $TOP, 'Arabic',
    "\x{FE94}\x{FEF4}\x{FE91}\x{FEAE}\x{FECC}\x{FEDF}\x{FE8D}\x{FE94}\
+x{FEE4}\x{FEE0}\x{FEDC}\x{FEDF}\x{FE8D}";
    unicodeadd $TOP, "Trad. Chinese", "\x{4E2D}\x{570B}\x{7684}\x{6F22
+}\x{5B57}";
    unicodeadd $TOP, "Simpl. Chinese", "\x{6C49}\x{8BED}";
    unicodeadd $TOP, 'Greek', 
    "\x{0395}\x{03BB}\x{03BB}\x{03B7}\x{03BD}\x{03B9}\x{03BA}\x{03AE}\
+x{03B3}\x{03BB}\x{03CE}\x{03C3}\x{03C3}\x{03B1}";
    unicodeadd $TOP, 'Hebrew', 
    "\x{05DD}\x{05D9}\x{05DC}\x{05E9}\x{05D5}\x{05E8}\x{05D9}\x{05DC}\
+x{05D9}\x{05D0}\x{05E8}\x{05E9}\x{05D9}";
    unicodeadd $TOP, 'Japanese', 
    "\x{65E5}\x{672C}\x{8A9E}\x{306E}\x{3072}\x{3089}\x{304C}\x{306A}\
+x{6F22}\x{5B57}\x{3068}\x{30AB}\x{30BF}\x{30AB}\x{30CA}";
    unicodeadd $TOP, 'Korean',
    "\x{B300}\x{D55C}\x{BBFC}\x{AD6D}\x{C758}\x{D55C}\x{AE00}";
    unicodeadd $TOP, 'Russian', 
    "\x{0420}\x{0443}\x{0441}\x{0441}\x{043A}\x{0438}\x{0439}\x{044F}\
+x{0437}\x{044B}\x{043A}";

    # We're done processing, so change things back to normal running.

    $unicode_wait->destroy;
    $TOP->Unbusy;

} # end unicodeout

sub unicodeadd {

    my ($w, $language, @args) = @_;

    my $sample = join('', @args);
    my $l1 = $w->Label(-text => "$language: ", qw/-anchor nw -pady 0/)
+;
    my $l2 = $w->Label(-text => $sample, qw/-anchor nw -width 30 -pady
+ 0/);
    $l1->grid($l1, $l2, qw/-sticky ew -pady 0/);
    $l1->gridConfigure(qw/-padx 1m/);

} # end unicodeadd

1;

[download]

In reply to Re^4: Chinese font problem in Perl/Tk by shockers
in thread Chinese fonts problem in Perl/Tk by shockers

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.