哪位大神帮我解读下这个代码，感谢！

hejianbu437

这个代码是netstat 的连接状态个数的统计，它是咋运行的，下面的代码帮忙拆解下。

1. nestat -n | perl -lane '$h{$F[5]++ if /tcp.*/;END {print "$_=>$h{$_}}" for keys %h}'

复制代码

yestreenstars

你发的代码有问题，应该是酱才对：

1. netstat -n | perl -lane '$h{$F[5]}++ if /tcp/;END{print "$_ => $h{$_}" for keys %h}'

复制代码

其大概的作用是统计协议为tcp的状态和状态出现的次数。

hejianbu437

回复 2# yestreenstars

恩，感谢！
代码是怎么样运行的能帮我解释下吗？


   

yestreenstars

回复 3# hejianbu437
对每一行执行$h{$F[5]}++ if /tcp/，如果匹配到tcp协议，就将$F[5]（也就是状态）存入哈希数组，并自增1；
在脚本的最后执行END{print "$_ => $h{$_}" for keys %h}，通过for循环读取哈希数组的各个键和值。
   

hejianbu437

回复 4# yestreenstars

明白了，非常感谢你！！！