有个perl程序,其中有几句话不懂,请高人指点
1.
($grd, $h, $kapa, $cxx, $cyy, $cxy, $min, $dev) = split;
2.
$hk = `grdinfo $grd | grep Command | cut -d' ' -f 4`; chop($hk);
3.
($aa,$minH,$maxH,$mink,$maxk) = split(/[R\/]/,$hk);
4.
open(PLT,"|psxy -JX $hk -O -K -Se -W2/255/255/255");
printf PLT "%6.2f %8.4f %6.1f %s %s\n",$h,$kapa,$theta,sqrt($dev/$s1),sqrt($dev/$s2);
close(PLT);
|