#!perl -w
#
# MacGPS形式 -> GPSy拡張形式のトラックログ
# Nowral
# 00/12/26
#
# ファイルループ
foreach $oldargv (@ARGV) {
print "\n$oldargv\n";

# 出力ファイル準備
$newargv = "$oldargv(MacGPS)";
open(OUT, ">$newargv") || die;
MacPerl::SetFileInfo('GpSj', 'TEXT', $newargv);
print OUT "Format: DMS  M/D/Y H:M:S   9.00 hrs  Datum[104]: WGS 84\n";

# 読み込み
$trn = 1;
open(IN, $oldargv);
while (<IN>) {
  next unless(/^T\t/);
  @ed = split("\t");
  if ($ed[1] ne $trn) {
    print OUT "\n";
    $trn = $ed[1];
  }
#T  12/25/2000 17:11:05  35｡28'00.8"  136｡44'09.5"
  print OUT "T\t$ed[4]\t$ed[5]\t$ed[6]\n";
}
close(IN);
close(OUT);

# 1ファイル終了
print " ... done\n";
}

MacPerl::Quit(2);
die "The Unhappy End";