( $its_jst[0],$its_jst[1],$its_jst[2],$its_jst[3],$its_jst[4],$elv ) = split(/ +/,$tkouu);
◆ccyymmddhhff useful script @6/24'18
my $ccyymmdd = substr($chtime,0,8);
my $ccyymmdd =sprintf("%04d%02d%02d",$it[0],$it[1],$it[2]);
my $yymmdd =sprintf("%02d%02d%02d",$it[0]-2000,$it[1],$it[2]);
my $hhff=sprintf("%02d%02d",$it[3],$it[3]);
my $ccyymmddhhff =sprintf("%04d%02d%02d%02d%02d",$it[0],$it[1],$it[2],$it[3],$it[4]);
my @it;
$it[0]=substr($ccyymmddhhff,0,4);
$it[1]=substr($ccyymmddhhff,4,2);
$it[2]=substr($ccyymmddhhff,6,2);
$it[3]=substr($ccyymmddhhff,8,2);
$it[4]=substr($ccyymmddhhff,10,2);
◆kouu
( $its_jst[0],$its_jst[1],$its_jst[2],$its_jst[3],$its_jst[4], $ite_jst[0],$ite_jst[1],$ite_jst[2],$ite_jst[3],$ite_jst[4]) = split(/ +/,$line);
