projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add command
[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]
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;
unless ($a) {
print "line $line: blank prefix on $l in cty.dat\n";
next;