Xx.lt-dns.pl

#!/usr/bin/perl

# skriptas skirtas dvieju raidziu/skaiciu .lt domeinu statusam isgauti,
# su galimybe pradeti nuo pasirinkto 2 simboliu derinio.
# naudojimo pvz.:
#
# [algirdas@perl ~]$ perl xx.lt-dns.pl aa
# aa.lt registered
# ab.lt registered
# ac.lt onHold
# ...
# Query limit 100 for IP [xxx.xxx.xxx.xxx] exceeded with 107
# ...
#                                                  
# (c-left) algirdas@perl.lt (2010.03.21 00:50) :-)

use strict;

my $c = shift;
my $k = 1 unless $c;
foreach ('a'..'z',0..9) {
  my $a = $_;
    foreach ('a'..'z',0..9) {
      if ((!$k) && ("$c" eq "$a$_")) { $k++; }
      if ($k) {
        my $b = "$a$_.lt";
        my $r = `whois $b|grep Status`;
        $r =~ s/\t//g;
        $r =~ s/Status://g;
        print "$b $r";
        sleep(1);
        undef($b);
      }
    }
}