X-SEO > 技術メモ > Perl > 変換 > 位取コンマ挿入

Perl

位取コンマ挿入

#===========================================================================*
# プログラム名  : 位取コンマ挿入                                            *
# プログラムID  : Comma                                                     *
# 使用例        : &Comma($_[0]);                                            *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 数値  （例 : 19800）                                      *
#---------------------------------------------------------------------------*
# 出力引数[0]   : 文字列（例 : 19,800）                                     *
#===========================================================================*
sub Comma {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = $_[0];        # 戻り値用変数
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    1 while $RtnValue =~ s/(.*\d)(\d\d\d)/$1,$2/;
    #-------------------------------*
    return $RtnValue;
}