X-SEO > 技術メモ > Perl > 変換 > 単位 > mm -> inch

Perl

mm -> inch

#===========================================================================*
# プログラム名  : mm -> inch                                                *
# プログラムID  : Mm_Inch                                                   *
# 使用例        : &Mm_Inch($_[0]);                                          *
#---------------------------------------------------------------------------*
# 入力引数[0]   : サイズ（単位 : mm）                                       *
#---------------------------------------------------------------------------*
# 出力引数[0]   : サイズ（単位 : inch）                                     *
#===========================================================================*
sub Mm_Inch {
    return sprintf("%.2f",($_[0] / 25.4));
}