Perl Script to Check Bulk Website Alexa Global Rank Using SiteScoreChecker API

Perl Script to Check Bulk Website Alexa Global Rank Using SiteScoreChecker API The article is a lively article because it contains interesting information and your favorite.   

Alexa Traffic Rank is the value that Alexa assigns to any website based on its traffic. Low traffic rank indicates high traffic volume to the website. Alexa provides a paid API to access its database.

Perl Script to Check Bulk Website Alexa Global Rank Using SiteScoreChecker API

Perl Script to Check Bulk Website Alexa Global Rank Using SiteScoreChecker API

app.pl

use threads;
use threads::shared;
use LWP::Simple;
use URI::URL;
use LWP::UserAgent;
use Parallel::ForkManager;
use HTTP::Request::Common;
use HTTP::Request::Common qw(GET);
use HTTP::Request;
use HTML::TreeBuilder;

$Logo="                                        
 @@@@@@   @@@       @@@@@@@@  @@@  @@@   @@@@@@   
@@@@@@@@  @@@       @@@@@@@@  @@@  @@@  @@@@@@@@  
@@!  @@@  @@!       @@!       @@!  !@@  @@!  @@@  
!@!  @!@  !@!       !@!       !@!  @!!  !@!  @!@  
@!@!@!@!  @!!       @!!!:!     !@@!@!   @!@!@!@!  
!!!@!!!!  !!!       !!!!!:      @!!!    !!!@!!!!  
!!:  !!!  !!:       !!:        !: :!!   !!:  !!!  
❗  !:!  ❗       ❗       ❗  !:!  ❗  !:!  
::   :::  :: ::::   :: ::::   ::  :::   ::   :::  
 :   : :  : :: : :  : :: ::    :   ::    :   : :                
              Rank Checker
              
By MrAbdelaziz
link:https://github.com/MrAbdelaziz/Alexa-Rank-Checker
\n\n";
    
    print $Logo;
    
    print "List Of Domains -> ";
    my $Hosts = <STDIN>;
    chomp($Hosts);
    open (DFILE, "<$Hosts") || die "[-] Can't Found ($Hosts) !";
    my @Hosts = <DFILE>;
    close DFILE;
    
    print "start checking ...\n";
    my $pm = new Parallel::ForkManager(10);
    
    foreach $host (@Hosts)
    {
      my $pid = $pm->start and next;
      alexa();
      $pm->finish;
    }
    
    $pm->wait_all_children();

    sub alexa($host)
    {

         chomp $host;
         
         my $ua = LWP::UserAgent->new(
            ssl_opts => {verify_hostname => 0,}
          );                    
          
          $response = $ua->post('https://sitescorechecker.com/alexa-rank-checker/output',{ url => $host , submit => "Submit"});
          
            my $t = HTML::TreeBuilder->new_from_content($response->content);
            my ($table) = $t->look_down(_tag => q{table});
            my @rows = $table->look_down(_tag => q{tr});
            print "domain :".$host."\n";
            
            open(SAVE,">>data.txt");
            print SAVE $host."\n";
            close(SAVE);
            
            for my $row (@rows)
            {
                print $row->as_text."\n";
                open(SAVE,">>data.txt");
                print SAVE $row->as_text."\n";
            }
            print SAVE "--------------------------------------\n";
            close(SAVE);
            
            threads->exit();
            next;
    }

Now you can run the perl script by typing the below command as shown below

perl app.pl

After executing this command this will show the alexa global rank and country rank

Read Also: Perl 5 Script to Build Advanced Omegle Bot to Increase Traffic to Website

Conclusion

I hope you find the article Perl Script to Check Bulk Website Alexa Global Rank Using SiteScoreChecker API uses. The reason is that we have told you all the information through this article in a way that you can understand. And if you have any doubts, you can express your doubts through the comment box. We also ask that you help share this article with your friends.

Hi, I'm Ranjith a full-time Blogger, YouTuber, Affiliate Marketer, & founder of Coding Deekshi. Here, I post about programming to help developers.

Share on:

Leave a Comment