From 8310e13be3a5a9b0052bb5ae0a335c0c68da60bb Mon Sep 17 00:00:00 2001
From: Syrone Wong <wong.syrone@gmail.com>
Date: Sat, 7 May 2016 08:29:15 +0800
Subject: [PATCH] add a perl script to generate chnroute (#676)

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>
---
 gfwlist/gen.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 gfwlist/gen.pl

diff --git a/gfwlist/gen.pl b/gfwlist/gen.pl
new file mode 100755
index 00000000..a9f21976
--- /dev/null
+++ b/gfwlist/gen.pl
@@ -0,0 +1,12 @@
+#!/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";
+}