NMEA GPS Logger

ini.conf

Win32::SerialPort_Configuration_File -- DO NOT EDIT --
\\.\COM5
CFG_1,none
eol,10
clear,-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-
RCONST,0
istrip,0
CFG_2,none
XOFFCHAR,0
PARITY_EN,0
WCONST,200
intr,3
U_MSG,1
STOP,1
XONLIM,2048
erase,8
XONCHAR,0
BINARY,1
RTOT,25
echonl,0
XOFFLIM,512
icrnl,0
inlcr,0
READBUF,4096
igncr,0
EOFCHAR,0
WRITEBUF,0
RINT,100
ocrnl,0
bsdel, 
opost,0
echoke,1
PARITY,none
HNAME,localhost
echoctl,0
CFG_3,none
EVTCHAR,0
icanon,0
isig,0
HADDR,0
E_MSG,1
DATA,8
DVTYPE,none
echo,0
quit,4
s_eof,26
s_kill,21
ERRCHAR,0
onlcr,1
ALIAS,COM5
HSHAKE,none
DATYPE,raw
echok,1
echoe,1
BAUD,38400
WTOT,10

serial_conf.pl

#!c:/perl/bin/perl

#┌──────────────────
#│ radio_ini v1.0 <radio_ini.cgi>
#│ Copyright(C) Scoal Mayeda 2006
#│ [email protected]
#│ http://www.amigo2.ne.jp/~mayeda/
#└──────────────────
#このプログラムは初期設定します。実行後はini.confというファイルが作成されます。
#このプログラムを実行後、radio_perl.cgiを実行させて信号を受信できます。
#
#尚、このプログラムは下記のサイトを参考にさせていただきました。（感謝）
#http://www9.ocn.ne.jp/~ymt/perl/serialport.html
#



use strict;
use Win32::SerialPort;
my $conf_file = 'ini.conf';

#-25-----------設定ここから-------------------------
#自分のＣＯＭ番号にあわせてください。
my $port_name = 'COM5';

#この行は変更しないでください
my $com_ini = new Win32::SerialPort($port_name) or die; 

# 自分の通信機器と合わせてください。
#$com_ini->are_match("text", "\n");    # possible end strings
$com_ini->lookclear;                  # empty buffers
$com_ini->baudrate(38400);
$com_ini->parity('none');
$com_ini->databits(8);
$com_ini->stopbits(1);

# 読み込み時の時間間隔の設定です。
# 小さすぎると計測機器の反応速度が
# パソコンに追いつけなくなります。
$com_ini->read_interval(100);
$com_ini->read_char_time(25);
$com_ini->error_msg(1);  #Framing Error detected などを出す
$com_ini->user_msg(1);  #Waiting for CTS　などを出す
$com_ini->write_settings;
$com_ini->save($conf_file);

# フロー制御の方法。rts（ハードウェア制御），
# xoff（ソフトウェア制御），dtr（ハードウェア制御，rtsとはピンが違う）
# 
$com_ini->handshake('rts');

# 読み込み，書き込みバッファ。
# あまり小さすぎると全文を受け取れない事があります
$com_ini->buffers(
  1024 * 10, # 読み込みバッファ
  1024 * 4   # 書き込みバッファ
);
#------------設定ここまで-------------------------

print "初期設定ファイルができました。プログラムを作動できます。<br>\n";

serial_read.pl

#!c:/perl/bin/perl 

$| = 1;

use strict;
use Win32::SerialPort;
use LWP::UserAgent;
use LWP::ConnCache;


my $wating_time=0.1;

my $conf_file = "ini.conf"; 

tie *PORT, 'Win32::SerialPort', $conf_file or die "Can't open serialport";
#open(LOG, ">>data.txt");

my($clock,$long,$lat,$sat,$mode,$kt,$km,$pdop,$hdop,$vdop,$dime,$dirtru,$dirmag,$alt);
my($llat,$llong);
my $i=0;
my $conncache = LWP::ConnCache->new;
while(1){
($llat,$llong)=($lat,$long);

    my $line = readline(*PORT);
	$line =~ s/[^\w\d\$,.\n\*]+//g;
	#print LOG $line;
	if ($line =~ /^\$GPGGA/) { #位置
		$line =~ m/^\$GPGGA,([\d\.]+),([\d\.]+),(\w),([\d\.]+),(\w),(\d),(\d+),([\d\.]+),([\d\.]+)/;
		if ($6 ne 0) {
			if ($6 eq 2) {$mode = "D"} elsif ($6 eq 1) {$mode = "A"};
			$clock = $1;
			if ($3 eq 'S') {$lat=0-$lat};
			$lat = $2;
			if ($5 eq 'W') {$long=0-$long};
			$long = $4;
			$sat = $7;
			$hdop = $8;
			$alt = $9;
		}
	} elsif ($line =~ /^\$GPGLL/) {
		$line =~ m/^\$GPGLL,([\d\.]+?),N,([\d\.]+?),E,([\d\.]+?),\w,(\w)/;
	} elsif ($line =~ /^\$GPRMC/) {
		$line =~ m/^\$GPRMC,([\d\.]+),(\w),([\d\.]+),(\w),([\d\.]+),(\w),([\d\.]+),([\d\.]+),(\d+),,,(\w)/;
		if ($2 ne 'V') {
			$mode = $8;
			$clock = $1;
			if ($4 eq 'S') {$lat=0-$lat};
			$lat = $3;
			if ($6 eq 'W') {$long=0-$long};
			$long = $5;
			$kt = $7;
		}
	} elsif ($line =~ /^\$GPGSA/) {	#誤差
		$line =~ m/^\$GPGSA,\w,(\d)/;
			$dime = $1;
			$line =~ m/([\d\.]+),([\d\.]+),([\d\.]+)\*.+$/;
			$pdop = $1;
			$hdop = $2;
			$vdop = $3;
	} elsif ($line =~ /^\$GPVTG/) { #速度
		$line =~ m/^\$GPVTG,([\d\.]+)?,T,([\d\.]+)?,M,([\d\.]+)?,N,([\d\.]+)?,K,(\w)/;
		$mode = $5;
		if ($mode ne 'N') {
			$dirtru = $1;
			$dirmag = $2;
			$kt = $3;
			$km = $4;
		}
	} elsif ($line =~ /^\$GPGSV/) {
		$line =~ m/^\$GPGSV,\d,\d,(\d+)/;
		$sat = $1;
	} else {
		print "$line";
	}

unless ($llat eq $lat && $llong eq $long) {
	$clock = &joinclock($clock);
	if ($mode eq 'A') {
		$mode = 'Normal'
	} elsif ($mode eq 'D') {
		$mode = 'DGPS';
	}

	my($clat,$clong);

	my @tmpla = split(/\./,$lat);
	my $lat0 = sprintf "%3.7f",(substr($tmpla[0], 0, -2));
	my $lat1 = sprintf "%3.7f",(substr($tmpla[0], -2, 2));
	my $lat2 = sprintf "%3.7f",('0.'.$tmpla[1]);
	$clat = sprintf "%3.6f",($lat0 + $lat1/60 + $lat2/60);

	my @tmplo = split(/\./,$long);
	my $long0 = sprintf "%3.7f",(substr($tmplo[0], 0, -2));
	my $long1 = sprintf "%3.7f",(substr($tmplo[0], -2, 2));
	my $long2 = sprintf "%3.7f",('0.'.$tmplo[1]);
	$clong = sprintf "%3.6f",($long0 + $long1/60 + $long2/60);

	my $hh = substr($long, 0, 2);
	print "$clock: $clat N $clong E\tPDOP:$pdop\tHDOP:$hdop\tVDOP:$vdop\n";
	print "          Satelites: $sat Mode:$mode\t[${dime}D]\n";
	print "          ${kt}kt/${km}km/h\tDirection (TrueN.):$dirtru / (Mag.N.):$dirmag\n";

if ($i % 5 == 0 and $hdop < 100)
{
  #open(TW, "+< serv/twi.txt"); # 読み書きモードで開く
  open(TW, "+< serv/twi.txt"); # 読み書きモードで開く
  #flock(TW, 2);             # ロック確認。ロック
  #seek(TW, 0, 0);           # ファイルポインタを先頭にセット
  #print TW "$clat,$clong,$hdop";       # 書き込む
  #truncate(TW, tell(OUT));  # ファイルサイズを書き込んだサイズにする
  #close(TW);                # closeすれば自動でロック解除  open(TW, "+< serv/twi.txt"); # 読み書きモードで開く
  flock(TW, 2);             # ロック確認。ロック
  seek(TW, 0, 0);           # ファイルポインタを先頭にセット
  print TW "$clat,$clong,$hdop";       # 書き込む
  truncate(TW, tell(OUT));  # ファイルサイズを書き込んだサイズにする
  close(TW);                # closeすれば自動でロック解除
    print "Sending location to server...";
    my $ua = LWP::UserAgent->new(timeout => 5);
    $ua->conn_cache( $conncache );
    $ua->env_proxy;

    #my $request = HTTP::Request->new('GET', "http://www.keiyac.org/posupdator/index.cgi?lat=$clat&long=$clong&sat=$sat&mode=$mode&spd=$km&alt=$alt");

    #my $response = $ua->request($request, 'res.txt');
    #if ($response->is_success) {
    ##    print "Completed\n";
    #} else {
    ##    print "Failed\n";
    #}
}

$i++;
}
	sleep $wating_time;
}

#close LOG;
close PORT or warn "Can't close serialport";

sub joinclock {

	my $hh = substr($_[0], 0, 2);
	my $mm = substr($_[0], 2, 2);
	my $ss = substr($_[0], 4, 2);
	return "$hh:$mm:$ss";
}