パソコンおやじの掲示板
[記事リスト] [新着記事] [ワード検索] [過去ログ] [管理用]

タイトル なんとかエラー消しました。
投稿日: 2012/03/20(Tue) 16:54
投稿者km

すみません、kmです。
どうにかエラーは消しましたが、ちゃんと表示されません。

<HTMLに表示される>
日本語表示テスト print "" print " "; #_EOM_ # EOMここまで }# ヘッダー部分ここまで↑ # print "Content-type: text/html OK1. "; exit(1);#ここまできたら終了し、okと出す。 sub footer{ print <<"_EOM_"; No. お名前が未定義です。

たぶんEOMのあたりがバグっている気がします。

色々実験を繰り返した為、ソースがぐちゃぐちゃになってきましたが、貼り付けます・・・
今日もバグを作って消しての繰り返しでした。

ご指摘をお願いします。

#!/usr/bin/perl
# 項目名
@item = (
'a',
'b',
'c',
'd',
'e',
'f',
'g',
'h',
'i',
'j'
);
#ファイル設定(jcode.pmがある場所を相対パス指定)
use lib './lib';
# CGI.pmを利用するための準備
use CGI;
#$q = new CGI;
my $q = CGI->new;
# コード変換用
# CSVファイル名
$csvfile = '**.csv';
# 検索用データ(とりあえず固定で)
$SeekData = "2011/5/10 14:21:00";
&data_read("$SeekData");
sub data_read{
# CSVファイル読み込み
open(IN,"$csvfile") || die "Cannot file open!" . $csvfile;
my @data = <IN>;
close(IN);
chomp @data;
# 行数取得(0から)
my $line = @data;
$q->start_html;#html構文をスタートする(ここに書いていいのだろうか?)
# ヘッダ出力
&header("テスト");
# タイトル行出力
print <<"_EOM_";
<table cellspacing="2" cellpadding="3" border="1">
<tr>
<th>No.</th>
_EOM_
# Use of uninitialized value in pattern match対策処理
$i = 0;# $iを初期化してみる
if(defined $item[$i] && $item[$i] =~ /a/){# 定義されていれば
foreach $i (0 .. $item){
print "<th style=\"text-align:center;\">【$item[$i]】</th>\n";
}
}
else# 未定義の時
{
print "$item[$i]が未定義です。\n";
}
# 対策ここまで
print "</tr>\n";
$pcount = 1;
# 各行を読み出し
for ($count=0;$count<=$line;$count++){
my($date,$name,$todouhuken,$adress,$tel,$email,$gender,$birth,$question,$ans,$pay) = split(/,/,"$data[$count]");
# データ一致するか?(検索用データ&読み込んだデータ)
if($SeekData eq $date){
print <<"_EOM_";
<tr>
<!-- あ(MOJIBAKE TAISAKU) -->#文字化け対策@
print "<!-- \xfd\xfe(MOJIBAKE TAISAKU)-->\n";#文字化け対策A

_EOM_
$pcount++;
}
}
print "</table>\n";
&footer;
}
#my $flagged_uft8 = decode 'enc-jp', $bytes;
# 最初にヘッダーが動きます。↓
sub header{
my $title = $_[0];
print "Content-type: text/html\n\n";
print "日本語表示テスト\n";
print <<"_EOM_";
print "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">"
print "<html lang=\"ja\">\n";
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css">
<title>$title</title>
</head>
<body>
#_EOM_
# EOMここまで
}# ヘッダー部分ここまで↑
# print "Content-type: text/html\n\nOK1.\n"; exit(1);#ここまできたら終了し、okと出す。
sub footer{
print <<"_EOM_";
</body>
</html>
_EOM_
$q->end_html;
}


- 関連一覧ツリー (▼ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ
Eメール
タイトル
メッセージ   手動改行 強制改行 図表モード
参照先
暗証キー (英数字で8文字以内)
確認キー
確認キー
投稿する場合は、左に表示されている3文字(英大文字)の確認キーを必ず入力してください。
 (確認キーは表示してから30分間のみ有効です。)
  プレビュー

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No 暗証キー