#!/usr/bin/perlメインカテゴリとサブカテゴリを表示するというスクリプトなのだが、以下のような結果を期待していた。
$TEST{'STR'} = 'PC';
$TEST{'STR'}{'1'} = 'STR-1 values.';
$TEST{'VAL'} = 2;
$TEST{'VAL'}{'2'} = 'VAL-2 values.';
$TEST{'DAT'} = "テスト";
$TEST{'DAT'}{'3'} = 'DAT-3 values.';
td();
sub td {
foreach $mk (keys %TEST) {
print ">$mk\n";
foreach $sk (keys %{$TEST{$mk}}) { print "> $sk: $TEST{$mk}{$sk}\n"; }
}
return undef;
}
>>>STRしかし結果はあまりにも無惨で以下のような結果となった。
>1: STR-1 values.
>>>VAL
>2: VAL-2 values.
>>>DAT
>3: DAT-3 values.
>>>STR連想配列名 "STR" のサブ連想配列が出てこないのだ。
>>>VAL
>2: VAL-2 values.
>>>DAT
>3: DAT-3 values.
修正方法:設定ファイル消えてたら呼んでください。バックアップこっちで確保しますた。→蝦・あぞーさん・Casper-01さん・山銀さん
sub init { 行の次に以下の行を挿入。
error("パスワードが違います。") if !check_password($FORM{'writekey'});
sub config { 行の以下の行を参考に挿入。
<form action="$script" method=POST>
<input type=hidden name=mode value="init">
<input type=hidden name=writekey value="$FORM{'writekey'}"> ←※追加
EUC を SJIS にする場合は以下の行を削除。
sub regist { ルーチンにある以下の行
# ログファイルが存在しなければ新規フォーマットで書き込み
else { $formtmp = "$FORM{'weather'},$FORM{'subject'}\n$FORM{'comment'}"; }
jcode::convert(\$formtmp, 'euc'); ←※これ
└ G兄
└ G兄
└ G兄
└ G兄
└ G兄
└ G兄
└ G兄
└ G兄
└ 山銀
└ G兄