Perl的正则表达式问题2

Question

我有命令解析列表...

，如：

> ls -lart 
> ls 
> ls /etc/passwd 
> ping 
> ping 127.0.0.1 
> PING 
> LS 

我都数不过来了执行时间LS和ping的数量，我必须不计像LS和PING大写变体，但我必须计数命令启动选项，如“ls -lart”

如何检查一行是否包含确切的单词ls或ping或其他？

用正则表达式!!!

感谢，

Answer 1

my $count = 0; 

while (<STDIN>) { 
    m/^\s*(ls|ping).*$/; 
    $count++ if $1; 
}