※ 引述《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)