 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1639 | 回復(fù): 5 | ||
| 當(dā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 = 然后我在鍵盤上敲入這個值，依次類推，最后生成的_parameter里的數(shù)值是由我鍵盤輸入的。上述的腳本應(yīng)該怎么改進，請大家?guī)蛶兔Γ浅８兄x！ |
回復(fù)此樓» 猜你喜歡
346求調(diào)劑 一志愿070303有機化學(xué)
已經(jīng)有9人回復(fù)
-
085601 329分調(diào)劑
已經(jīng)有5人回復(fù)
-
289求調(diào)劑
已經(jīng)有4人回復(fù)
-
367求調(diào)劑
已經(jīng)有6人回復(fù)
-
271求調(diào)劑
已經(jīng)有4人回復(fù)
-
085600，321分求調(diào)劑
已經(jīng)有3人回復(fù)
-
化學(xué)工程085602 305分求調(diào)劑
已經(jīng)有35人回復(fù)
-
282求調(diào)劑 不挑專業(yè) 求收留
已經(jīng)有5人回復(fù)
-
求調(diào)劑
已經(jīng)有7人回復(fù)
-
334分 一志愿武理-080500 材料求調(diào)劑
已經(jīng)有6人回復(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ù)
5樓2012-02-07 18:27:11
【答案】應(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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 346求調(diào)劑 一志愿070303有機化學(xué) +8 | 蘿卜燉青菜 2026-03-28 | 9/450 |
|
|---|---|---|---|---|
|
[考研] 學(xué)碩274求調(diào)劑 +16 | Li李魚 2026-03-26 | 16/800 |
|
|
|
[考研] 08工科，295，接受跨專業(yè)調(diào)劑 +6 | lmnlzy 2026-03-30 | 6/300 |
|
|
|
[考研] 材料學(xué)碩333求調(diào)劑 +18 | 北道巷 2026-03-24 | 18/900 |
|
|
|
[有機交流]
 甲基亞磺磺酸鈉和甲基磺酸酯反應(yīng)機理
 10+3
|
kaobao456 2026-03-29 | 4/200 |
|
|
|
[考研] 調(diào)劑 +4 | GK72 2026-03-30 | 4/200 |
|
|
|
[考研] 327求調(diào)劑 +5 | 小卡不卡. 2026-03-29 | 5/250 |
|
|
|
[考研] 0703一志愿9，初試成績：338，四六級已過，有科研經(jīng)歷，求調(diào)劑！ +7 | Zuhui0306 2026-03-25 | 7/350 |
|
|
|
[考研] 材料專碩 085600求調(diào)劑 +7 | BBQ233 2026-03-30 | 7/350 |
|
|
|
[考研] 環(huán)境科學(xué)與工程334分求調(diào)劑 +6 | 王一一依依 2026-03-30 | 8/400 |
|
|
|
[考研] 348求調(diào)劑 +6 | 小懶蟲不懶了 2026-03-28 | 6/300 |
|
|
|
[考研] 318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑 +5 | 篤行致遠(yuǎn). 2026-03-28 | 5/250 |
|
|
|
[考研] 085600，材料與化工321分求調(diào)劑 +10 | 大饞小子 2026-03-28 | 10/500 |
|
|
|
[考研] 343求調(diào)劑085601 +3 | 要努力學(xué)習(xí)x 2026-03-29 | 3/150 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8 | 邱gl 2026-03-27 | 8/400 |
|
|
|
[考研] 材料求調(diào)劑一志愿哈工大324 +7 | 閆旭東 2026-03-28 | 9/450 |
|
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
|
[考研] 285求調(diào)劑 +4 | AZMK 2026-03-27 | 7/350 |
|
|
|
[考研] 272求調(diào)劑 +7 | 腳滑的守法公民 2026-03-27 | 7/350 |
|
|
|
[考研] 300分，材料，求調(diào)劑，英一數(shù)二 +5 | 超贊的 2026-03-24 | 5/250 |
|