perl技 9時と21時を取り出す

時間でループしてit(4)が9時、21時であれば,printする

＠１１／２１’２２

JSTをUTCに変換して，１，０で求める．

★前後のSonde時刻を求めるとき

itが12Zより前（it[3]/12<1⇒int(it[3]/12)=0）であれば，0と1が前後のSonde時刻

itが12Zより後（it[3]/12>=1⇒int(it[3]/12)=1）であれば，1と2が前後のSonde時刻

➡before= int(it[3]/12), after= int(it[3]/12)+1←実時間を出力するには12倍する．after==2（hour=24)ならば，日付を1日進める．

==##対象時刻の前後のゾンデ時刻をリファレンスで返す##==

sub sub_ba_sonde{
 my $ldeg=1;
 my @it;
 $it[0]=shift @_;
 $it[1]=shift @_;
 $it[2]=shift @_;
 $it[3]=shift @_;
 $it[4]=shift @_;
 print"@it\n"if$ldeg;

 my $hours=$it[3]/12;my $is=int($hours);
 my @mae=@it;$mae[3]= $is   *12;
 my @ato=@it;$ato[3]=($is+1)*12 ;
 if($ato[3]==24){
  my @itmp=@ato;$itmp[3]=0;
  @ato=hzk(@itmp,60,24);
 }
 return \@mae,\@ato;

}