・csvファイルで用意した時刻ファイルを入力値にしたINPファイルを作る。
rame/test
＃perl技
−−−csvからit5をピックアップ。ハッシュを使う。
■SetCase
sub SetCase(){
#仕様：csvを配列に入れる。Keyはケース番号。
my ($f) = @_; ##in
my %h_case; ##out
open(IN,"<$f") or die "$f open failed!\n";
while(
#値をすべて配列に格納
my @val = split/,/;
#csvfile1行目をケース番号とする
my $key = sprintf("%03d",$val[0]);
#緯度、整数3個
my @ido = @val[1..3];
#経度、3個
my @kdo = @val[4..6];
#時刻4個−−年、月、日、時
my @it0 = @val[7..10];
#分を追加−−0固定
push(@it0,0);
#ハッシュを定義
@{$h_case{$key}{'it0'}} = @it0;
#親プログラムに戻る
｝#
return(%h_case);
} #end of subroutine SetCase
#注意
「Undefined subroutine &main::retrun called at go.pl」
returnがretrunになっていた。＠5/6'15
■
・データの同期が必要（最新版を常に管理）
・プログラムについては機種依存性に注意
・サーバとの転送速度
・USBドライブの容量
・ローカルマシンのプログラムの互換性（下位互換）
・・エクセルの網掛けは黄色か50%
