File: filter-harmonics.pl

package info (click to toggle)
xtide-data 20040203-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,764 kB
  • ctags: 1
  • sloc: makefile: 31; perl: 30; sh: 9
file content (20 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

# filter-harmonics.pl - Remove data that are already included with the 
#                       XTide package.
#
# Peter S Galbraith, march 2001

while (<>) {
    if (/^# 1 +941-4750 Alameda/) {
        $done = 1;
        while(<>) {
  	    last if /^# Merged from harmonics./;
        }
    } else {
        print $_;
    }
}
if (! defined($done)) {
    print STDERR "Warning. Alameda data _not_ stripped out.";
}