ファイルが、rain07-14_0000.nc, rain07-14_0010.nc, rain07-14_0020.nc, rain07-14_0030.nc
というNetCDFファイルであるときこれらを一度に描画し、gifファイルとして出力する。
PIPEという名前のファイルハンドルを|(パイプ)でGrADSに渡している。
my @file1 = ('00','10','20','30');
foreach my ${minute} (@file1) {
my ${infile} = "rain07-14_00${minute}.nc";
my ${outfile} = "07_14_00${minute}.gif";
open( PIPE, "| gradsnc -bp" ) or die "open_error !";
print PIPE "sdfopen ${infile}\n";
print PIPE "set gxout shaded\n";
print PIPE "set mpdset hires\n";
print PIPE "d rain\n";
print PIPE "cbarn\n";
print PIPE "draw title 07-14_00${minute}\n";
print PIPE "printim ${outfile} white \n";
print PIPE "quit\n";
close(PIPE);
}