X-SEO > 技術メモ > Perl > 変換 > 単位 > g -> oz

Perl

g -> oz

#===========================================================================*
# プログラム名  : g -> oz                                                   *
# プログラムID  : G_Oz                                                      *
# 使用例        : &G_Oz($_[0]);                                             *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 重量（単位 : g）                                          *
#---------------------------------------------------------------------------*
# 出力引数[0]   : 重量（単位 : oz）                                         *
#===========================================================================*
sub G_Oz {
    return sprintf("%.2f",($_[0] / 28.3495));
}