| 查看: 1624 | 回复: 5 | |||
[求助]
请教Windows系统下perl脚本的ARGV应用问题，谢谢
|
|
在Windows Xp，Perl脚本文件make_FENE.pl如下： #! C:\strawberry\perl\bin\perl.exe sub PAR { open(P,"> _parameter" ); print P< BD = .$BD. BDzeta = $BDzeta MDblocks = $blocks MDsteps = $steps T = $T dt = $dt FENECdist = $FENECdist shearrate = $shearrate / EOF }; $OK=0; $BDzeta = "0.0"; $shearrate = "0.0"; foreach $i (0 .. $#ARGV) { ($quant,$value) = split(/=/,$ARGV[$i]); if ($quant eq "BD" ) { $BD=$value; $OK=$OK+1; }; if ($quant eq "blocks" ) { $blocks=$value; $OK=$OK+1; }; if ($quant eq "steps" ) { $steps=$value; $OK=$OK+1; }; if ($quant eq "T" ) { $T=$value; $OK=$OK+1; }; if ($quant eq "dt" ) { $dt=$value; $OK=$OK+1; }; if ($quant eq "FENECdist" ) { $FENECdist=$value; $OK=$OK+1; }; if ($quant eq "BDzeta" ) { $BDzeta=$value; $OK=$OK+1; }; if ($quant eq "shearrate" ) { $shearrate=$value; }; if ($quant eq "Np" ) { $Np=$value; }; if ($quant eq "boxx" ) { $boxx=$value; }; if ($quant eq "boxy" ) { $boxy=$value; }; if ($quant eq "boxz" ) { $boxz=$value; }; }; PAR； 在CMD窗口的当前目录下直接 perl make_FENE.pl, 生成_parameter文件: &LIST BD = .. BDzeta = 0.0 MDblocks = MDsteps = T = dt = FENECdist = shearrate = 0.0 / 但是我希望怎样在窗口能够出现命令行如 BD = 然后我在键盘上敲入这个值，依次类推，最后生成的_parameter里的数值是由我键盘输入的。上述的脚本应该怎么改进，请大家帮帮忙，非常感谢！ |
回复此楼» 猜你喜欢
323求调剂
已经有6人回复
-
一志愿北京化工大学 070300 学硕 336分 求调剂
已经有4人回复
-
352求调剂
已经有3人回复
-
一志愿东华大学化学070300，求调剂
已经有8人回复
-
277材料科学与工程080500求调剂
已经有7人回复
-
317求调剂
已经有18人回复
-
293求调剂
已经有5人回复
-
280分求调剂 一志愿085802
已经有7人回复
-
0854电子信息求调剂
已经有3人回复
-
263求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教各位关于研究计划的一些问题？在线等。。。
已经有10人回复
- 请教几个关于电沉积的最初级的问题，还请各位不吝赐教
已经有5人回复
- 请教一个电化学中关于扩散控制和吸附控制的问题，很急，谢谢了
已经有9人回复
- 虚心请教药理学实验的问题，望各位热心的虫虫解答！
已经有9人回复
- 请教个锂离子电池充放电的问题
已经有19人回复
- 最近跑了几个DGGE，出现一些问题，请教大家
已经有11人回复
- 关于感受态制备问题请教
已经有13人回复
- 请教一个分子优化的问题 四个判据
已经有7人回复
- 请教个不等式的问题
已经有4人回复
- 请教一个应用read时出现数组越界的问题，谢谢
已经有7人回复
- 【求助】请教乳液聚合制备聚苯乙烯的分解温度问题
已经有8人回复
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty(金币+1): 欢迎讨论交流 2012-02-07 23:39:42
感谢参与，应助指数 +1
xzhdty(金币+1): 欢迎讨论交流 2012-02-07 23:39:42
|
楼主你好，如果我没有理解错的话你的意思是想接收键盘的输入，并将该值赋给变量，变量接收键盘输入可以使用“$变量名= if(chomp($num= print "read from stdin error\n"; }else{ print "num=[$num]\n"; } chomp函数的功能请楼主自己百度，下面的代码可以测试chomp的作用： $test= print "[$test]\n"; chomp($test); print "[$test]\n"; |
2楼2012-02-07 15:12:21
3楼2012-02-07 15:13:31
★
jjdg(金币+1): 欢迎讨论 2012-02-08 23:32:56
jjdg(金币+1): 欢迎讨论 2012-02-08 23:32:56
|
谢谢，问题解决了，我用这样的： perl make_FENE.pl BD=false blocks=10 steps=500 T=1.0 dt=0.005 FENECdist=1.20 shearrate=0 就可以了，剩下一个小问题是 sub PAR { open(P,"> _parameter" ); print P< BD = .$BD. BDzeta = $BDzeta MDblocks = $blocks MDsteps = $steps T = $T dt = $dt FENECdist = $FENECdist shearrate = $shearrate / EOF }; 如果我要生成的_parameter文件放在某个确定的目录下，比如 D:\perl\document, 该怎么改呢？ |
4楼2012-02-07 18:18:49
5楼2012-02-07 18:27:11
6楼2012-02-07 19:28:43
40