日本語を扱うと文字化けしてしまいます。

Perlで以下のコードで日本語を扱うと文字化けしています。解決策をよろしくお願いします。
1#!C:/WWW/perl64/bin/perl
2
3use strict;
4#use DBI;
5#use DBD::SQLite
6
7
8
9#print "Content-type: text/html; charset=shift_jis\n\n";
10print "Content-type: text/html\n\n";
11print <<"HTML";
12<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
13<html>
14<head>
15<title>書籍の情報書き込み</title>
16</head>
17  <body bgcolor="#000066" text="#000000" link="#0000ee" alink="#0000ee"
18 vlink="#551a8b">
19<form action="CGI194b1.html">
20<textarea name="mojijouhou" rows="4" cols="40">商品情報をご記入ください。</textarea>
21<br>
22<input type="submit" value="送信"><input type="reset" value="リセット">
23</form> 
24<br>
25<br>
26</body>
27</html>
28HTML
29exit;
30
31

行動規範の内容に同意します

回答2件

perlで日本語を扱う際は、処理を「内部コード」化された文字列について行わなければうまくいきません。

文字列は何かをする前に必ず「内部コード化」
「内部コード化」された文字列を、出力する直前にshiftJISなりUTF8なりに変換

これが鉄則。

今はその処理ができていないのが文字化けの原因です。
以下の宣言をスクリプトの最初に書き加えてみてください。

perl
1# スクリプト中に日本語を直接書き込みたいときは以下のように宣言して文字列を内部コードで扱うよう指定する
2use utf8;
3
4# 出力をUTF8に
5binmode STDOUT, ':utf8';
6
7# 出力をshiftJISにしたい場合は以下のようにする
8# binmode STDOUT, ':encoding(cp932)';
9