#!/usr/bin/perl   
#               -w　ワーニングを出す
#           データロガーから読み取るプログラム
#           湿度センサーを使った、温湿度データロガー(2010/11/13製作）
#           /home/datalgr/datalgr-htm-rs232c-101210-cron.pl mod 755
#           crontab用のperl
#           一部修正し、データを１０回採り、平均することとした
#           2010/11/28 →　2010/12/10 完成
#
use strict; # 宣言した変数以外を使えなくする

$| = 1;   #　ゼロ以外が代入されると出力をバッファリングしなくなる。

my $file="/home/datalgr/log-data.txt";
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
my $tt;
my $null="";


# 読み込み書き込みファイルオープン
#                読み取り 書き込み 追加 新規作成 上書き 
#   <   filename ○         ×      ×     ×      × 
#   >   filename ×         ○      ×     ○      ○ 
#   >>  filename ×         ○      ○     ○      × 
#   +<  filename ○         ○      ×     ×      × 
#   +>  filename ○         ○      ×     ○      ○ 
#   +>> filename ○         ○      ○     ○      × 


open (COM2, "+</dev/cuad0") or die "ERROR /dev/cuad0 not open\n" ; # シリアルポートを入出力可能でオープン
#system("stty </dev/cuad0 cs8 -parenb  -cstopb speed 9600") ;


#print "open serial port COM2 ok\n" ;



#  #########################  シリアルポートＣＯＭ２からデータを取得
#
print COM2 "0\n"; # アナログポート０
my $data0 = <COM2>
$data0 =~s/\0\n//;    # 後ろ\0\nを除去

#print COM2 "1\n"; # アナログポート１    # Vrefに使用するためアナログポート使用不可（2010/11/28変更）
#my $data1 = <COM2>                     # Vrefに使用するためアナログポート使用不可（2010/11/28変更）
#$data1 =~s/\0\n//;    # 後ろ\0\nを除去  # Vrefに使用するためアナログポート使用不可（2010/11/28変更）

print COM2 "2\n"; # アナログポート２
my $data2 = <COM2>
$data2 =~s/\0\n//;    # 後ろ\0\nを除去

print COM2 "3\n"; # アナログポート３
my $data3 = <COM2>
#$data3 =~s/\0\n//;    # 後ろ\0\nを除去しない

my $i;    # カウンター用

$data0 = 0 ;  # ゼロクリアー
$data2 = 0 ;  # ゼロクリアー
$data3 = 0 ;  # ゼロクリアー


for ($i = 1; $i <= 10; $i++) {  ;  #   １０回データー計測し合計をとる *************************************

print COM2 "0\n"; # アナログポート０
$data0 = $data0 + <COM2>
#$data0 =~s/\0\n//;    # 後ろ\0\nを除去

print COM2 "2\n"; # アナログポート２
$data2 = $data2 + <COM2>
#$data2 =~s/\0\n//;    # 後ろ\0\nを除去

print COM2 "3\n"; # アナログポート３
$data3 = $data3 + <COM2>
#$data3 =~s/\0\n//;    # 後ろ\0\nを除去

} ;

$data0 = $data0 / 10 ;  # １０回の平均を取る
$data2 = $data2 / 10 ;  # １０回の平均を取る
$data3 = $data3 / 10 ;  # １０回の平均を取る

close COM2 ;



# ########################### 時刻とデータの印字（ファイルへの出力）
$tt=time();
($sec, $min, $hour, $mday, $mon, $year,
    $wday, $yday, $isdst) = localtime($tt);
$year=$year+1900;
$mon=$mon+1;

# ファイルへの出力
open (LOGFILE,">>$file") or die "ERROR output file not open$!\n" ; # 出力ファイルをオープン
print LOGFILE  $year,"/",$mon,"/",$mday,"   ",$hour,":",$min,":",$sec,"  ",$data0," ",$data2," ",$data3,"\n" ;

close LOGFILE ;


# ########################### ここからＨＴＭＬ出力へ　　略




# ######################  sub routine  ######################
# $num を四捨五入して小数点以下 $decimals桁にする