1樓：
你的程式沒有問題的啊，要是替換多個短語加個for就好了$| = 1;
chomp(my $keyword = <>);
while()
__data__
123 123 456
789 123
456 123 33
while (<>)
while()
print $_;}
2樓：泰暎
#!/usr/bin/perl -w
use strict;
die "perl $0 \n" unless(@argv == 2);
open in,$argv[0] || die "開啟輸入檔案失敗\n";
open out,">$argv[1]" || die "開啟輸出檔案失敗\n";
while()
if($_=~/^type/)
if($_=~/^retained introns/)
}close in;
close out;
執行的時候，假設你儲存為指令碼runpick.pl
輸入檔名為 input.txt 輸出檔名為output.txt
那麼執行時直接:perl runpick.pl input.txt output.txt
執行結束之後，螢幕會回顯你要的那幾行資訊以及將你要的資訊儲存到output.txt裡面。如果還有其他疑問，請補充提問
求perl寫一個處理文字的指令碼
3樓：陽光上的橋
open(fd,"1.txt");
while($s=)
close(fd);
perl，我想用perl寫個小指令碼
4樓：你猜我猜哇擦猜
如果是windows，裝一個perl軟體
如果是linux，基本都已經裝好了的。開啟檔案編輯器，寫好程式後儲存*.pl
再雙擊執行，或者開啟命令介面輸perl *.pl執行
5樓：匿名使用者
5條報文格式是什麼樣的。請提供樣板
急急急。。per 指令碼求助。我是一個新手，我想寫一個perl指令碼，具體需求我寫在補充裡面了，跪求大神幫忙。
6樓：匿名使用者
|line=`ps aux |grep tomcat|grep -v grep|wc -l`
if [ "$line" -ge "1" ]then
echo "ok"
else
echo "not exist"fi
求perl寫處理文字的指令碼,求perl寫一個處理文字的指令碼
open fd,1.txt while s close fd 求一個處理文字的指令碼 100 c perl bin perl.exe my a atxt query a1 xx x bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb ccccccccccccccccccccccccccc...
求按鍵精靈的指令碼，求一個按鍵精靈的指令碼
定義一個變數，以確定按什麼鍵 i 0while true if i 0 按 1 keypress 49,1 延時，為了您能及時中止這個指令碼，延時大於2秒時，請用for 迴圈來處理 for 6 delay 1000 endfor elseif i 1 keypress 50,1 for 8 dela...
編寫shell指令碼，編寫一個shell指令碼
ip ifconfig grep inet addr awk f awk head 1 echo 本機ip是 ip iplist echo ip awk f.for k in docheckip iplist k echo check checkip tmp ping c1 checkip grep...