 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1610 | 回復(fù): 5 | |||
[求助]
請教Windows系統(tǒng)下perl腳本的ARGV應(yīng)用問題，謝謝
|
|
在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窗口的當(dāng)前目錄下直接 perl make_FENE.pl, 生成_parameter文件: &LIST BD = .. BDzeta = 0.0 MDblocks = MDsteps = T = dt = FENECdist = shearrate = 0.0 / 但是我希望怎樣在窗口能夠出現(xiàn)命令行如 BD = 然后我在鍵盤上敲入這個值，依次類推，最后生成的_parameter里的數(shù)值是由我鍵盤輸入的。上述的腳本應(yīng)該怎么改進，請大家?guī)蛶兔�，非常感謝！ |
回復(fù)此樓» 猜你喜歡
293求調(diào)劑
已經(jīng)有12人回復(fù)
-
070300化學(xué)319求調(diào)劑
已經(jīng)有4人回復(fù)
-
268求調(diào)劑
已經(jīng)有9人回復(fù)
-
301求調(diào)劑
已經(jīng)有4人回復(fù)
-
0703化學(xué)336分求調(diào)劑
已經(jīng)有5人回復(fù)
-
301求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料專碩306英一數(shù)二
已經(jīng)有9人回復(fù)
-
304求調(diào)劑
已經(jīng)有8人回復(fù)
-
材料工程專碩調(diào)劑
已經(jīng)有5人回復(fù)
-
344求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 請教各位關(guān)于研究計劃的一些問題？在線等。。。
已經(jīng)有10人回復(fù)
- 請教幾個關(guān)于電沉積的最初級的問題，還請各位不吝賜教
已經(jīng)有5人回復(fù)
- 請教一個電化學(xué)中關(guān)于擴散控制和吸附控制的問題，很急，謝謝了
已經(jīng)有9人回復(fù)
- 虛心請教藥理學(xué)實驗的問題，望各位熱心的蟲蟲解答！
已經(jīng)有9人回復(fù)
- 請教個鋰離子電池充放電的問題
已經(jīng)有19人回復(fù)
- 最近跑了幾個DGGE，出現(xiàn)一些問題，請教大家
已經(jīng)有11人回復(fù)
- 關(guān)于感受態(tài)制備問題請教
已經(jīng)有13人回復(fù)
- 請教一個分子優(yōu)化的問題 四個判據(jù)
已經(jīng)有7人回復(fù)
- 請教個不等式的問題
已經(jīng)有4人回復(fù)
- 請教一個應(yīng)用read時出現(xiàn)數(shù)組越界的問題，謝謝
已經(jīng)有7人回復(fù)
- 【求助】請教乳液聚合制備聚苯乙烯的分解溫度問題
已經(jīng)有8人回復(fù)
【答案】應(yīng)助回帖
★
感謝參與，應(yīng)助指數(shù) +1
xzhdty(金幣+1): 歡迎討論交流 2012-02-07 23:39:42
感謝參與，應(yīng)助指數(shù) +1
xzhdty(金幣+1): 歡迎討論交流 2012-02-07 23:39:42
|
樓主你好，如果我沒有理解錯的話你的意思是想接收鍵盤的輸入，并將該值賦給變量，變量接收鍵盤輸入可以使用“$變量名= if(chomp($num= print "read from stdin error\n"; }else{ print "num=[$num]\n"; } chomp函數(shù)的功能請樓主自己百度，下面的代碼可以測試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
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 li_clifff 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 301求調(diào)劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
|
[考研] 312求調(diào)劑 +4 | 陌宸希 2026-03-16 | 5/250 |
|
|
[基金申請] 被我言中：新模板不強調(diào)格式了，假專家開始管格式了 +3 | beefly 2026-03-14 | 3/150 |
|
|
|
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3 | TqlXswl 2026-03-16 | 7/350 |
|
|
|
[考研] 085600材料與化工 +4 | 安全上岸！ 2026-03-16 | 4/200 |
|
|
|
[考博] 26申博 +4 | 八旬速覽 2026-03-16 | 4/200 |
|
|
|
[考研] 材料工程專碩274一志愿211求調(diào)劑 +6 | 薛云鵬 2026-03-15 | 6/300 |
|
|
|
[考研] 一志愿南京大學(xué)，080500材料科學(xué)與工程，調(diào)劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
|
[考研] 22408總分284求調(diào)劑 +3 | InAspic 2026-03-13 | 3/150 |
|
|
|
[考研] 一志愿哈工大材料324分求調(diào)劑 +5 | 閆旭東 2026-03-14 | 5/250 |
|
|
|
[考研] 266求調(diào)劑 +4 | 學(xué)員97LZgn 2026-03-13 | 4/200 |
|
|
|
[考研] 341求調(diào)劑 +3 | 番茄頭--- 2026-03-10 | 3/150 |
|
|
|
[考研] 一志愿中科院，化學(xué)方向，295求調(diào)劑 +4 | 一氧二氮 2026-03-11 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +7 | 7712b 2026-03-13 | 7/350 |
|
|
|
[考研] 0703化學(xué)一志愿211 總分320求調(diào)劑 +5 | 瑪卡巴卡啊哈 2026-03-11 | 5/250 |
|
|
|
[考研] 328化工專碩求調(diào)劑 +4 | 。，。，。，。i 2026-03-12 | 4/200 |
|
|
|
[考研] 一志愿山大07化學(xué) 332分 四六級已過 本科山東雙非 求調(diào)劑！ +3 | 不想理你 2026-03-12 | 3/150 |
|
|
|
[考研] 333求調(diào)劑 +3 | 152697 2026-03-12 | 4/200 |
|