文字列内の数字の出現回数を数える

明解Ｃ言語 入門編 > 9. 文字列の基本 >

文字列内の数字の出現回数を数える

Perl

@cnt = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
$str = "3.1415926535897932846";

foreach $char(split(//, $str))
{
    $cnt[$char]++ if (("0" le $char) && ($char le "9"));
}

$i = 0;
foreach $char(@cnt)
{
    printf("'%d' : %d\n", $i++, $char);
}

実行結果

L:\>perl lesson_09_074.pl

'0' : 0

'1' : 2

'2' : 2

'3' : 3

'4' : 2

'5' : 3

'6' : 2

'7' : 1

'8' : 2

'9' : 3