討論 - 二道問題考考大家

[飛鳥]

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


使用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 次

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

[Chin-Wei]

作者: 飛鳥

#!/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=<>;

Perl 不愧是用來處理字串專用的程式語言，能夠在這麼短短的幾行就解決確實名不虛傳
阿鳥老大 BASH 熟嗎？BASH 熟的話在處理很多東西會很方便喔~ ^_^
例如這題用 BASH 來解，只要...... 一行

cat "文章內容"|tr A-Z a-z|tr -c [^a-z] '\n'|grep -v ^$|sort|uniq -c|sort -k1,1nr|head -n 3

輸出結果：

　　　11 the
　　　5 ford
　　　5 president

第二題會比較刺激喔~~~
期待 Perl 的精彩演出~







====

可能有人覺得第一道題目很沒意義，我換個方式說大伙就知道這個可以用來做什麼。

題目：
請在 /var/log/secure LOG檔中找出嘗試入侵主機超過10次的IP，並在Firewall中封鎖該IP。

大伙是不是也漸漸感受到 BASH 的魔力 ^^?

[飛鳥]

不算不算，又沒說可以用bash



嚴格來說，bash依賴作業系統，不能獨立於軟體，這一次不算數，第二題我也要用bash > <

第二題

cat xxx.txt |tr " " %|tr : " "|awk '{print $5}'|tr % " "|tr / " "|awk '{print $2","$1"\t"$3"\t"$4}'|sort

多做了幾個步驟啦，哈~

[Chin-Wei]

作者: 飛鳥

不算不算，又沒說可以用bash

嚴格來說，bash依賴作業系統，不能獨立於軟體，這一次不算數，第二題我也要用bash > <

偶有說耶 ...... ↓↓↓↓↓↓↓↓↓↓

不限任何程式語言，歡迎大家來挑戰，雖然就算解出來了也沒獎品就是了 = =a

阿鳥老大別哭喔.... 團長給泥秀秀

[Chin-Wei]

作者: 飛鳥

第二題

多做了幾個步驟啦，哈~

阿鳥老大..... 第二題錯了 =.=

阿鳥的答案跑出來的結果:

Gale,Dorothy OFFICE_02 TEL_NUM_02
Hancock,John OFFICE_03 TEL_NUM_03
W.,Adrian Jones OFFICE_01

(紅色的部份有錯)


但題目要求的是:

Gale, Dorothy　　　<TAB>OFFICE_02<TAB>TEL_NUM_02
Hancock, John　　<TAB>OFFICE_03<TAB>TEL_NUM_03
Jones, Adrian W.　<TAB>OFFICE_01<TAB>TEL_NUM_01

阿鳥老大再接再力 ^^
如果這題這麼簡單偶就不會問了喔..........