Acme::Hyde
Tブログ 1hyde 156cm
てきとう。
package Acme::Hyde; use warnings; use strict; use POSIX; use base qw/Exporter/; our @EXPORT = qw/to_hyde from_hyde/; our $VERSION = 0.01; sub to_hyde { my $cm = shift; my $hyde = sprintf("%.2f",$cm/156); return $hyde; } sub from_hyde { my $hyde = shift; my $cm = ceil($hyde*156); return $cm; } 1;