9 lines
397 B
Perl
9 lines
397 B
Perl
|
#!/usr/bin/perl -nl
|
||
|
|
# print the name and number of records in each non-empty ipset
|
||
|
|
#(c)2026 Corwin Brust <corwin@bru.st>
|
||
|
|
# You may use this program under the terms of the GNU Public License version three (3) or, at your option, any later version of that license. (GPLv3+)
|
||
|
|
sub p{ print qq($n $c) if $n and $c }
|
||
|
|
if ( /^create (\S+)/ ) { p(); $c=0; $n=$1 } else { ++$c if $n and /^add/ }
|
||
|
|
END{ p() }
|
||
|
|
|