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); retu…