Mar 13 2008
今天mima的tomcat又挂掉了，写一段够短的程序分析一下独立ip数量。。。
本来用sed写，写到一半好像写不下去了。。。
cat access_log | sed “s/ – – .*//” |sort |????
然后用perl写了一个
perl countip.pl access_log |head
countip.pl
#!/usr/bin/perl
while(<>){
chomp();
$_ =~ s/ – – .+//g;
$count{$_}++;
}
foreach $word (sort by_count keys %count){
print “$word occurs $count{$word} times\n”;
}
sub by_count {
$count{$b} <=> $count{$a}
}
sort使用了一个子例程作参数来定义排序规则
Mar 13 2008
某人说，hoop现在比mop更yy，更爽了，去看了一下，果然，转一篇：
20连！休斯敦火箭要与世界为敌 ！
Houston Rockets, men against the world!!!
83比75！手感冰凉又怎样，客场不利纪录又怎么样，有令人窒息的防守，就有20连胜！瞠目结舌吧，所有人！
尽管今天的比赛场面很难看，效率很低下，但是一场实实在在的胜利是最重要的，历史上终于有了第三支连胜场次的十位数能够达到2的球队，恭喜火箭队，贺喜火箭队，其实现在的每一场比赛，火箭队的对手都会竭尽所能去拦阻纪录的诞生，谁都不想成为历史纪录里那不甚光彩的助教，好比面对张伯伦的尼克斯，面对科比的猛龙。火箭队的这场东征赢得不能说光辉灿烂，但是能够达成20场连胜，火箭已经可以去面对所有当初不屑的眼神，不要再去说火箭的对手没有强队、火箭的胜利充满偶然、火箭的纪录不值一提了，现在的休斯顿火箭队，可以挺起胸膛说自己给尘封了30年的历史拂去灰尘，每一场胜利都是货真价实的，让这么一群平民球员的面前只剩下当年那支比尔-夏曼(Bill Sharman)执教、拥有篮球皇帝威尔特-张伯伦(Wilt Chamberlain)和Logoman杰里-韦斯特(Jerry West)的梦一样的湖人队，就是足以让我们这一辈球迷可以津津乐道的回忆。以后我们回想起当年的看球历史，我们也可以装成资深专家一样给人们详细讲述着这20场荡气回肠的胜利。而火箭队也通过本场比赛的胜利超越了今天负于黄蜂的马刺，上升到了西部第二位，在魔鬼的西南区，用20场不可思议的连胜，火箭队登上了含金量十足的王座。
所有纪录的存在，只是为了被打破——我们的身前，只剩下了33连胜那高山仰止的神迹，也许我们不能够超越他，但至少在那个数字面前，我们还会不断地激励自己继续前行，超越不了别人，我们还可以超越我们自己——而超越自己，就超越了一切。
休斯顿-20连胜-火箭队，要与世界为敌，就要战胜一切！
