Re^2: Module to get domain name from hostname

Replies are listed 'Best First'.
Re^3: Module to get domain name from hostname by Corion (Patriarch) on Jan 29, 2015 at 16:02 UTC
If you have stripped away the TLD, the last non-dot characters are the domain name. Most likely, a regular expression is enough: `my $tld = public_suffix($hostname) or die "Invalid TLD found in '$hostname'"; $hostname =~ /([^.]+).\Q$tld\E$/ or die "Couldn't find domain name in '$hostname'"; my $domainname= $1; print "Domain name is $domainname.$tld\n";` [download]	[reply] [d/l]
Re^4: Module to get domain name from hostname by gatkins (Initiate) on Jan 29, 2015 at 16:10 UTC
Thanks, that does the job. I have found another way, just now, using Domain::PublicSuffix Both methods work well, thanks again!	[reply]
Re^4: Module to get domain name from hostname by gatkins (Initiate) on Jan 29, 2015 at 19:12 UTC
root@sugzum:~/host# cat b2.pl #!/usr/bin/perl use feature qw(say); use Mozilla::PublicSuffix qw(public_suffix); open F, "<host.txt" or die $!; while (<F>) { $hostname = "$_"; } close F; my $tld = public_suffix($hostname) or die "Invalid TLD found in '$hostname'"; $hostname =~ /([^.]+).\Q$tld\E$/ or die "Couldn't find domain name in '$hostname'"; my $domainname= $1; print "Domain name is $domainname.$tld\n"; root@sugzum:~/ssh2smtp# cat host.txt 200-206-30-98.customer.tdatabrasil.net.br root@sugzum:~/ssh2smtp# perl b2.pl Invalid TLD found in '200-206-30-98.customer.tdatabrasil.net.br ' at b2.pl line 9. [download] Sorry, I'm a beginner. I can't figure it out to understand how this works.	[reply] [d/l]
Re^5: Module to get domain name from hostname by Corion (Patriarch) on Jan 30, 2015 at 07:52 UTC
Your string `$hostname` still has the newline at the end of it, which is why the error message shows on two lines: `Invalid TLD found in '200-206-30-98.customer.tdatabrasil.net.br ' at b2.pl line 9.` [download] Remove all whitespace from the end of `$hostname` after you've read it from the file: `$hostname =~ s/\s+$//;` [download] That way, the call to `public_suffix()` should succeed.	[reply] [d/l] [select]
Re^6: Module to get domain name from hostname by Anonymous Monk on Jan 30, 2015 at 14:07 UTC
Re^4: Module to get domain name from hostname by gatkins (Initiate) on Jan 29, 2015 at 19:19 UTC
Using <STDIN> works (perl b3.pl < host.txt), but i prefer to run the script without writing the external file into the terminal.	[reply]
Re^4: Module to get domain name from hostname by gatkins (Initiate) on Jan 29, 2015 at 17:17 UTC
I'm experiencing another issue now. How can I get this script to read $hostname variable from host.txt? Tried several solutions, but none worked. I could use $ARGV[0]; but it doesn't suit my needs. I need it to read the hostname from an external file. Thank you!	[reply]
Re^5: Module to get domain name from hostname by Corion (Patriarch) on Jan 29, 2015 at 18:05 UTC
So, what did you try, and how did it fail? Maybe see open, readline (or `<>`, the "diamond operator"), or perlvar on `@ARGV`.	[reply] [d/l] [select]