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

プログラミングのお題 ..

81:デフォルトの名無しさん
20/04/04 00:40:59 oi+wB/l2.net
>>72 Perl5

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

実行結果
~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80

次ページ

続きを表示

1を表示