Re^4: Perl Tk -font option is not working in linux if the language is japanese

[LeonelMendoza]

Yes, the font exists, Also i tried to copy fonts from the list the xlsfonts command provided, but it is still using "nimbus sans l". How do you get the real font? Here's my code to get the real font:

#!/usr/bin/perl

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Tk;
use Tk::X11Font;

my $font = "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-
+1";

my $mw = MainWindow->new;
$mw->geometry('100x150');

my $label = $mw->Label(
    -bg   => 'white',
    -text => "Help!",
    -font => \$font,
)->pack;

my $realfont = $label->cget(-font);
print join(" ", $label->fontActual($realfont)), "\n";

Here's my software specification: CentOS Release 4.8 perltk 804.030 perl 5.8.5-builtin in CENTOS Please help me!