 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1609 | 回復(fù): 5 | ||
[求助]
請(qǐng)教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 = 然后我在鍵盤上敲入這個(gè)值，依次類推，最后生成的_parameter里的數(shù)值是由我鍵盤輸入的。上述的腳本應(yīng)該怎么改進(jìn)，請(qǐng)大家?guī)蛶兔Γ浅８兄x！ |
回復(fù)此樓» 猜你喜歡
被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了
已經(jīng)有3人回復(fù)
-
085600材料與化工求調(diào)劑
已經(jīng)有5人回復(fù)
-
材料與化工求調(diào)劑
已經(jīng)有5人回復(fù)
-
277調(diào)劑
已經(jīng)有4人回復(fù)
-
290求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料工程專碩調(diào)劑
已經(jīng)有3人回復(fù)
-
26考研求調(diào)劑
已經(jīng)有6人回復(fù)
-
求調(diào)劑，總分315，考的生物醫(yī)藥，一志愿湖南師范大學(xué)。調(diào)劑到任何專業(yè)都可以
已經(jīng)有5人回復(fù)
-
311求調(diào)劑
已經(jīng)有7人回復(fù)
-
303求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 請(qǐng)教各位關(guān)于研究計(jì)劃的一些問題？在線等。。。
已經(jīng)有10人回復(fù)
- 請(qǐng)教幾個(gè)關(guān)于電沉積的最初級(jí)的問題，還請(qǐng)各位不吝賜教
已經(jīng)有5人回復(fù)
- 請(qǐng)教一個(gè)電化學(xué)中關(guān)于擴(kuò)散控制和吸附控制的問題，很急，謝謝了
已經(jīng)有9人回復(fù)
- 虛心請(qǐng)教藥理學(xué)實(shí)驗(yàn)的問題，望各位熱心的蟲蟲解答！
已經(jīng)有9人回復(fù)
- 請(qǐng)教個(gè)鋰離子電池充放電的問題
已經(jīng)有19人回復(fù)
- 最近跑了幾個(gè)DGGE，出現(xiàn)一些問題，請(qǐng)教大家
已經(jīng)有11人回復(fù)
- 關(guān)于感受態(tài)制備問題請(qǐng)教
已經(jīng)有13人回復(fù)
- 請(qǐng)教一個(gè)分子優(yōu)化的問題 四個(gè)判據(jù)
已經(jīng)有7人回復(fù)
- 請(qǐng)教個(gè)不等式的問題
已經(jīng)有4人回復(fù)
- 請(qǐng)教一個(gè)應(yīng)用read時(shí)出現(xiàn)數(shù)組越界的問題，謝謝
已經(jīng)有7人回復(fù)
- 【求助】請(qǐng)教乳液聚合制備聚苯乙烯的分解溫度問題
已經(jīng)有8人回復(fù)
zideiwuying
金蟲 (初入文壇)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 2585.3
- 帖子: 36
- 在線: 133.8小時(shí)
- 蟲號(hào): 1498314
- 注冊(cè): 2011-11-18
【答案】應(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
|
樓主你好，如果我沒有理解錯(cuò)的話你的意思是想接收鍵盤的輸入，并將該值賦給變量，變量接收鍵盤輸入可以使用“$變量名= if(chomp($num= print "read from stdin error\n"; }else{ print "num=[$num]\n"; } chomp函數(shù)的功能請(qǐng)樓主自己百度，下面的代碼可以測(cè)試chomp的作用： $test= print "[$test]\n"; chomp($test); print "[$test]\n"; |
2樓2012-02-07 15:12:21
zideiwuying
金蟲 (初入文壇)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 2585.3
- 帖子: 36
- 在線: 133.8小時(shí)
- 蟲號(hào): 1498314
- 注冊(cè): 2011-11-18
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 就可以了，剩下一個(gè)小問題是 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文件放在某個(gè)確定的目錄下，比如 D:\perl\document, 該怎么改呢？ |
4樓2012-02-07 18:18:49
5樓2012-02-07 18:27:11
zideiwuying
金蟲 (初入文壇)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 2585.3
- 帖子: 36
- 在線: 133.8小時(shí)
- 蟲號(hào): 1498314
- 注冊(cè): 2011-11-18
6樓2012-02-07 19:28:43
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 li_clifff 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[基金申請(qǐng)] 被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了 +3 | beefly 2026-03-14 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 梁成偉老師課題組歡迎你的加入 +8 | 一鴨鴨喲 2026-03-14 | 10/500 |
|
|
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +4 | yangfz 2026-03-17 | 4/200 |
|
|
|
[考研] 289求調(diào)劑 +6 | 步川酷紫123 2026-03-11 | 6/300 |
|
|
|
[考研] 274求調(diào)劑 +5 | 時(shí)間點(diǎn) 2026-03-13 | 5/250 |
|
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +3 | 張vvvv 2026-03-15 | 5/250 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +6 | 妮妮ninicgb 2026-03-15 | 9/450 |
|
|
|
[考研] 283求調(diào)劑 +10 | 小樓。 2026-03-12 | 14/700 |
|
|
|
[考研] 085600材料與化工 求調(diào)劑 +13 | enenenhui 2026-03-13 | 14/700 |
|
|
|
[考研] 344求調(diào)劑 +3 | knight344 2026-03-16 | 3/150 |
|
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油！? 2026-03-15 | 5/250 |
|
|
|
[考研] 22408總分284求調(diào)劑 +3 | InAspic 2026-03-13 | 3/150 |
|
|
|
[考研] 337一志愿華南理工0805材料求調(diào)劑 +7 | mysdl 2026-03-11 | 9/450 |
|
|
|
[考研] ［0860］321分求調(diào)劑，ab區(qū)皆可 +4 | 寶貴熱 2026-03-13 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +7 | 7712b 2026-03-13 | 7/350 |
|
|
|
[考研] 材料與化工085600調(diào)劑求老師收留 +9 | jiaanl 2026-03-11 | 9/450 |
|
|
|
[考研] 【考研調(diào)劑求收留】 +3 | Ceciilia 2026-03-11 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | 程雨杭 2026-03-12 | 3/150 |
|
|
|
[考研] 328化工專碩求調(diào)劑 +4 | 。，。，。，。i 2026-03-12 | 4/200 |
|
|
|
[考研] 調(diào)劑 +5 | 呵唔哦豁 2026-03-10 | 5/250 |
|