Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
use Net::DNS; @data = ("com","edu","gov","int","mil","net","org","ac","ad","ae","af" +,"ag","ai", "al","am","an","ao","aq","ar","as","at","au","aw","az","ba","bb","bd", +"be","bf", "bg","bh","bi","bj","bm","bn","bo","br","bs","bt","bv","bw","by","bz", +"ca","cc", "cd","cf","cg","ch","ci","ck","cl","cm","cn","co","cr","cs","cu","cv", +"cx","cy", "cz","de","dj","dk","dm","do","dz","ec","ee","eg","eh","er","es","et", +"fi","fj", "fk","fm","fo","fr","ga","gb","gd","ge","gf","gg","gh","gi","gl","gm", +"gn","gp", "gq","gr","gs","gt","gu","gw","gy","hk","hm","hn","hr","ht","hu","id", +"ie","il", "im","in","io","iq","ir","is","it","je","jm","jo","jp","ke","kg","kh", +"ki","km", "kn","kp","kr","kw","ky","kz","la","lb","lc","li","lk","lr","ls","lt", +"lu","lv", "ly","ma","mc","md","mg","mh","mk","ml","mm","mn","mo","mp","mq","mr", +"ms","mt", "mu","mv","mw","mx","my","mz","na","nc","ne","nf","ng","ni","nl","no", +"np","nr", "nu","nz","om","pa","pe","pf","pg","ph","pk","pl","pm","pn","pr","ps", +"pt","pw", "py","qa","re","ro","ru","rw","sa","sb","sc","sd","se","sg","sh","si", +"sj","sk", "sl","sm","sn","so","sr","st","su","sv","sy","sz","tc","td","tf","tg", +"th","tj", "tk","tm","tn","to","tp","tr","tt","tv","tw","tz","ua","ug","uk","um", +"us","uy", "uz","va","vc","ve","vg","vi","vn","vu","wf","ws","ye","yt","yu","za", +"zm","zr", "zw"); @data = sort @data; print "<html><head><title>TLD Nameservers</title></head><body>\n"; foreach $asdf (@data) { print "<a name=\"$asdf\"><h1>.$asdf</h1></a>\n"; $res = new Net::DNS::Resolver; $res->nameservers("",""); $query = $res->query($asdf, "NS"); if ($query) { foreach $rr ($query->answer) { next unless $rr->type eq "NS"; @list = ($rr->nsdname,@list); } @list = sort @list; for $zxcv (@list) { print "$zxcv<br>\n"; } undef @list; } else { print "query failed: ", $res->errorstring, "\n"; } } print "</body></html>";

In reply to List TLD nameservers by chazzz

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, 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, 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.
  • Log In?

    What's my password?
    Create A New User
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others chanting in the Monastery: (7)
    As of 2018-02-20 14:32 GMT
    Find Nodes?
      Voting Booth?
      When it is dark outside I am happiest to see ...

      Results (271 votes). Check out past polls.