perlquestion
jesuashok
Hi Monks,
<p>
I have this one, but it only accepts 10.3.2.1 (as well as www.example.com).
<code>
if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or
($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) {
$qs = $1;
</code>
Any suggestions?
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-395537">
"Keep pouring your ideas"
</div></div>