#!/usr/bin/perl

# Kashmir GPS File tool CSV file modifier for Super Mapple Digital Ver6.0
# hirakei
# 05.9.3 Ver0.2
# Kashmir CSV ファイルの分割機能を追加。
# usage: % perl csvmod.pl < CSVFILE.csv
# 05.8.1 Ver0.1
# 新規作成

$header="GPSFILE";
$count=0;

while(<>){
 chomp;

 if (/^H(\d+),/){
  close FILE;
  $logfile="${header}_$1\.csv";
  open(FILE,"> $logfile") or die("Open error.\n");
  print "Create: $logfile\n";
  next;
 }

 if (/(.+),(\d{2})\.(\d{2})(\d{2})(\d),(\d{3})\.(\d{2})(\d{2})(\d),(.+)/){
  print FILE "$1,$2\.$3.$4.$5,$6\.$7\.$8\.$9,$10\n";
 } else {
  print FILE "$_\n";
 }
}

print"Done.\n";