#経度をハッシュで定義
my %KDO=(
"oowa"=> "133,41,38",
"sira"=> "140,10, 4",
"syak"=> "130,53,28",
"taka"=> "140,35,29",
"kuni"=> "131,00,56",
"hiji"=> "138, 0, 2",
"miya"=> "135,22,48",
"raka"=> "132,04,16",
);
#条件をreplaceで入れ替え
my $nn=0;
foreach my $name(@rad){
$nn++;
last if $nn>1 && $DEG;
my $ORG="misc_ORG.txt";
my $MIS="misc.txt";
unlink $MIS if -e $MIS;
open(ORG,"$ORG") or die "ORG file open error!";
open(MIS,">$MIS") or die "MIS file open error!";
while(my $line=
$line=~ s/IDO/$IDO{$name}/g;
$line=~ s/KDO/$KDO{$name}/g;
$line=~ s/NAME/$name/g;
print MIS $line;
}
close (ORG);close(MIS);
□_cmp/rrmap
