討論 - 二道問題考考大家

[Chin-Wei]

老是在回答 FAQ 等級的問題大家應該也會膩吧 ^^a
今天小老弟就出二道題目考考大家~ 一起來歡樂吧(?)

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



第一大題：
請分析下列文章中的各個英文單字出現的頻率，並將出現頻率最高的三個單字輸出至螢幕。
輸出格式為： 頻率<TAB or Space>單字

WASHINGTON - Gerald R. Ford was a man of limited ambition who, through bizarre circumstances never before experienced by the country, 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 comfortable in the House, representing a Michigan congressional district for 25 years, rising to Republican leader and working toward his dream of one day running the chamber, when President Nixon called.He needed a new vice president; scandal had chased Spiro Agnew from the office.Ford wasn't Nixon's first choice, but the president 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 December 1973.Yet eight months later, the scenario got even stranger.

第二大題：
uucp:x:12:14:Adrian W. Jones/OFFICE_01/TEL_NUM_01
operator:x:13:0:Dorothy Gale/OFFICE_02/TEL_NUM_02
games:x:12:140:John Hancock/OFFICE_03/TEL_NUM_03

請將上述資料紅色的部份，擷取並輸出至暫存檔(eg.tmp.txt)，內容為：
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
（必須依照人名順序排列）



＝＝
解不出來要打屁屁喔~都很簡單的ㄋㄟ~
我當然知道怎麼解不然我哪敢問

[飛鳥]

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


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

多做了幾個步驟啦，哈~

[snoopy]

import java.util.Arrays;

public class Slime {
	public static void main(String[] args) {
		String src = "WASHINGTON - Gerald R. Ford was a man of limited ambition who, through bizarre circumstances never before experienced by the country, 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 comfortable in the House, representing a Michigan congressional district for 25 years, rising to Republican leader and working toward his dream of one day running the chamber, when President Nixon called.He needed a new vice president; scandal had chased Spiro Agnew from the office.Ford wasn't Nixon's first choice, but the president 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 December 1973.Yet eight months later, the scenario got even stranger.";
		String[] array = src.replaceAll("\\W", " ").split("\\s+");
		Arrays.sort(array);
		int n = 1;
		for (int i = 0; i < array.length - 1; i++) {
			if (array[i].equals(array[i + 1])) {
				n++;
			} else {
				System.out.println(n + " " + array[i]);
				n = 1;
			}
		}
	}
}

輸出

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

[snoopy]

import java.util.Arrays;

public class Slime {
	public static void main(String[] args) {
		String str1 = "uucp:x:12:14:Adrian W. Jones/OFFICE_01/TEL_NUM_01";
		String str2 = "operator:x:13:0:Dorothy Gale/OFFICE_02/TEL_NUM_02";
		String str3 = "games:x:12:140:John Hancock/OFFICE_03/TEL_NUM_03";
		str1 = str1.substring(str1.lastIndexOf(":")+1,str1.length()).replaceAll("/", "\t");
		str2 = str2.substring(str2.lastIndexOf(":")+1,str2.length()).replaceAll("/", "\t");
		str3 = str3.substring(str3.lastIndexOf(":")+1,str3.length()).replaceAll("/", "\t");
		String[] str = {str1,str2,str3};
		Arrays.sort(str);
		for(int i=0;i<3;i++)
			System.out.println(str[i]);
	}
}

名字沒有多加處理
看不太懂 rule
不過那個也不難 加一個 method
call一下 大概多兩三行而已

[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

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

[Chin-Wei]

作者: snoopy

名字沒有多加處理
看不太懂 rule
不過那個也不難 加一個 method
call一下 大概多兩三行而已

不對，你和阿鳥的答案都不對，要再加油喔 ^^

[Chin-Wei]

大家要加油啊~ 這二題基本題解決了，偶才能接著問進階實戰題型啊 XD

[Chin-Wei]

作者: snoopy

[code]
import java.util.Arrays;

public class Slime {
public static void main(String[] args) {
String src = "WASHINGTON - Gerald R. Ford was a man of limited ambition who, through bizarre circumstances never before experienced by the country, 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 comfortable in the House, representing a Michigan congressional district for 25 years, rising to Republican leader and working...

要排序啦 XD >__<

別和阿鳥一樣偷懶咩 XD

[飛鳥]

那有，我明明就可以

[root@moonlight-glass root]# cat 123.txt
uucp:x:12:14:AdrianW. Jones/OFFICE_01/TEL_NUM_01
operator:x:13:0orothy Gale/OFFICE_02/TEL_NUM_02
games:x:12:140:John Hancock/OFFICE_03/TEL_NUM_03
[root@moonlight-glass root]#
[root@moonlight-glass root]#
[root@moonlight-glass root]#
[root@moonlight-glass root]# cat 123.txt |tr " " %|tr : " "|awk '{print $5}'|tr % " "|tr / " "|awk '{print $2","$1"\t"$3"\t"$4}'|sort
Gale,Dorothy OFFICE_02 TEL_NUM_02
Hancock,John OFFICE_03 TEL_NUM_03
Jones,AdrianW. OFFICE_01 TEL_NUM_01

[Chin-Wei]

作者: 飛鳥

那有，我明明就可以

阿鳥的輸出格式有誤......
仔細看，不太正確，讓空白的地方沒有空白，不該有逗點的地方卻有逗點 ^_^


泥的答案在偶的機子上跑出來的結果...
====
Gale,Dorothy OFFICE_02 TEL_NUM_02
Hancock,John OFFICE_03 TEL_NUM_03
W.,Adrian Jones OFFICE_01
====





==
這二大題難就難在輸出格式，如果大家都不照格式去寫，那這就失去它的意義
總之，該排序的地方就要排序，格式要注意的地方就得注意，不然偶就白問了 = =a

[飛鳥]

我用手打錯，是
Adrian W. Jones

我打
AdrianW. Jones

少一個白鍵

[Chin-Wei]

作者: 飛鳥

我用手打錯，是
Adrian W. Jones

我打
AdrianW. Jones

少一個白鍵

阿鳥的答案在偶的機子上跑出來是長這樣耶...

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


還是 portability 的問題?