标题: 有个perl程序,其中有几句话不懂,请高人指点
flh81
新生入学
Rank: 1
注册用户



UID 196180
精华 0
积分 0(积分有什么用?)
帖子 21
阅读权限 10
注册 2007-5-13
状态 离线
发表于 2007-8-22 13:58  资料  个人空间  短消息  加为好友 

Linux爱好者的盛会
有个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
版主
Rank: 7Rank: 7Rank: 7
Clark J. Wang



UID 26605
精华 26
积分 51(积分有什么用?)
帖子 4804
阅读权限 100
注册 2002-10-12
来自 Beijing, China
状态 在线
发表于 2007-8-23 12:15  资料  个人空间  短消息  加为好友 
这些都是基本的 perl 语法、函数
perl 博大精深,还是先找些书看看吧





'
◆ 发帖时请【突出主题】, 以便您的问题能够及时得到回复
◆ 发帖时请将您的【代码】或者【脚本】写在 [code] 和 [/code] 中间
顶部
dearvoid
版主
Rank: 7Rank: 7Rank: 7
Clark J. Wang



UID 26605
精华 26
积分 51(积分有什么用?)
帖子 4804
阅读权限 100
注册 2002-10-12
来自 Beijing, China
状态 在线
发表于 2007-8-23 12:18  资料  个人空间  短消息  加为好友 
永远不要指望到论坛问几个问题就能掌握一门儿语言





'
◆ 发帖时请【突出主题】, 以便您的问题能够及时得到回复
◆ 发帖时请将您的【代码】或者【脚本】写在 [code] 和 [/code] 中间
顶部
040410615
新生入学
Rank: 1
注册用户



UID 187434
精华 0
积分 0(积分有什么用?)
帖子 24
阅读权限 10
注册 2007-4-7
状态 在线
发表于 2007-10-8 22:36  资料  个人空间  短消息  加为好友 
支持 版主

顶部
 



当前时区 GMT+8, 现在时间是 2008-5-12 10:14

    Powered by Discuz! 5.5.0  © 2001-2007 Comsenz Inc.
Processed in 0.040686 second(s), 5 queries

清除 Cookies - 联系我们 - Linux伊甸园 - Archiver - WAP