repo.or.cz
/
tomato
/
davidwu.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Correct PPTP server firewall rules chain.
[tomato/davidwu.git]
/
release
/
src
/
router
/
openssl
/
crypto
/
lhash
/
num.pl
blob
30fedf9cd5ad8ae6e83fb290d572041bb7129fa9
1
#!/usr/local/bin/perl
2
3
#node 10 -> 4
4
5
while
(<>)
6
{
7
next unless
/^node/
;
8
chop
;
9
@a
=
split
;
10
$num
{
$a
[
3
]}++;
11
}
12
13
@a
=
sort
{
$a
<=>
$b
}
keys
%num
;
14
foreach
(
0
..
$a
[
$#a
])
15
{
16
printf
"
%4d
:
%4d
\n
"
,
$_
,
$num
{
$_
};
17
}