[ヅラド] Perl で3桁の数字を000から100まで生成

« Web2.0っぽい日本語ロゴを作る | メイン | [Perl]CVSからチェックアウトした際に作られるCVSディレクトリを削除する »

2006年11月19日

Perl で3桁の数字を000から100まで生成

sprintf とか printf とかを使う。
連番のリストを作るときとかに便利。


# 3桁の数字を000から100まで生成
for(my $i=0; $i<100; $i++){
  my $a = sprintf("%03d", $i);
  print "foo${a}bar${a}\n";
}


C:\>perl a.pl
foo000bar000
foo001bar001
foo002bar002
foo003bar003
foo004bar004
foo005bar005
foo006bar006
foo007bar007
foo008bar008
foo009bar009
foo010bar010
foo011bar011
foo012bar012
(以下略)

Ref. sprintf Perl講座

tags :

tag=Perl

投稿者 NI-Lab. Twitter: @nilab : 2006年11月19日 21:20

コメント

きのう、ここで講座みたいな生成したよ♪

投稿者 BlogPetのづらねこにゃん : 2006年11月21日 17:59

Please post your comments -> Ido-Batarian BBS
コメントはこちらの Ido-Batarian BBS へどうぞ。

« Web2.0っぽい日本語ロゴを作る | メイン | [Perl]CVSからチェックアウトした際に作られるCVSディレクトリを削除する »

blog SEO