| 查看: 1519 | 回复: 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里的数值是由我键盘输入的。上述的脚本应该怎么改进，请大家帮帮忙，非常感谢！ |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有25人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有3人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有4人回复
-
自荐读博
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有5人回复
-
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教各位关于研究计划的一些问题？在线等。。。
已经有10人回复
- 请教几个关于电沉积的最初级的问题，还请各位不吝赐教
已经有5人回复
- 请教一个电化学中关于扩散控制和吸附控制的问题，很急，谢谢了
已经有9人回复
- 虚心请教药理学实验的问题，望各位热心的虫虫解答！
已经有9人回复
- 请教个锂离子电池充放电的问题
已经有19人回复
- 最近跑了几个DGGE，出现一些问题，请教大家
已经有11人回复
- 关于感受态制备问题请教
已经有13人回复
- 请教一个分子优化的问题 四个判据
已经有7人回复
- 请教个不等式的问题
已经有4人回复
- 请教一个应用read时出现数组越界的问题，谢谢
已经有7人回复
- 【求助】请教乳液聚合制备聚苯乙烯的分解温度问题
已经有8人回复
★
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