#!/usr/bin/perl

use strict;
use warnings;
use utf8;

# IOの文字コードを規定
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

my $kml_filename = "";
my $flag_mode;
my $coord_lat_long;
my $placename;

print("KML Placemark 自動作成スクリプト\n");

print("出力ファイル名（日本語名称不可） [output.kml] : ");
$_ = <STDIN>;
chomp;
if(length($_) <= 0) {
    $kml_filename = "output.kml";
}
else {
    $kml_filename = $_;
}

open(FH_OUT, ">$kml_filename") or die("出力ファイルに書き込めません\n");
binmode(FH_OUT, ":utf8");

print(FH_OUT "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" .
        "<kml xmlns=\"http://www.opengis.net/kml/2.2\">\n" .
        "<Document>\n\n" .
        "<Style id=\"Icon_Red\">\n" .
        "   <IconStyle>\n" .
        "   <Icon>\n" .
        "   <href>https://maps.google.com/mapfiles/kml/paddle/red-circle-lv.png</href>\n" .
        "   </Icon>\n" .
        "   <scale>1</scale>\n" .
        "   </IconStyle>\n" .
        "</Style>\n" .
        "<Style id=\"Icon_Green\">\n" .
        "   <IconStyle>\n" .
        "   <Icon>\n" .
        "   <href>https://maps.google.com/mapfiles/kml/paddle/grn-circle-lv.png</href>\n" .
        "   </Icon>\n" .
        "   <scale>1</scale>\n" .
        "   </IconStyle>\n" .
        "</Style>\n" .
        "<Style id=\"Icon_Blue\">\n" .
        "   <IconStyle>\n" .
        "   <Icon>\n" .
        "   <href>https://maps.google.com/mapfiles/kml/paddle/blu-circle-lv.png</href>\n" .
        "   </Icon>\n" .
        "   <scale>1</scale>\n" .
        "   </IconStyle>\n" .
        "</Style>\n\n") or die("出力ファイルに書き込めません\n");

while(1) {
    print("処理選択 r/b/g:地点追加(icon Red/Blue/Green), q:終了  (r/g/b/q) [r] : ");
    $_ = <STDIN>;
    chomp;
    if(length($_)<=0 || lc($_) eq 'r'){ $flag_mode = 'r'; }
    elsif(lc($_) eq 'g'){ $flag_mode = 'g'; }
    elsif(lc($_) eq 'b'){ $flag_mode = 'b'; }
    elsif(lc($_) eq 'q'){ $flag_mode = 'q'; }
    else { next; }
    print("flag = " . $flag_mode . "\n");

    if($flag_mode eq 'q') {
        print(FH_OUT "</Document>\n</kml>\n") or die("出力ファイルに書き込めません\n");
        print("処理終了\n");
        close(FH_OUT);
        exit();
    }

    print("座標 北緯,東経 (例 : 35.5,135.2) : ");
    $_ = <STDIN>;
    chomp;
    if(length($_) <= 0){ next; }
    $coord_lat_long = $_;
    my @coord = split(/,/, $coord_lat_long);
    
    print("座標のラベル (例 : 中央駅) : ");
    $_ = <STDIN>;
    chomp;
    if(length($_) <= 0){ next; }
    $placename = $_;

    print(FH_OUT "<Placemark>\n" .
            "   <name>". $placename . "</name>\n");

    if($flag_mode eq 'r') { print(FH_OUT "   <styleUrl>#Icon_Red</styleUrl>\n"); }
    if($flag_mode eq 'g') { print(FH_OUT "   <styleUrl>#Icon_Green</styleUrl>\n"); }
    if($flag_mode eq 'b') { print(FH_OUT "   <styleUrl>#Icon_Blue</styleUrl>\n"); }

    print(FH_OUT "   <Point>\n" .
            "   <coordinates>" . $coord[1] . "," . $coord[0] . "</coordinates>\n" .
            "   </Point>\n" .
            "</Placemark>\n\n") or die("出力ファイルに書き込めません\n");

}