コト

開発

本番cgi改造

  • 前処理#1795あたり
  • 商品毎処理#1952あたり
  • 後処理#2502あたり
  • 本番ではflockが使える

テスト

#!/usr/bin/perl

print "Content-type: text/plain;\n\n";

####koto前処理
use Time::Local;
open KTFH,"koto/koto.csv";
while (<KTFH>){
	chomp();
	my@dummy = split(/\t/,$_);
	
	#1行目を保持
	if($dummy[2] eq 'date'){
		push(@koto,$_ . "\n");
		print $_ . "\n";
	
	}else{
		#1日以内を保持
		$year = substr($dummy[2],0,4);
		$mon  = substr($dummy[2],5,2);
		$mday = substr($dummy[2],8,2);
		$hour = substr($dummy[2],11,2);
		$min  = substr($dummy[2],14,2);
		$sec  = substr($dummy[2],17,2);
		$mon--;
		#$year-=1900;
		
		print "$year $mon $mday $hour $min $sec ";
		$logtime = timelocal($sec, $min, $hour, $mday, $mon, $year);
		
		print time;
		print " ";
		print $logtime;
		print " ";
		print time-$logtime;
		
		if(time-$logtime<30){
			push(@koto,$_ . "\n");
			print " > ".$dummy[2];
		}
		print "\n";
	}
}
close KTFH;
####

####koto商品毎処理
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime;
$year+=1900;
$mon+=1;
$mon  = ($mon<10)  ? "0$mon"  : $mon;
$mday = ($mday<10) ? "0$mday" : $mday;
$hour = ($hour<10) ? "0$hour" : $hour;
$min  = ($min<10)  ? "0$min"  : $min;
$sec  = ($sec<10)  ? "0$sec"  : $sec;
@data = ('username', '0000001300000133', "$year-$mon-$mday $hour:$min:$sec");
push(@koto, join("\t",@data) . "\n");
####

####koto後処理
open KTFH,"+>koto/koto.csv";
#flock KTFH,2;
print KTFH @koto;
close KTFH;
####

exit;