1樓：陽光上的橋
open(fd,"1.txt");
while($s=)
close(fd);
求一個處理文字的指令碼 100
2樓：連續用
#! c:/perl/bin/perl.exe
my $a = << 'atxt';
//query: a1
************************xx
***************************x
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
ccccccccccccccccccccccccccccc
zzzzzzzzzzzzzzzzzzzz
//query: a2
************************xx
***************************x
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
ffffffffffffffffffffffffffffffffffff
gggggggggggggggggggggggggg
zzzzzzzzzzzzzzzzzzzz
atxt
my @a = split(/\n/,$a);
$i = -1;
foreach $c (@a)
if($c =~/^[bcefg]/)
}$m = 0;
foreach $d (@q))
$m++;
}結果：
a1 bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
a1 ccccccccccccccccccccccccccccc
a2 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
a2 ffffffffffffffffffffffffffffffffffff
a2 gggggggggggggggggggggggggg
求perl的指令碼，求一個perl的指令碼
你的程式沒有問題的啊，要是替換多個短語加個for就好了 1 chomp my keyword while data 123 123 456 789 123 456 123 33 while while print usr bin perl w use strict die perl 0 n unle...
求按鍵精靈的指令碼，求一個按鍵精靈的指令碼
定義一個變數，以確定按什麼鍵 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...
求有S起頭U中間P結尾這字母的英文字求高手指教
sup 啜,呷 啜飲 subgroup 小群 suretyship 保險人責任 不常見 survivorship生存 中間u的話不是很好想啊啊啊啊啊啊 sannup scaup scrump sculp scup setup sirup slump slurp soup stoup stulp st...