 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1631 | 回復: 5 | ||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
[求助]
請教Windows系統(tǒng)下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 / 但是我希望怎樣在窗口能夠出現(xiàn)命令行如 BD = 然后我在鍵盤上敲入這個值，依次類推，最后生成的_parameter里的數值是由我鍵盤輸入的。上述的腳本應該怎么改進，請大家?guī)蛶兔�，非常感謝！ |
回復此樓» 猜你喜歡
276求調劑。有半年電池和半年高分子實習經歷
已經有10人回復
-
一志愿南航材料專317分求調劑
已經有4人回復
-
求調劑
已經有4人回復
-
生物學學碩求調劑
已經有5人回復
-
284求調劑
已經有10人回復
-
一志愿山東大學藥學學碩求調劑
已經有4人回復
-
07化學280分求調劑
已經有4人回復
-
298-一志愿中國農業(yè)大學-求調劑
已經有12人回復
-
求材料，環(huán)境專業(yè)調劑
已經有3人回復
-
335求調劑
已經有5人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 請教各位關于研究計劃的一些問題？在線等。。。
已經有10人回復
- 請教幾個關于電沉積的最初級的問題，還請各位不吝賜教
已經有5人回復
- 請教一個電化學中關于擴散控制和吸附控制的問題，很急，謝謝了
已經有9人回復
- 虛心請教藥理學實驗的問題，望各位熱心的蟲蟲解答！
已經有9人回復
- 請教個鋰離子電池充放電的問題
已經有19人回復
- 最近跑了幾個DGGE，出現(xiàn)一些問題，請教大家
已經有11人回復
- 關于感受態(tài)制備問題請教
已經有13人回復
- 請教一個分子優(yōu)化的問題 四個判據
已經有7人回復
- 請教個不等式的問題
已經有4人回復
- 請教一個應用read時出現(xiàn)數組越界的問題，謝謝
已經有7人回復
- 【求助】請教乳液聚合制備聚苯乙烯的分解溫度問題
已經有8人回復
3樓2012-02-07 15:13:31
【答案】應助回帖
★
感謝參與，應助指數 +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
★
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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 361求調劑 +3 | Glack 2026-03-22 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 材料專碩英一數二306 +8 | z1z2z3879 2026-03-18 | 8/400 |
|
|
|
[考研] 307求調劑 +3 | 余意卿 2026-03-21 | 3/150 |
|
|
|
[考研]
求調劑材料學碩080500，總分289分
 5+3
|
@taotao 2026-03-19 | 21/1050 |
|
|
|
[考研] 280分求調劑 一志愿085802 +4 | PUMPT 2026-03-22 | 7/350 |
|
|
|
[考研] 315分，誠求調劑，材料與化工085600 +3 | 13756423260 2026-03-22 | 3/150 |
|
|
|
[考研] 08工科 320總分 求調劑 +11 | 梨花珞晚風 2026-03-17 | 11/550 |
|
|
|
[考研] 354求調劑 +7 | Tyoumou 2026-03-18 | 10/500 |
|
|
|
[考研] 286分人工智能專業(yè)請求調劑愿意跨考！ +4 | lemonzzn 2026-03-17 | 8/400 |
|
|
|
[考研]
 一志愿東華大學控制學碩320求調劑
+3
|
Grand777 2026-03-21 | 3/150 |
|
|
|
[考研] 求調劑 +4 | 要好好無聊 2026-03-21 | 4/200 |
|
|
|
[考研] 求調劑 +3 | 白QF 2026-03-21 | 3/150 |
|
|
|
[考研] 材料學學碩080502 337求調劑-一志愿華中科技大學 +4 | 順順順mr 2026-03-18 | 5/250 |
|
|
|
[考研] 332求調劑 +4 | ydfyh 2026-03-17 | 4/200 |
|
|
|
[考研] 一志愿武理材料305分求調劑 +6 | 想上岸的鯉魚 2026-03-18 | 7/350 |
|
|
|
[考研] 321求調劑 +9 | 何潤采123 2026-03-18 | 11/550 |
|
|
|
[考研] 一志愿武漢理工材料工程專碩調劑 +9 | Doleres 2026-03-19 | 9/450 |
|
|
|
[考研] 317求調劑 +5 | 申子申申 2026-03-19 | 9/450 |
|
|
|
[考研] 261求B區(qū)調劑，科研經歷豐富 +3 | 牛奶很忙 2026-03-20 | 4/200 |
|
|
|
[考研] 廣西大學家禽遺傳育種課題組2026年碩士招生（接收計算機專業(yè)調劑） +3 | 123阿標 2026-03-17 | 3/150 |
|