请教"某字符在文章中出现的次数"

perl使用环境:WIN XP  MS-DOS
有一篇文章,路径为e:/perl/test.txt,现想通过perl查找文章中字符"perl"出现的次数,请问如何做?
open (FILE,"e:/perl/test.txt") or die "$!";
foreach (<FILE>){
......
}
中间部分不晓得如何写,总感觉会,但写起来就蛮乱,把<perl入门>都通读了一遍,具体写起来的时候晕忽忽,哎!
请同志们帮忙吧!偶干脆把这些基本的思路记忆下来.谢谢了!

$i=0;
open (FILE,"e:/perl/test.txt") or die "$!";
while(<FILE>)
{
   $i++  if($_=~/perl/gi);
}
close(FILE);
print "i=$i\n";

兄弟,谢谢了!不过您的程序似乎有点问题.

$i=1;
open (FILE,"e:/perl/test.txt") or die "$!";
while(<FILE>)
{
   $i++  if($_=~/perl/gi);
}
close FILE;
print "i=$i\n";
似乎应该这样吧?呵呵,对吗?

呵呵，笔误，不好意思我通常这样写close(FILE)，括号有没有都行

呵呵,趁兄弟在线,我抓紧再问个问题吧!

我把上面的问题引伸下:
如何统计网页"http://bbs.chinaunix.net/forumdisplay.php?fid=25"上所有字符"perl"的个数啊?
是否需要用system函数实现?
兄弟帮详细贴出来最好了,小弟细细琢磨琢磨,不明白的地方抓紧看相关资料,呵呵!

呵呵，不好意思，我对CGI那块我不熟，我主要应用在系统方面，不过应该不难，好好看看书就行

你可以把网页的源代码弄下来放到一个.txt的文档里

貌似用if的话会有错误呢，一行要有很多"Perl"的话只会计算一个用while的话就没问题了，我这试验得出来结果

#!/usr/bin/perl -w
use strict;
my $i=0;
open (FILE,"file") or die "$!";
while(my $line=<FILE>){
my $sum=0;
        while($sum!=-1){
                $sum=index($line,"perl",$sum+length($sum));
                $i++ if($sum!=-1);
        }
}
print "$i\n";
close FILE;

回8楼兄弟,你说的对啊!我也测试了下,一行有多个"perl"字符时,只算一次的.
怎么会这样啊?2#兄弟的程序似乎真有点问题啊!
用if($_=~/perl/gi);有什么问题?
请大家帮解答,谢谢!