$logfile="./logdata/letter_log_";
if(!-e $logfile${month}.cgi){ open(OUT,"> $logfile${month}.cgi"); close(OUT); }
$logfile = "./logdata/letter_log.cgi";
$logfile = "./logdata/letter_log_";
# ログを展開
# ログを読み込み
if(!-e $logfile${month}.cgi){ open(OUT,"> $logfile${month}.cgi"); close(OUT); }
open(IN,"$logfile") || &error("Open Error : $logfile");
open(IN,"$logfile${month}.cgi") || &error("Open Error : $logfile${month}.cgi");
open(OUT,">$logfile") || &error("Write Error : $logfile");
open(OUT,">$logfile${month}.cgi") || &error("Write Error : $logfile${month}.cgi");
Scalar found where operator expected at program line 222, near "$logfile${month}"
my $file="$logfile${month}.cgi"; if(!-e $file){ open(OUT,"> $file"); close(OUT); }
<form action="$script" method="$method"> <input type="hidden" name="id" value="$id"> <input type="hidden" name="pw" value="$pw"> <input type="hidden" name="mode" value="past_log"> <select name="rd"> EOM my @tuki=(01,02,03,04,05,06,07,08,09,10,11,12); foreach(0 .. $#tuki){ print "<option value="$tuki[$_]">$tuki[$_]月</option>\n"; } print <<"EOM"; </select> <input type="submit" value="\表\示"> </form>
# メイン処理 &axs_check; # アクセス制御 &decode; # フォームデコード &mandata_open; # 参加者ログ読み込み &get_time; # 日時取得 &past_log if($mode eq 'past_log'); # 過去ログ表示<-- 追加 if ($mode eq "regist" && $com) { ®ist; } # 書き込み処理 &html if($mode ne 'past_log'); # ページ表示<-- 修正
sub past_log{ &header; my $file="$logfile${rd}.cgi"; open(IN,"$file") || &error("Open Error : $file"); # 使用しているletter.cgiのログ展開をココに貼り付ける close(IN); ©right; exit; print <<"EOM"; </body> </html> EOM }