インチ⇔ピクセル変換 - Perl

前提知識

1インチは何センチ？: 1インチ＝2.54cm
dpiとは？: 『Dot Per Inch (dot/inch)』の略称で、1インチに何ドット集まっているかという単位。72dpiなら、1インチ(2.54cm)に72個のドットが集まっていることになる。
ピクセルをcmに変換するには？: ピクセル／解像度(dpi)　×　2.54　＝　cm
cmをピクセルに変換するには？: （cm × 解像度）／2.54＝ピクセル

前提知識
サンプル

サンプル

use constant INCH => 2.54;

#------------------------------------------------
#ピクセル,解像度＝cm
#------------------------------------------------
sub pixel2cm{
    my $pix = shift;
    my $kaizoudo = shift;

    return(
        $pix / $kaizoudo * INCH
    );
}


#------------------------------------------------
#cm,解像度＝ピクセル
#------------------------------------------------
sub cm2pixel{
    my $cm = shift;
    my $kaizoudo = shift;

    return(
        ($cm * $kaizoudo) / INCH
    );
}