用m{^site:(.+) inurl:/(.+)} 中的inurl:/
来匹配
site:www. inurl:www20041223am 中的inurl:

可惜匹配不了

   谢谢，呵呵，没注意要求是单词型的，

#! D:/Program Files/Perl/bin/perl.exe -W

use strict; 

my $match_one; 
my $match_two; 

if(open(SITE_IN, "E:/Projects/Perl/site_inurl.txt") || die "$!") 
{ 
    foreach (<SITE_IN>) 
    { 
        if( m{^site:(.+) inurl:/?(.+)/?} ) 
        { 
            $match_one = $1; 
            $match_two = $2; 

            if(open(URL_FILE, "E:/Projects/Perl/url.txt") || die "$!") 
            {
                foreach(<URL_FILE>) 
                { 
                    if( m{$match_one.*/$match_two} ) 
                    { 
                        print $_; 
                    } 
                }
            }
            close(URL_FILE); 
        } 
    } 
} 

close(SITE_IN); 

这下测试了过了

跟我的shell比起来。。。


虽然曾经一度喜欢perl，就是因为perl是干杂事的。

最近在研究lisp 有机会切磋。

正则表达式的匹配原理很有意思，像算法一样有趣
而且 vim 也支持正则表达式

[ 本帖最后由 BlueGuy 于 2009-9-17 17:50 编辑 ]

lisp么？elisp还是clisp？