作者windrain0317 (一步~寻)
看板Perl
标题Re: [问题] 全然的新手想请教问题
时间Mon Sep 15 00:40:58 2008
自问自答
谢谢版上的文章
和协助我的人们
--
#!/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