perl regexp问题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;
}