コトハコ

MAMPでperlする

• http://localhost/cgi-bin/printenv　が動作することを確認した
• http://localhost/koto/printenv.cgi　同じものに.cgiを付けて動作した

30秒間データを保持するテスト

• 書きかけできたない
• MAMPだとflockで止まる

#!/usr/bin/perl

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

#####koto前処理
open FH,"koto.csv";
while (<FH>){
	chomp();
	my@dummy = split(/\t/,$_);
	
	#1行目を保持
	if($dummy[2] eq 'date'){
		push(@koto,$_ . "\n");
		print $_ . "\n";
	}
	
	#30秒以内を保持
	if(time-$dummy[2]<30){
		push(@koto,$_ . "\n");
		print $_ . "\n";
		
	}
	
}
close FH;

#####koto商品毎処理
#タイムスタンプを記録する(暫定)
@data = ('username', '0000001300000133', time);
push(@koto, join("\t",@data) . "\n");

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


exit;

uid	itemid	date
getclub	0000001300000133	1256886638
getclub	0000001300000133	1256886639
getclub	0000001300000133	1256886640

あとはタイムスタンプの代わりに普通のdatetime表現にすればよし