数字の3桁ごとにカンマを入れる $num = '123456789';
while ($num =~ s/([^,]+)(\d{3})/$1,$2/) {
}
print "$num\n";
|
|
数字の3桁ごとにカンマを入れる $num = '123456789';
while ($num =~ s/([^,]+)(\d{3})/$1,$2/) {
}
print "$num\n";
|
|