jesuashok has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
I have this one, but it only accepts 10.3.2.1 (as well as www.example.com).
Any suggestions?if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or ($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) { $qs = $1;
"Keep pouring your ideas"
Back to
Seekers of Perl Wisdom