google 骆驼书

PERL 在查文件和网页上的能力很强. 跟SQL,和CGI,它什么都干的了!
这个编码可一在一个网页上查到大概所有的网址.
#!/usr/bin/perl-w
use strict;                 
use LWP::Simple;
while(<>){
            if(/([^\"\]+)/){
                 my $link=$1;
              }

}
my $content=get($link);
...
              for my $url($content=~/\<\s*a\s+href\s*\=\"([^\"]+)/ig){
                                     print $entry . "\n";    
               }