討論 - 二道問題考考大家

[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 的魔力 ^^?