求perl的指令碼,求一個perl的指令碼

2021-07-22 09:07:01 字數 1365 閱讀 9349

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

求xp系統bat批處理指令碼,求一個xp系統bat批處理指令碼

echo off echo.1.從c a 複製檔案到d a 資料夾下echo.2.d a 資料夾下複製檔案到c a echo.set p n make your choice goto n 1xcopy e y h c a d a pause exit 2xcopy e y h d a c a pa...

求大神做按鍵精靈指令碼,求大神做一個按鍵精靈指令碼

dim a a 0 and a 999999for 999999 a a 1 m len a keypress 0 6 m saystring a keypress space 1 next 當前bai 文件du輸出zhi,別dao 換視窗內。容 按鍵精靈的bai指令碼是針對你du要用的工具或者遊戲...

求個野德按鍵精靈指令碼

moveto 500,500 plugin hwnd window.mousepoint for 9999999 for 18 for 133 plugin bkgnd.keypress hwnd,49 delay 1500 endfor plugin bkgnd.keypress hwnd,50 ...