Net::Domain::Regex - Match DNS domain names and extract into TLD, Domain and hostname parts.
use Net::Domain::Regex; use Data::Dumper; my $c = Net::Domain::Regex->new; while( <> ){ chomp; if( my @rc = $c->match( $_ ) ){ print Dumper( \@rc ),"\n"; } }
This module is used for finding and extracting domain names from a series of text.
This module is written with an object oriented interface.