Linux伊甸园论坛 » PHP,PERL,Python » 有个perl程序，其中有几句话不懂，请高人指点

flh81 发表于 2007-8-22 13:58

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

dearvoid 发表于 2007-8-23 12:15

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

dearvoid 发表于 2007-8-23 12:18

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

040410615 发表于 2007-10-8 22:36

支持 版主:lol

ServerOnly 发表于 2008-6-26 13:14

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


有经验的perler会写成:

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

查看完整版本: 有个perl程序，其中有几句话不懂，请高人指点