How do I extract the domain out of an URL?

by

The URI module can parse URIs for you in a nice OO-ish way. To get the domain part:

my $url = URI->new( "http://www.stackoverflow.com/" );
my $domain = $url->host;
print $domain;

More Related Contents:

  1. Remove Text between two Strings
  2. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  3. Redirecting the perl script
  4. How can I troubleshoot my Perl CGI script?
  5. Why are Perl 5’s function prototypes bad?
  6. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  7. How can I install Perl modules without root privileges?
  8. How do I compare two strings in Perl?
  9. What is the difference between ‘my’ and ‘our’ in Perl?
  10. Difference between &function and function() in perl [duplicate]
  11. How do you round a floating point number in Perl?
  12. Why are Perl source filters bad and when is it OK to use them?
  13. Why do I have to specify the -i switch with a backup extension when using ActivePerl?
  14. How can I run Perl system commands in the background?
  15. Why is this program valid? I was trying to create a syntax error
  16. How can I convert the stringified version of array reference to actual array reference in Perl?
  17. Find size of an array in Perl
  18. What does the -> arrow do in Perl?
  19. What’s the difference between iterating over a file with foreach or while in Perl?
  20. What’s the differences between system and backticks and pipes in Perl?
  21. In Perl, how can I find the index of a given value in an array?
  22. How do I tell what type of value is in a Perl variable?
  23. What should I use for a Perl script’s shebang line?
  24. How can I find memory leaks in long-running Perl program?
  25. Why do Perl variables need to start with $, %,@ (sigils)?
  26. Print lines from one file that are not contained in another file
  27. Perl DBD::Oracle Module installation
  28. Nested subroutines and Scoping in Perl
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment