http://www.vidul.com/articles/tag/money en-us 40 <div class="typocode"><pre><code class="typocode_ruby "><span class="comment">#!/usr/bin/perl</span> <span class="ident">use</span> <span class="ident">strict</span><span class="punct">;</span> <span class="ident">use</span> <span class="ident">warnings</span><span class="punct">;</span> <span class="ident">my</span> <span class="global">$dom</span> <span class="punct">=</span> <span class="ident">shift</span> <span class="punct">||</span> <span class="ident">die</span> <span class="punct">&quot;</span><span class="string">missing name<span class="escape">\n</span></span><span class="punct">&quot;;</span> <span class="ident">my</span> <span class="global">$res</span> <span class="punct">=</span> <span class="ident">qx</span><span class="punct">{</span><span class="ident">whois</span> <span class="global">$dom</span><span class="punct">};</span> <span class="ident">die</span> <span class="global">$1</span> <span class="punct">.</span> <span class="punct">&quot;</span><span class="string">for '$dom'<span class="escape">\n</span></span><span class="punct">&quot;</span> <span class="ident">if</span> <span class="global">$res</span> <span class="punct">=~</span> <span class="punct">/</span><span class="regex">(no<span class="escape">\s</span>+whois<span class="escape">\s</span>+server<span class="escape">\s</span>+)</span><span class="punct">/</span><span class="ident">i</span><span class="punct">;</span> <span class="ident">die</span> <span class="punct">&quot;</span><span class="string">$dom is free<span class="escape">\n</span></span><span class="punct">&quot;</span> <span class="keyword">if</span> <span class="global">$res</span> <span class="punct">=~</span> <span class="punct">/</span><span class="regex">no<span class="escape">\s</span>+match|does<span class="escape">\s</span>+not<span class="escape">\s</span>+exist</span><span class="punct">/</span><span class="ident">i</span><span class="punct">;</span> <span class="ident">die</span> <span class="punct">&quot;</span><span class="string">$dom is reserved<span class="escape">\n</span></span><span class="punct">&quot;;</span> <span class="comment">__END__ _whois 123456.com 123456.com is reserved _whois _123456_.com _123456_.com is free</span></code></pre></div> Fri, 22 Feb 2008 14:23:00 -0700 urn:uuid:4e17a074-f62c-4d7f-ae7b-8322c5e461e9 root http://www.vidul.com/articles/2008/02/22/how-to-find-free-domain-name Perl scripts money