任意の桁数に足りない部分をゼロで埋める

sPrintf を使うと簡単です。

テスト環境

Windows XP Professional Service Pack 3
ActivePerl 5.8.8 Build 822
Encode-2.33

サンプル コード

#!/usr/local/bin/perl

use strict;

# 変数の設定
my $random = 0;

# ランダムな整数を生成
my $random = int(rand(65536));

# 桁数を固定
$random = sprintf("%05d", $random);

print $random;

65536 までの整数が、5 桁で出力されます。
rand を使っているため、出力される数は不定です。

sprintf("%5d", $random) とゼロを抜かして記述すると、足りない桁をゼロではなく空白で埋めます!?


Powered by NIVOSIdE

今後 Google Analytics によるアクセス解析に記録を残さない