X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=a2b3c374210cccde478f048baa421e5ea2f24270;hb=51fc2b9134d2e3bf91daf970c36bb8a80590e34f;hp=edfc3a0c1c548c17dcdbd8d5ac08dee4e4e8b6b6;hpb=43aae2e09b38a7a275516be724a718b894b7c492;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index edfc3a0c..a2b3c374 100755
--- 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;