Howdy, I have the following to sort a hash of URLs based on domain/host. It works well for hosts w/ names but may not work great for IP addresses (verify yourself). Assuming %url contains URLS as the keys & anything else for values (i have page titles from ~/.netscape/history.dat, thanks to Netscape::History)... 

printf "%s\n\n" ,  $_
  foreach
    #  extract the sorted complete URL list
    map { $_->[0] }

    #  sort on massged host name or the complete url
    sort { $a->[1] cmp $b->[1] || $a->[0] cmp $b->[0] }

      #  set up for extracting the complete URL & sortkeys
      map { #  extract host/domain components in reverse order
            my @host =
              reverse split '\.'
                 , ( split '/' , substr($_ , index($_, '://') + 3) )[0
+];

            [ #  current URL
              $_

            , #  put domain at front; everything else afterwords
              #  ----
              #  poo.koo -> poo.koo
              #  web.poo.koo:80 -> poo.koo:80.www
              #  rand.web.poo.koo -> poo.koo.web.rand
              #  ----
              (scalar @host > 1 ? $host[1] . '.' : '')
              . $host[0]
              . ( scalar @host < 3 ? '' : '.' . join('.' , @host[2..$#
+host]) )
            ]
          } keys %url;

[download]

...my question is could the domain/host sortkeys be generated by better/less verbose way?

In reply to Sorting URLs on domain/host: sortkeys generation by parv

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.