Data::Wheren使ってみた。

gistfile1.pl

use strict;
use warnings;
use Data::Wheren::7Bit;

sub say {
    print @_, "\n";
}

my $wheren = Data::Wheren::7Bit->new;
my $lat = 35.3137;
my $lon = 139.4863;
my $epoch_time = time;
my $level = 7;

my $hash = $wheren->encode( $lat, $lon, $epoch_time, $level );
($lat, $lon, $epoch_time) = $wheren->decode( $hash );
say $lat;
say $lon;
say $epoch_time;