Форум АНТИЧАТ - [Perl] Небольшой доркер

Для собственных нужд был написан небольшой гугл-доркер, ибо руками гугл парсить не очень удобно :))
Все существующие под нужды не подходили, может еще кому пригодится :)
Никаких тред, проксей там нету, ибо для одного раза нужно было ))

Код:

#!/usr/bin/perl -s

use LWP::UserAgent;

use strict;

use warnings;

use diagnostics;

my @uas = (

 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4",

 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070309 Firefox/2.0.0.5",

 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.2) Gecko/20070309 Firefox/2.0.0.3"

);

$| = 1;

my($logfile,$ua,$page,$url,$response,$con,$results,$dorksfile,@dorks);



$ua = LWP::UserAgent->new;

$ua->timeout(30);



sub usage{

 exit print qq(Usage:

 $0 <dorks file> <logs file> [number of results](optional, defaul=100)

 $0 dorks.txt results.log\n\n);

}



$dorksfile = shift || usage();

$logfile = shift || usage();

$results = shift || 100;



open my $DF, '<', $dorksfile or die "Cant open dorks file $dorksfile: $!\n";

open my $LOG,'>>', $logfile or die "Cant open: $!\n";

foreach(<$DF>)

{

    $_ =~ s/\s+$//go;

    $_ =~ s/\s+|\t+/+/go;

    $_ =~ s/\n|\r//go;

    print "[Searching dork: $_]\n";

    $ua->agent($uas[rand $#uas]);

    dorkie($_);

}

close $DF;



sub dorkie

{

        my $dork = shift;

        $response = $ua->get("http://www.google.com.au/search?hl=en&num=".$results."&q=".$dork."&start=0") or die "Cant get Google's contents: $!\n";

        print $LOG "[Dork: $dork]\n";

        if($response->is_success)

        {

            $con = $response->content;

            while ($con =~ m/<h2 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/goi)

            {

                my $url = $2;

                $url = "http://".$1 if($url =~ m/http:\/\/(.*)\"(.*)/goi);

                print $LOG "$url\n";

                

            }

        } else 

        {

            if($response->status_line =~ m/403/)

            {

                print $LOG "[-] Forbidden\n";

                return 0;

            } else

            {

                print $LOG "[-] Cannot connect\n";

                return 0;

            }

        }

        print $LOG "[End of dork: $dork]\n\n"

}

close($LOG)

UPD: Добавил рандомизатор юзерагентов, при желании список пополнить можно. Хотя против гугла - это как против танка тапок, но все же :))