Chinaunix首页 | 论坛 | 博客
  • 博客访问: 651036
  • 博文数量: 149
  • 博客积分: 3901
  • 博客等级: 中校
  • 技术积分: 1558
  • 用 户 组: 普通用户
  • 注册时间: 2009-02-16 14:33
文章分类

全部博文(149)

文章存档

2014年(2)

2013年(10)

2012年(32)

2011年(21)

2010年(84)

分类:

2010-08-06 10:55:47


希望能取得 1.2 ,1.3 版本 用户数 ,并且 由1.2升级到1.3 版本的 用户数

数据出来 表明 要善待 你的老用户 啊 ,引导升级带来的 用户 比 重新 拉个 用户 明显成本要 小




find ./login ./test_* -type f -exec cat {} \; |perl -nle '

 if( /at=(\d{4}-\d{2}-\d{2}).*adid=(.*?)<.*wv=(.*?)</ ){
   $h{"1.2"}{$2}++ if $3 eq "1.2" ;
   $h{"1.3"}{$2}++ if $3 eq "1.3" and $1 eq "2010-08-04";
 }
 END{
    %a = %{ $h{"1.2"} } ;
    %b = %{ $h{"1.3"} } ;
    my @inter = grep {$a{$_}} keys %b; # 求交集
    
    my $ja = scalar @inter ;
    my $a2 = scalar keys %a ;
    my $a3 = scalar keys %b ;
    
    print "1.2=$a2 1.3=$a3 1.3与1.2交集=$ja ";
 }
'


阅读(701) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~