Counter: 246, today: 1, yesterday: 0



dataset.cgi

line 119
					if($_=~/^([0-9]{4}),/){

makezasekihtml.pl

line22
	$bikou=~s/0.5/半/g;$bikou=~s/0.5/半/g;
line123
			if($_=~/$naisen,(\S+),[0-9\.]*\s+\/\//){
sub ampmcheck{
        my $bikou=$_[0];
        my $am2h=1130;my $pm2h=1600;my $half=1345;
        my $now = sprintf("%02d%02d", $hour, $min);
        $bikou=~s/AM/午前/g;$bikou=~s/am/午前/g;$bikou=~s/AM/午前/g;$bikou=~s/am/午前/g;
        $bikou=~s/PM/午後/g;$bikou=~s/pm/午後/g;$bikou=~s/PM/午後/g;$bikou=~s/pm/午後/g;
        $bikou=~s/2/2/g;
        $bikou=~s/0.5/半/g;$bikou=~s/0.5/半/g;
        $bikou=~s/休/半/g;$bikou=~s/年/半/g;
        $bikou=~s/2H/2時間/g;$bikou=~s/2H/2時間/g;$bikou=~s/2h/2時間/g;$bikou=~s/2h/2時間/g;
        if(($bikou=~/午前半/) && ($now < $half) ){
                return 1;
        }elsif(($bikou=~/午前2時間/) && ( $now < $am2h )){
                return 1;
        }elsif(($bikou=~/午後半/) && ($now > $half)){
                return 1;
        }elsif(($bikou=~/午後2時間/) && ( $now > $pm2h )){
                return 1;
        }
        return 0;
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-03-15 (月) 05:10:37 (2830d)