菜鸟问题.求高手解决.

klathleen

有一份日志:用脚本处理完后的内容如下:
http://124.95.136.11/3/video04.i ... 08799264?1308802002
http://124.95.136.11/5/dl.cdn2.l ... &start=98715230

脚本很简单:#!/usr/bin/perl
use warnings;
use strict;
while (<>{
        chomp;
        my @url_all=split /\s+/,$_;
        my $url=@url_all[9];
        next if($url =~ m/mt\.dl$/);
        print "$url\n";
}

我想用正则 只匹配URL.就是这些:
video04.ifeng.com/video05/2011/06/22/963088a7-ad00-4a72-b78b-cd83bde709e0.mp4
dl.cdn2.letv.com/15/37/87/2151285343.0.flv
请问如何匹配.麻烦大侠们帮忙写一下.
谢谢了.

kingwmj

是不是把第四个“／”之前的去掉就可以了？

klathleen

对.   就是把第4个/ 去掉.
   #!/usr/bin/perl
use warnings;
use strict;
while (<>){
        chomp;
        my @url_all=split /\s+/,$_;
        my $url=@url_all[9];
        $url =~ s/\?.+$//i;
        next if($url =~ m/mt\.dl$/);
        print "$url\n";
}
不知道怎么精确的匹配.. 求解决  这个只是把 ? 后面的 URL删掉了

zhlong8

如果目录深点就不是第4个了，你需要更通用的模块看看 Regexp::Common::URI::http

zhlong8

URI 也行

yinyuemi

回复 1# klathleen

1. $ echo 'http://124.95.136.11/3/video04.ifeng.com/video05/2011/06/22/963088a7-ad00-4a72-b78b-cd83bde709e0.mp4?crypt=d06fce28aa7f2e70&ran=1308799264?1308802002' |
   
2. grep -Po '(?<=\d\/(?!\d))([^\?]*)(?=\?)'
   
3. video04.ifeng.com/video05/2011/06/22/963088a7-ad00-4a72-b78b-cd83bde709e0.mp4

复制代码

klathleen

楼上兄弟的正则 有点复杂了吧... 能用简单的匹配么? 越简单越好...
难道得用模块么? 正则行吗?
求解..

zhlong8

直接去掉 ? 和之后的
s/http://(.*?)\?/$1/

klathleen

现在就想把 http://124.95.136.11/3/dl.cdn2.l ... 12/2111290481.0.flv 路径之前的  http://124.95.136.11/3/ 替换掉 ..
只想要dl.cdn2.letv.com/11/32/112/2111290481.0.flv  这个URL

能实现么...越简单越好...
谢谢了

klathleen

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. while (<>){
   
5.         chomp;
   
6.         my @url_all=split /\s+/,$_;
   
7.         my $url=@url_all[9];
   
8.         $url =~ s/\?.+$//i;
   
9.         $url =~ s/^http:\/\/\d+\.\d+\.\d+\.\d+\/\d+\///i;
   
10.         next if($url =~ m/mt\.dl$/);
    
11.         print "$url\n";
    
12. }
    

复制代码

这样可以..但显的不是很专业啊...