等你的源码。

我帮 你修bug.

还好，还懂点perl.

#! 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 "$!")
{
    if(open(URL_FILE, "E:/Projects/Perl/url.txt") || die "$!")
    {
        foreach (<SITE_IN>)
        {
            if( m{^site:(.+) inurl:/(.+)} )
            {
                $match_one = $1;
                $match_two = $2;
 
                foreach(<URL_FILE>)
                {
                    if( m{$match_one.*$match_two} )
                    {
                        print $_;
                    }
                }
            }
        }
    }
}
 
close(SITE_IN);
close(URL_FILE);
 
楼主，这是perl的代码，我想肯定比C要简洁多了吧？而且不同人用perl写出来的都不一样。这就是Perl的思想There's More Than One Way To Do It

我的意思是，对于同一种问题，方法很多，我用perl完全可以写出grep，但是grep功能有限，如果要对提取的文本做复杂操作，肯定还要自己写的。但是用Perl代码肯定要比c版简洁很多，perl就是为处理文本而诞生的，C在这方面是不如perl的，当然有c的regex库， pcre，也很好用，甚至是perl本身也是在用这个库.

我06年那会注册这个论坛，当时还是学生，如今是名工程师，潜水N年，见多了这个坛子的浮躁，不是比所谓算法的，就是直接题目，自己写的代码都没有，直接要源码的，要么就是抠字眼，喷人的，我承认我错了，我的知识里没有grep是shell的概念，在我来说任何东西不过是某种语言写出来的而已。

如果要运行本程序，只要下载WIN32的Perl,然后把代码保存成任何格式的文本文件，正统点是.pl, 在CMD里敲perl filename.pl,公司活很忙，就这样了，

错了还这么多废话

学rootkit 潜水N年， 然后以此为荣， 炫耀一翻。


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

工程师？  衣锦还乡了

对不起，我错了，别那么咄咄逼人好吗？

我不过是利用空闲时间来学习的，和交流的。

公司活很忙，就这样了

希望斑竹能看到，

帮忙删下我的号，谢谢。

在实际中对于这种应用有几T以上的数据，如果用perl运行，速度可想而知。

我不知道

    Perl 几乎没有限制。几乎没有什么事不能由Perl 来完成。你一般不希望用Perl 来书写内核级的中断驱动程序（虽然Perl
    能完成）。但针对一般工作中遇到的问题，从一次性程序到工业级的运用，Perl 都能出色的完成。

    Perl 速度快。那是由于，所有的Perl 开发者都使用Perl，他们希望它快。如果某人想加一个很酷的功能到Perl 中，但它会
    降低其它程序的速度，Larry 基本上会拒绝添加它除非找到一个方法使它足够快。

    这是小骆驼书上的原话，现在CGI也流行用perl写，如果说速度慢，我不承认，但是perl5确实很臃肿