http://www.perlmonks.org?node_id=1025618


in reply to Display tide based on time now.

Works for me, or at least generates the following output which I guess is right:


 2013/03/27, 03:35 PM - Now in Seconds is: 1364351700
 Test: High Tide at: 12:21 AM
 Test: Low Tide at: 06:20 AM
 Test: High Tide at: 12:50 PM
 Test: Low Tide at: 06:39 PM

 Option 3

[download]

Note that I changed the file read line to:

local $/;
my $data = $xml->XMLin(<DATA>);

[download]

and put the data in a __DATA__ block to save generating a file in addition to the script.

True laziness is hard work

In Section Seekers of Perl Wisdom