Question

I was wondering if there is a Perl module that will detect if two URLs are of the same root domain, for instance http://services.bestbuy.com/ and http://espanol.bestbuy.com/ would both be counted as having the same root domain.

I know that it’s possible with a regular expression, but I’d prefer it if there’s already a module someone to do this! I haven’t been able to find anything yet.

Does anyone know of any good solutions? Thanks!

Answer 1

I would use Domain::PublicSuffix.

use feature qw( say state );

use Domain::PublicSuffix qw( );
use URI                  qw( );

# Accepts urls as strings and as URI objects.
sub url_root_domain {
   my ($abs_url) = @_;
   state $parser = Domain::PublicSuffix->new();
   return $parser->get_root_domain( URI->new($abs_url)->host );
}

my $url1 = 'http://services.bestbuy.com/';
my $url2 = 'http://espanol.bestbuy.com/';

say url_root_domain($url1) eq url_root_domain($url2) ? "same" : "diff";