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);　　　　　　

这些都是基本的 perl 语法、函数
perl 博大精深，还是先找些书看看吧　　　　　　

永远不要指望到论坛问几个问题就能掌握一门儿语言 　　　　　　

支持 版主　　　　　　

2.   
$hk = `grdinfo $grd | grep Command | cut -d' ' -f 4`; chop($hk);


有经验的perler会写成:

`grdinfo $grd | grep Command | cut -d' ' -f 4` ||  chop;