Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

IP addresses that might have hostnames in roman numerals

by tomhukins (Curate)
on Mar 29, 2006 at 22:55 UTC ( #540074=CUFP: print w/replies, xml ) Need Help??

During an idle moment recently, I wondered if any IP addresses I use might have potentially valid hostnames matching their address. Does that make sense?

Here's an example: the IP address might have the hostname i.ii.iii.iv, but unfortunately the top level domain name .iv doesn't exist.

So, I wrote a script that grabs the list of country-specific TLDs and checks IP addresses you specify to see if any might have hostnames in roman numerals:

#!/usr/bin/perl use strict; use warnings; use LWP::Simple qw(mirror); use Roman qw(roman); use Fatal qw(open close mirror); my %ip_to_roman = do { my @ip = <DATA>; chomp @ip; map { $_ => roman_ip($_) } @ip; }; { mirror('', 'cctld-whois.h +tm'); open(my $fh, 'cctld-whois.htm'); my $page = do { local $/ = undef; <$fh> }; close $fh; while ($page =~ m{>\.(\w\w)(?:&nbsp;|&#150;)*([^<]+)}gms) { my ($tld, $country) = ($1, $2); $country =~ s/\s+/ /ms; IP: foreach my $address (keys %ip_to_roman) { next IP unless $ip_to_roman{$address} =~ m/\.$tld\z/ms; print "$address is $ip_to_roman{$address} in $country\n"; } } } sub roman_ip { my $ip = shift; return join '.', map { roman $_ } split(/\./, $ip); } # Put your IP addresses here __DATA__

This script has limitations: it reports some domain names that you can't register. Many TLDs, such as .uk do not allow arbitrary registrations such as Instead, you have to register,, etc.

So, what did I find out about my own addresses? I now know I want to register a .ci domain name, but apparently I need to get someone in the Ivory Coast to register this for me and I suspect this may not work as they might only allow or

Anyway, it was still a fun experiment.

Replies are listed 'Best First'.
Re: IP addresses that might have hostnames in roman numerals
by Ultra (Hermit) on Mar 30, 2006 at 05:46 UTC

    Is there any place in the world where they write IP addresses in roman notation?!

    Dodge This!

      Sure they do. Have a look at these crazy Finns![][][][][][][][][][][][][][][][]

      Somewhere, a bofh is laughing his head off :)

      • another intruder with the mooring in the heart of the Perl


        Dodge This!
      Is there any place in the world where they write IP addresses in roman notation?!

      I can't think of anywhere where people usually do it, but what's wrong with following the robustness principle - be strict in what you generate; be liberal in what you accept - to the absurd?

      I like the idea of things like telnet x.i.xi.ii just working. Traditionalists can stick to telnet TIMTOWTDI.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://540074]
Approved by samtregar
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2021-10-18 16:48 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (74 votes). Check out past polls.