A-Z와 a-z만을 포함하는 단어를 어떻게 계산합니까? 우선 좋아

Question

은 여기 내 코드입니다 :

#!/usr/bin/perl 

use open qw(:utf8 :std); 

use utf8; 

print "Which file do you want to search?\n"; 

$file = <>; 

if ($file =~ /^\s*$/) { 
    $file = "test.txt"; 
} 

open (FILE, $file) or die("Could not open file."); 

%hash; 

while (<FILE>) { 
    $hash{$_}++ for split /\W+/; 
} 

$count = 0; 

for (sort { 
     $hash{$b} <=> $hash{$a} 
        || 
      lc($a) cmp lc($b) 
        || 
       $a cmp $b 
    } keys %hash) 

{ 
    next unless /\w/; 
    printf "%-20s %5d\n", $_, $hash{$_} if ($count <= 9); 
    $count++; 
} 

난 단지 단지 A-Z와 A-Z를 포함하는 단어를 계산하고 싶지만,이 코드는 숫자를 계산합니다. 나는 무엇을해야만 하는가? 당신이 볼 수 있듯이

Car      18 
5      11 
Test     11 
Task     10 
Perl      7 
School     6 
Hi      5 
Tired     5 
Word      4 
bye      3 

, 숫자 5가 나열되어 일이 안된다

이

은 출력의 예입니다.

감사합니다.

Answer 1

++$hash{$_} for grep /^[a-zA-Z]+\z/, split /\W+/; 

물론 문자 만 포함 된 단어 일 가능성이 높습니다.

++$hash{$_} for grep /^\pL+\z/, split /\W+/;