Show Posts
1
Scripting Languages / Re: [Perl] Project ParanoicScan 1.7
« on: January 12, 2014, 02:36:37 AM »
Awsome stuff, i made few modification, i will send them only to author, sorry i'm in not so kind like him =) for public here add new search engine(it's without limit)
Code: [Select]
sub teoma {
my ( $a, $b ) = @_;
for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
my $code =
toma( "http://www.teoma.com/web?q=" . $a . "&page=" . $pages );
while ( $code =~ /(?<=href=")(.*?)"/mig ) {
push( @founds, $1 );
}
}