スケジュール

#!/usr/local/bin/perl #####ページタイトル $title = "トピックス"; $imgurl = "../images"; #####読み込み用ファイル $txtfile = 'new.csv'; #####日本語コード変換用ファイル $jcodelib = 'jcode.pl'; ################################### データ読込 ################################################# #####ライブラリ読み込み require "$jcodelib"; #####読み込める事を前提に open(TXT, "+<$txtfile"); #####データファイルのロック &lock_file(TXT); #####過去のデータファイルを全部読みこむ @txt = ; #####データファイルのアンロック &unlock_file(TXT); #####データファイルのクローズ close(TXT); ##################################### HTML表示 ################################################# #####一覧表示 &head; ($this_id,$this_short,$this_main,$this_image_data,$this_start_date) = split(/,/, $txt[0]); ($thisyear,$thismonth,$thisday) = split(/\//, $this_start_date); if($thismonth < 4){ $thisyear = $thisyear-1; } for($i = 0; $i < 6; $i++){ ($id,$short,$main,$image_data,$start_date,$end_date,$ctg) = split(/,/, $txt[$i]); ($img_name,$img_width,$img_height) = split(/--/, $image_data); ($year,$month,$day) = split(/\//, $start_date); ($e_year,$e_month,$e_day) = split(/\//, $end_date); if($e_day ne 'no_input'){ $end = "～$e_day"; if($e_month ne 'no_input'){ $end = "～$e_month\.$e_day"; if($e_year ne 'no_input'){ $e_year = $e_year+1988; $end = "～$e_year\.$e_month\.$e_day"; if($e_year == $year){ $end = "～$e_month\.$e_day"; if($e_month == $month){ $end = "～$e_day"; } } } } }else{ $end = ""; } $page = $year; if($year < $page){ $page--; }else{ if($year == $page && $month < 4){$page--;} } $year = $year+1988; $date = "$year\.$month\.$day$end"; $short_p = &wrap_change2($short); $date_p = &wrap_change2($date); if($img_name ne 'no_input'){ $img = qq|

|; }else{ $img = qq||; } if($ctg eq 'ctg1'){ $ctgimg = qq|

|; }elsif($ctg eq 'ctg2'){ $ctgimg = qq|

|; }elsif($ctg eq 'ctg3'){ $ctgimg = qq|

|; }else{ $ctgimg = qq| |; } if($id ne ''){ print <<__BODY__;

$date_p

$ctgimg

$short_p$img

__BODY__ } } &foot; exit(); ################################# サブルーチン ################################################# # 使用できない文字の置換 sub norm_input { local($string) = @_; $string =~ s/&/&/g; $string =~ s/"/"/g; $string =~ s//>/g; $string =~ s/,/,/g; # 保存時のデータ区切りと混乱するため $string =~ s/\r\n/\n/g; $string =~ s/\r/\n/g; $string =~ s/\n\n/

/g; $string =~ s/\n//g; return $string; } # ロック sub lock_file { local(*FILE) = @_; if ($uselock) { eval("flock(FILE, 2)"); # 2=LOCK_EX if ($@) { # flock が使えない場合、ここに来る。 return 0; } } return 1; } # アンロック sub unlock_file { local(*FILE) = @_; if ($uselock) { eval("flock(FILE, 8)"); # 8=LOCK_UN } } #=========================# # 内容確認ヘッダフッタ #=========================# sub head{ #####ヘッダ print <<__HEAD__; content-type:text/html スケジュール

__HEAD__ } sub foot{ #####フッタ print <<__FOOT__;

__FOOT__ } #=====================# # 文字の置換 #=====================# sub wrap_change2 { ##### 使用できない文字の置換 local($string) = @_; $string =~ s/,/,/g; # 保存時のデータ区切りと混乱するため $string =~ s/>/>/g; $string =~ s/</