新規記事投稿
フォロー記事投稿
記事のキャンセル
From: 三葉工房
<nature-create@amy.hi-ho.ne.jp>
Subject: Jcode.plの宣言の仕方
Date: 1998/11/16 12:36:10
はじめまして,三葉工房です。
こないだからperl言語の勉強を開始いたしました。
perlプログラムは,htmlと違ってマスターするのに大変苦労が必要
だそうです。特にperlプログラムは,正しい宣言でも構文を
コピーした元によっては,その構文を本物と偽物に振り分ける性質
があるそです。
そして,今回,その宣言の1つのjcode.plの宣言が残念ながら偽物
とみなされた様で,日本語の文字がjcode.plを宣言してもしなくても
16進コードで表示されてしまい,jcode.plが只のコメントに過ぎず遊んで
しまっています。もちろん,そのテストファイルのソース文も下記に記述
します。
一体,どうすれば,jcode.plの宣言を生かす事ができるのでしょうか。
どうかお教え願います。
私のサーバーには,N.S.Eのプログラムをダウンロードした際にjcode.pl
も入って来ましてそれをcgi用のディレクトリに入れていまして,実際
にそのN.S.Eのcgiプログラムがちゃんと日本語変換出来る形で作動して
います。そのcgiの構文をコピーして,試してみても私のテストcgi構文
は,日本語処理が出来ていない状態です。
==================================
クライアント用html noer.html(http://www.amy.hi-ho.ne.jp/nature-create/search/noer.html)
<html><head><title>CGI Test</title></head><body bgcolor="pink"><form method="post" action="/cgi-bin/user/nature-create/noeroorhp.cgi"><font color="red" size=4>番号 登録者:<input type=text size=15 maxlength=90 name="nese"><p>
<center>
<input type=submit value="送信"> <input type=reset value="取り消し">
</center><p>
</form></body></html>
==================================
テストcgiプログラム noeroorhp.cgi
#!/usr/local/bin/perl
$|=1;
require './jcode.pl';
&jcode'h2z_sjis(*value);
&jcode'convert(*name,'sjis');
&jcode'convert(*value,'sjis');
$in{$name} = $value;
$value=$in{'parameter_name'};
read (STDIN, $in, $ENV{'CONTENT_LENGTH'});
($parameter,$name)=split(/=/,$in);
print "Content-type: text/html\n";
print "\n";
print "<html>\n";
print "<head>\n";
print "<title>届きました</title>\n";
print "</head>\n";
print "<body bgcolor='#9acd32' text='#000000'>\n";
print "<font color='maroon' size='5'>こんにちは$nameさん</font>\n";
print "</body>\n";
print "</html>\n";
__END__
==========================
以上です。宜しくお願い申し上げます。