罪と罰++二律背反


open (DB,">>$histfile") || &error("open error:$histfile",1);
	print DB $cdat;
	close(DB)		or die "Can't close   : $!";
}
# 統一時は石碑に刻む
   if($touitu_flag==1){
     &stone_write;
   }
sub stone_write{
  open (DB2,">>$stonefile") || &error("open error:$stonefile",1);
  print DB2 $cdat;
  close(DB2)               or die "Can't close   : $!";
} 


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:28:32 (2739d)