add prototype UDP handler

[spider.git] / perl / create_prefix.pl

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index edfc3a0c1c548c17dcdbd8d5ac08dee4e4e8b6b6..a2b3c374210cccde478f048baa421e5ea2f24270 100755 (executable)
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -215,7 +215,10 @@ sub ct
                my $a;
                foreach $a (@a) {
                        # for now remove (nn) [nn]
-                       $a =~ s/(?:\(\d+\)|\[\d+\])//g;
+                       my ($itu) = $a =~ /(\(\d+\))/; $a =~ s/(\(\d+\))//g;
+                       my ($cq) = $a =~ /(\[\d+\])/; $a =~ s/(\[\d+\])//g;
+                       my ($lat, $long) = $a =~ m{(<[-+\d.]+/[-+\d.]+>)}; $a =~ s{(<[-+\d.]+/[-+\d.]+>)}{}g;
+
                        unless ($a) {
                                print "line $line: blank prefix on $l in cty.dat\n";
                                next;