※ 引述《rosa9883 (風雨寶貝)》之銘言： : 標題: Re: [討論] 大家夢想中4人小隊 (開票統計)截止 : 時間: Wed Feb 4 00:06:20 2009 : 統計結束...大家都好踴躍唷... : 很多不是火影的角色都出來了... : 出現人物排名(公佈前五名) : 第一名: 卡卡西 : 第二名: 鹿丸 : 第三名: 鋼手 : 第四名: 自來也師徒(自來也+鳴人 榮獲雙榜) 鼬 : 第五名: 第四代火影(波風湊) : 推 puppy8224:我想要看其他人物的統計( ‵□′)───C＜─___-)||| 02/04 02:23 剛剛順手用 Perl 寫了一個小程式，把大家推文的人名出現次數統計了一下 因為大家推得很隨性，所以我也只抓兩種樣式，比對名字出現的次數 Name_A + Name_B + Name_C + Name_D Name_A、Name_B、Name_C、Name_D 16 雛田 15 鼬 13 鳴人 12 卡卡西 11 我 10 兩津 08 綱手 08 悟空 07 鹿丸 07 自來也 07 四代 06 岸本 05 紅 04 超賽四 04 熊貓人 04 小李 04 寧次 04 富堅 04 佐助 03 魯夫 03 靚 03 雜魚 03 致 03 肛手 03 班 03 珍 03 扁 03 我愛羅 03 悟飯 03 小叮噹 03 四代火影 03 三代 02 鳥山明 02 香磷 02 阿凱 02 鋼手 02 金田一 02 達爾 02 路克 02 越前龍馬 02 蠍 02 紅豆 02 海綿寶寶 02 柯南 02 手鞠 02 左助 02 尾田 02 富奸 02 天天 02 大蛇丸 02 八支 02 九支 02 九尾 02 丁丁 02 一代 02 BT 01 黃x靚 01 麥當勞 01 鳴入 01 鬼塚英吉 01 高進 01 騙人布 01 香磷XD 01 香燐 01 香港 01 飛影 01 風間 01 鞋志 01 雷禪 01 雷姆 01 陳水扁 01 陳某 01 陳x扁 01 陳x中 01 阿神 01 阿波 01 阿星 01 阿拉 01 阿姆 01 阿呆 01 阿司瑪 01 阪田銀時 (我是殺手哥吉拉 13) 01 長門 01 金星仙子 01 金富力士 01 金 01 釋迦牟尼 01 鄉民 01 達美樂 01 迪達羅 01 迪西 01 軍訓教官 01 趙X銘 01 超級賽亞人4 01 超級賽亞人3 01 超級賽亞人2 01 超級賽亞人 01 賈基 01 貧乳 01 貝吉達 01 變態社長 (這種人有很多耶，廣三？) 01 許夢澤 01 計程車司機 01 言承旭 01 解師傅 01 補習班老師 01 蠟筆小新 01 蟹老闆 01 蛇姬 01 蘋乳 01 藏馬 01 藍染 01 蔣中証 01 蒼井空 01 萊爾富 01 荻原舞 01 草薙京 01 花媽 01 自摸 01 自來也~~ 01 胖虎 01 肯德基 01 聶風 01 耶穌 01 羅賓 01 羅德曼 01 絕 01 紹煒 (這是誰？) 01 紅音 01 紅中 01 筆記本 01 章魚哥 01 祭 01 神龍 01 神樂 01 皮朋 01 白 01 瓦哥 01 瑪莉亞 01 現任女友 01 王少萎 01 王人斧 01 玉皇大帝 01 猿野天國 01 特南克斯 01 無名 01 火星仙子 01 海底 01 派大星 01 泰莎 01 沒有被拿掉祭品之力的我愛羅 01 武騰蘭 01 步驚雲 01 正男 01 桑原 01 桂小太郎 01 柏油 01 李登輝 01 朱孝天 01 未來老婆 01 木葉丸 01 木星仙子 01 月光仙子 01 最強？君麻呂 01 星野 01 日向日足 01 新加坡 01 斑 01 撒旦 01 拉拉 01 我爸 01 我愛螺 01 我媽 01 愛田由 01 悟天克斯 01 志村新八 01 必勝客 01 彩女 01 彌海沙 01 強者我朋友 01 幽助 01 平乳 01 帶土 01 巨乳 01 左肋 01 左右 01 尼特羅會長 01 小要 01 小當家 01 小澤圓 01 小新 01 小刀 01 孫鞋子 01 孫中刪 01 字一色 01 妲己 01 奈良 01 天胡 01 大頭 01 大門五郎 01 大軍 01 大四喜 01 大嘴米勒 01 大三元 01 夢則 01 團長 01 團藏 01 團團圓圓 01 四郎 01 嘟嘟 01 嗚入 01 嗚人 01 喬丹 01 哆啦A夢 01 周渝民 01 吳建豪 01 吳x珍 01 吉澤明步 01 台灣 01 原PO 01 卡繆 01 卡卡膝 01 卡卡東 01 卡卡南 01 卡卡北 01 南韓 01 十強讀者 01 前女友 01 初戀女友 01 初代火影 01 六尾 01 八尾 01 兩津戡吉 01 全家 01 克勞薩 01 倉井空 01 倉井 01 佐井 01 仙人模式嗚人 01 人撫 01 井野 01 五暗刻 01 五代火影 01 五代 01 二階堂紅丸 01 二代火影 01 二代 01 九尾嗚人影分身 01 九尾嗚人 01 世界冠軍 01 不知火舞 01 下下 01 上上 01 三葫蘆 01 三代火影 01 三井 01 七尾 01 what's 01 Zitz 01 Tifa 01 Teixeira 01 Tamama 01 Rash 01 Pujols 01 Pimple 01 PTT 01 OK 01 Manny 01 LBJ 01 L 01 Kururu 01 Keroro 01 Giroro 01 FOXY 01 EM 01 Dark 01 DSL 01 CB 01 BDG 01 BA 01 A-Rod 01 7-11 01 5F 01 4代火影 01 3代火影 01 2胚 01 2代火影 01 2一張=收錢 01 23456同花 01 2)藍染 01 1代火影 01 1)兩津 程式是想到啥就寫啥的直覺式寫法 XD, GPL license 我把文章轉寄到 gmail 裏面，再複製推文內容到檔名為 list 的檔案裏面 1 #!/usr/bin/perl 2 3 %rate; 4 open FILE,"list"; 5 foreach(<FILE>) { 6 chomp; 7 my $content = $2 if($_=~m{(.*)\:(.+?)[\[\.]}); # ID:content [m 8 if($content =~m{(.+?)\+(.+?)\+(.+?)\+(.+?)\s+} || # Pattern: A+B+C+D 9 $content =~m{(.+?)、(.+?)、(.+?)、(.+?)\s+}) { # Pattern: A、B 、C、D 10 my @team = ($1, $2, $3, $4); 11 foreach (@team) { 12 my $temp = $_; 13 $temp =~ s/\s//g; 14 $temp =~ s/\(.*\)//g; # remove (comment) 15 $rate{$temp}++; 16 } 17 } 18 } 19 close FILE; 20 my @array; 21 while(my($key, $value)= each(%rate)) { 22 $value = "0$value" if($value < 10); 23 push(@array,"$value $key"); 24 } 25 foreach (reverse sort @array) {print "$_\n"}; -- 有一天小明跟朋友打牌，有張牌不小心掉進水裡。此時女神出現了 女神：「你掉的是這張紅中，還是這張白板？」 小明：「都不是，我掉的是青發。快還我吧大嬸，我缺那張牌就自摸了」 女神：「............」 「你真是誠實的好孩子，紅中跟白板都送你吧」 於是小明就相公了。 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.104.230.56 ※ 編輯: WalkingIce 來自: 59.104.230.56 (02/05 19:09) ※ 編輯: WalkingIce 來自: 59.104.230.56 (02/05 19:12)