プログラミングのお題スレ Part17

[0080 デフォルトの名無しさん 2020/04/04(土) 00:43:04.52 ID:7bsK3hPl]

>>79 いや、([\d])は(\d)で十分だた…

for $a (qw{090 0080 123 0 000}) {
　($b = $a) =~ s/^0*(\d)/$1/;
　print "$a → $b\n"
}