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
求乙個CS1 6的指令碼，求CS1 6指令碼乙個
alias sjump jump duck alias sjump jump duck alias ng net graph 3 showscores alias ng net graph 0 showscores alias sprung1 alias special sprung sprung ...
求按鍵精靈的指令碼，求乙個按鍵精靈的指令碼
別著急，我來給你編乙個。還有兩個問題要確認一下，你是想讓指令碼一直迴圈執行嗎？顏色不是你說的紅色和綠色那麼簡單，必須精確，所以我編的指令碼需要你自己再確認一下顏色，修改顏色 我的指令碼裡假設第乙個點座標為x1，y1，第二個點座標為x2，y2，第三個點 求乙個按鍵精靈滑鼠左右連點指令碼 按鍵精靈方面問...
求個SQL指令碼解釋
刪除 sysparam 表中 p name 等於 authercase 的記錄 delete from sysparam where p name authercase go from date 2010 05 01 to date 2010 06 01 37 oteu2venn6280ckc se...