最新記事

カテゴリ

全記事(数)表示

全タイトルを表示

リンク

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

関連記事一覧

読み込み中


カテゴリ「スポンサー広告」の記事一覧

数値3桁ごとにカンマで区切る

数値3桁ごとにカンマで区切る方法について記載します。

my $number=123456;
print "桁区切りなし:$number\n";
my $digit_number = put_digit($number);
print "桁区切りあり:$digit_number\n";

# サブルーチン:数値3桁ごとにカンマで区切る
sub put_digit{
 my $number = shift;
 while ($number =~ s/^([-+]?\d+)(\d\d\d)/$1,$2/){1}
 return $number;
}

 

実行すると以下の様になるかと思います。

桁区切りなし:123456
桁区切りあり:123,456

 

以上。

スポンサーサイト

関連記事一覧

読み込み中

タグ : perl


カテゴリ「perl」の記事一覧

前の記事≫IO:Fileでファイルの読み込み、書き込みを行う
次の記事≫ApacheでRefererによるアクセス制限の方法


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。