[飛鳥]

先做一題的一部份
有空再繼續


使用perl寫，可在windows及linux下 running
perl程式：

#!/usr/bin/perl

print "請輸入要分析英文單字出現的頻率：";
my $line=<>; #從標準輸入，放入變數$line
print "\n";
chomp $line; #去除輸入最後的換行字元
$line=~s/\,/ /g; #符號整理
$line=~s/\./ /g; #符號整理
$line=~s/\!/ /g; #符號整理
$line=~s/\?/ /g; #符號整理
$line=~s/\;/ /g; #符號整理
$line=~s/\:/ /g; #符號整理
$line=~s/\"/ /g; #符號整理
$line=~s/\'/ /g; #符號整理
$line=~s/ / /g; #整理多餘空白鍵
$line=~s/ / /g; #整理多餘空白鍵

my @arrr;
@arrr=split(/ / , $line); #把文章，以空白鍵作分開單字的關鍵，放入陣列中


my @repeat;

for (my $i=0;$arrr[$i];$i++){

for (my $j=0;$arrr[$j];$j++){
$repeat[$i][0] = $arrr[$i];
$repeat[$i][1] = $repeat[$i][1] + 1 if ($arrr[$i] eq $arrr[$j]); #比對單字，出現一次寫入$repeat二維陣列中
}

}

#print出所有單字出現的次數
for (my $i=0;$arrr[$i];$i++){
print "$arrr[$i] 出現了 $repeat[$i][1] 次\n";
}




$line=<>;

執行結果：

請輸入要分析英文單字出現的頻率：WASHINGTON - Gerald R. Ford was a man of limited
ambition who, through bizarre circumstances never before experienced by the cou
ntry, achieved an office that others win through the greatest determination and
calculation. The nation's 38th president, Ford wanted only to become speaker of
the House. History had another place for him. ADVERTISEMENT　Ford was comfortabl
e in the House, representing a Michigan congressional district for 25 years, ris
ing to Republican leader and working toward his dream of one day running the cha
mber, when President Nixon called.He needed a new vice president; scandal had ch
ased Spiro Agnew from the office.Ford wasn't Nixon's first choice, but the presi
dent agreed that the amiable Republican would be the easiest to win confirmation
by both houses of Congress. So it went, and Ford became vice president in Decem
ber 1973.Yet eight months later, the scenario got even stranger.

WASHINGTON 出現了 1 次
- 出現了 1 次
Gerald 出現了 1 次
R 出現了 1 次
Ford 出現了 4 次
was 出現了 2 次
a 出現了 3 次
man 出現了 1 次
of 出現了 4 次
limited 出現了 1 次
ambition 出現了 1 次
who 出現了 1 次
through 出現了 2 次
bizarre 出現了 1 次
circumstances 出現了 1 次
never 出現了 1 次
before 出現了 1 次
experienced 出現了 1 次
by 出現了 2 次
the 出現了 10 次
country 出現了 1 次
achieved 出現了 1 次
an 出現了 1 次
office 出現了 2 次
that 出現了 2 次
others 出現了 1 次
win 出現了 2 次
through 出現了 2 次
the 出現了 10 次
greatest 出現了 1 次
determination 出現了 1 次
and 出現了 3 次
calculation 出現了 1 次
The 出現了 1 次
nation 出現了 1 次
s 出現了 2 次
38th 出現了 1 次
president 出現了 4 次
Ford 出現了 4 次
wanted 出現了 1 次
only 出現了 1 次
to 出現了 3 次
become 出現了 1 次
speaker 出現了 1 次
of 出現了 4 次
the 出現了 10 次
House 出現了 2 次
History 出現了 1 次
had 出現了 2 次
another 出現了 1 次
place 出現了 1 次
for 出現了 2 次
him 出現了 1 次
ADVERTISEMENT　Ford 出現了 1 次
was 出現了 2 次
comfortable 出現了 1 次
in 出現了 2 次
the 出現了 10 次
House 出現了 2 次
representing 出現了 1 次
a 出現了 3 次
Michigan 出現了 1 次
congressional 出現了 1 次
district 出現了 1 次
for 出現了 2 次
25 出現了 1 次
years 出現了 1 次
rising 出現了 1 次
to 出現了 3 次
Republican 出現了 2 次
leader 出現了 1 次
and 出現了 3 次
working 出現了 1 次
toward 出現了 1 次
his 出現了 1 次
dream 出現了 1 次
of 出現了 4 次
one 出現了 1 次
day 出現了 1 次
running 出現了 1 次
the 出現了 10 次
chamber 出現了 1 次
when 出現了 1 次
President 出現了 1 次
Nixon 出現了 2 次
called 出現了 1 次
He 出現了 1 次
needed 出現了 1 次
a 出現了 3 次
new 出現了 1 次
vice 出現了 2 次
president 出現了 4 次
scandal 出現了 1 次
had 出現了 2 次
chased 出現了 1 次
Spiro 出現了 1 次
Agnew 出現了 1 次
from 出現了 1 次
the 出現了 10 次
office 出現了 2 次
Ford 出現了 4 次
wasn 出現了 1 次
t 出現了 1 次
Nixon 出現了 2 次
s 出現了 2 次
first 出現了 1 次
choice 出現了 1 次
but 出現了 1 次
the 出現了 10 次
president 出現了 4 次
agreed 出現了 1 次
that 出現了 2 次
the 出現了 10 次
amiable 出現了 1 次
Republican 出現了 2 次
would 出現了 1 次
be 出現了 1 次
the 出現了 10 次
easiest 出現了 1 次
to 出現了 3 次
win 出現了 2 次
confirmation 出現了 1 次
by 出現了 2 次
both 出現了 1 次
houses 出現了 1 次
of 出現了 4 次
Congress 出現了 1 次
So 出現了 1 次
it 出現了 1 次
went 出現了 1 次
and 出現了 3 次
Ford 出現了 4 次
became 出現了 1 次
vice 出現了 2 次
president 出現了 4 次
in 出現了 2 次
December 出現了 1 次
1973 出現了 1 次
Yet 出現了 1 次
eight 出現了 1 次
months 出現了 1 次
later 出現了 1 次
the 出現了 10 次
scenario 出現了 1 次
got 出現了 1 次
even 出現了 1 次
stranger 出現了 1 次

先這樣，忙一下，前三名等等再用