47
|
1 |
#======================================================================
|
|
2 |
# L I B W A T E R D E P T H . P L
|
|
3 |
# doc: Mon Feb 7 16:06:56 2022
|
|
4 |
# dlm: Mon Feb 7 16:20:09 2022
|
|
5 |
# (c) 2022 A.M. Thurnherr
|
|
6 |
# uE-Info: 10 27 NIL 0 0 70 0 2 4 NIL ofnI
|
|
7 |
#======================================================================
|
|
8 |
|
|
9 |
# HISTORY:
|
|
10 |
# Feb 7, 2022: - created
|
|
11 |
|
|
12 |
sub waterdepth(@)
|
|
13 |
{
|
|
14 |
my($lon,$lat) = &antsFunUsage(2,"ff","lon, lat",@_);
|
|
15 |
open(my $F, "-|", "waterdepth $lon $lat") || croak("waterdepth: $!\n");
|
|
16 |
my($wd);
|
|
17 |
chomp($wd = <$F>);
|
|
18 |
croak("Cannot decode waterdepth output ($wd)\n")
|
|
19 |
unless numberp($wd);
|
|
20 |
close($F);
|
|
21 |
return $wd;
|
|
22 |
}
|
|
23 |
|
|
24 |
1;
|