４／１３’２４
KEYを使わなくても
my @MON = ("","jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec");
my $TSTEP="10mn"; ## default
$TSTEP="05mn"; ## new data
$line=~s/CCYY/$CCYY/g;
$line=~s/MMM/$MON[$MM]/g;
$line=~s/DD/$DD/g;
$line=~s/HH/$HH/g;
$line=~s/FF/$FF/g;
$line=~s/TSTEP/$TSTEP/g;
で、OK.
ORG="tdef 1440 linear HH:FFZDDMMMCCYY TSTEP"
◆perl script
##
#change Grads.cntl file
$ORG = "rmax.ctl.ORG";
$CNT = "rmax.ctl";
#substitute code
$KEY0="RAD";
$KEY1="CCYY";
$KEY2="MM";
$KEY2c="MON";
$KEY3="DD";
$KEY4="HH";
$KEY5="FF";
$KEY6="KOSU"; ### fix 1
@MON = ("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec");
open(ORG,"$ORG"); ### input org.file
open(OUT,">$CNT"); ### output file
while($line=<ORG>){
$line =~ s/$KEY0/$radn3/g; #radar name
$line =~ s/$KEY1/$it[0]/g; #ccyy
$line =~ s/$KEY2/$it[1]/g; #mm
$line =~ s/$KEY2c/$MON[$it[1]-1]/g; #mon
$line =~ s/$KEY3/$it[2]/g; #dd
$line =~ s/$KEY4/$it[3]/g; #hh
print OUT $line;
}
#DSET rxRADCCYYMMDDHH00.dat
--------------------------------
ORG
#
DSET rxRADCCYYMMDDHH00.dat
* draw polar map max or accumulate 12/7'11
TITLE XMP polar map
options big_endian template
UNDEF -327.68
XDEF 300 LINEAR 0.0 1.2
YDEF 534 LINEAR -90.0 0.0015
ZDEF 1 LINEAR 1.0 1.0
TDEF 1 LINEAR HHzDDMONCCYY 5mn
VARS 3
xmax 1 99 xmax
asum 1 99 asum
ccou 1 99 ccou
ENDVARS