Correct PPTP server firewall rules chain.
[tomato/davidwu.git] / release / src / router / openssl / crypto / lhash / num.pl
blob30fedf9cd5ad8ae6e83fb290d572041bb7129fa9
1 #!/usr/local/bin/perl
3 #node 10 -> 4
5 while (<>)
7 next unless /^node/;
8 chop;
9 @a=split;
10 $num{$a[3]}++;
13 @a=sort {$a <=> $b } keys %num;
14 foreach (0 .. $a[$#a])
16 printf "%4d:%4d\n",$_,$num{$_};