Perlについての質問箱 37箱目

Perlについての質問箱 37箱目at TECH

Perlについての質問箱 37箱目 - 暇つぶし2ch596:デフォルトの名無しさん
08/09/04 22:35:28
>>593
1 while s/^([-+]?\d+)(\d\d\d)/$1,$2/;