Re: [問題] 全然的新手想請教問題
自問自答
謝謝版上的文章
和協助我的人們
--
#!/usr/bin/perl -w
open FILE, "data.txt";
$bool = 0;
$count = 0;
while (<FILE>) {
if (/第一個關鍵字/){
$bool = 1;
}
if (/ 第二個關鍵字 / && $bool){
$count++;
$bool = 0;
}
}
print "\ntotal: $count\n";
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.205.39.4
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
