I've been fighting with ways to embed Japanese text into my perl asp/cgi pages. For those of you in a similar situation the short answer is, "It can't be done." So I came up with this rediculous hack which happens to do the particular job I need done in this instance.
<%@ Language = PerlScript %>
<html><head>
<title> Japanese Perl Integration Trick #1 </title>
</head>
<body>
<h2>Lexicon's Loan Book</h2>
Those of you visiting this page almost assuredly owe me
money. You remember all those yen I lent you while you
were in town? Time to pay up!<p>
Obligatory Japanese<p>
これは日本語です。意味ではありません。日本語だけです。
<%
# People who owe me cash (or, sample hash)
my %loans = {
'Vroom' => 5000,
'PsychoSpunk' => 10000,
'Azatoth' => 10000000,
}
# Some basic basic html templating
my $table_start = "<tr><td width='50%' bgcolor='red'>";
my $table_mid = "</td><td width='50%' bgcolor='blue'>";
my $table_end = "</td></tr>";
# HERE IT IS! THE SECRET!
# Wherever you call this subroutine, the yen mark will appear.
# Remember that it pops up instantly, it doesn't return the string.
sub yen { %> 円 <% } # The Japanese character for yen.
%> <table> <%
# Here we go, actual use:
for (keys %loans) {
$Response->write( $table_start
. $_
. $table_mid
. %loans{$_}
. ¥
. $table_end
);
}
%>
</table></body></html>
