Syrone Wong
8310e13be3
The perl version takes two seconds while the python version takes more than 30 seconds Usage: perl ./gen.pl < chnroute.txt > chnroute-merged.txt Signed-off-by: Syrone Wong <wong.syrone@gmail.com>
13 lines
280 B
Perl
Executable File
13 lines
280 B
Perl
Executable File
#!/usr/bin/env perl
|
|
## ArchLinux install package via pacman: perl-net-cidr-lite
|
|
use strict;
|
|
use warnings;
|
|
use Net::CIDR::Lite;
|
|
my $cidr = Net::CIDR::Lite->new;
|
|
while (my $line=<>) {
|
|
$cidr->add($line);
|
|
}
|
|
foreach my $line( @{$cidr->list} ) {
|
|
print "<item>$line</item>\n";
|
|
}
|