는 펄에서 오는 시대의 어떤을 계산하는 숫자를 분할하지하는 방법

Question

#! /usr/bin/perl 
use strict; 
use warnings; 
my @array = ('0'..'9'); 
print "Enter the inp No's : "; 
while (($inp = <STDIN>) cmp "\n"){ 

} 

앵거스> 펄 no.pl INP 번호의 입력 : 12123213123

나는 각 더 온다 얼마나 많은 시간을 찾기 위해 노력하고 있습니다를 모든 자릿수의 합계. 각 자릿수를 나누고 그 자리를 찾는 방법

Answer 1

$ inp를 선언하지 않았습니다. 또한 cmp의 사용법이 이상하고 단순한 ne이 동일하게 작동하며 누구도 혼동하지 않을 것입니다.

당신은 split의 빈 패턴을 사용하여 문자로 문자열을 분할 한 후 해시에 발생의 수를 셀 수 :

#!/usr/bin/perl 
use warnings; 
use strict; 

print "Enter the inp No's : "; 
while ((my $inp = <STDIN>) ne "\n"){ 
    my %digits; 
    $digits{$_}++ for split //, $inp; 
    for (0 .. 9) { 
     print "$_ ", $digits{$_} || 0, "\n"; 
    } 
} 

정식 방법은, 그래도 tr 연산자를 사용하는 것입니다. 보간하지 않기 때문에 변수 값을 얻기 위해 eval을 사용해야합니다.

#!/usr/bin/perl 
use warnings; 
use strict; 

print "Enter the inp No's : "; 
my %digits; 
while ((my $inp = <STDIN>) ne "\n"){ 
    for (0 .. 9) { 
     my $n = eval "\$inp =~ tr/$_//"; 
     print "$_ $n\n"; 
    } 
}