記事No.454 へのコメントです。
>コメントでは化けないように気をつければいのですが、>リンク先様のアドレス内に「-」が入っていて、>どうしても文字化けを起こしてしまいます…。え〜と、"-" が "W"になってしまっているということでしょうか?
>過去記事の検索でも似たような記事があり、>試してはみたのですが直りません…。>私がやり方を理解していない為かもしれませんが、>よろしければ教えてやってくださると嬉しいです。過去にも何度かあったのですが、原因は特定できていなかったような気がします。
私のほうで再現できないので、原因調査できないのですよ。
設置したファイルの、文字コードを調べる CGI を作りましたので、実行してみてもらえますか?
--- check.cgi ここから
#!/usr/bin/perl
BEGIN { use KCatch qw( source ); }
require "./jcode.pl";
undef $/;
@file_list = qw( setup.cgi exit.cgi exit_adm.cgi mylib.pl data/category.cgi data/data.cgi data/subcat.cgi);
#print "Content-type: text/html\n\n";
$html = <<_HTML_;
Content-type: text/html
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=euc-jp">
<title>Exit CGI File Check</title>
</head>
<body>
perl version $]<br>
_HTML_
$data=1;
foreach $check_file ( @file_list ) {
open (FILE, "$check_file") || die "$!";
$check_text = <FILE>;
$code = "tete";
$code = &jcode::getcode(\$check_text);
if ( $check_text =~ /\r\n/ ) {
$return_code = "CRLF";
} elsif ( $check_text =~ /\n/ ) {
$return_code = "LF";
} elsif ( $check_text =~ /\r/ ) {
$return_code = "CR";
} else {
$return_code = "unknown";
}
$html .= "$check_file = $code $return_code<br>\n";
}
$html .= "</body>";
print $html;
--- ここまで
1. check.cgi と名前をつけて保存。
2. exit.cgi と同じ場所にアスキーモードで転送。
3. パーミッション 755に設定。
4. ブラウザから呼び出し。
ブラウザに表示された内容を、教えてもらえますか?
[
この記事にコメントを返信する ] [
原文引用 ]