Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Perlscript in IIS and 2 byte character codes

by Lexicon (Chaplain)
on Jun 12, 2001 at 08:14 UTC ( #87721=snippet: print w/ replies, xml ) Need Help??

Description: 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{$_} 
                  . &yen 
                  . $table_end 
                  );
}
%>
</table></body></html>
Comment on Perlscript in IIS and 2 byte character codes
Download Code
Re: Perlscript in IIS and 2 byte character codes
by John M. Dlugosz (Monsignor) on Jun 13, 2001 at 00:50 UTC
    What's wrong with using UTF8?

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://87721]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (12)
As of 2014-09-18 13:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (115 votes), past polls