Tyson Sommer wrote:
Those are some good points. I should definitely strip any leading "-"s. This
appears to work:
$input =~ s/^-*|[^A-Za-z0-9.-_]//g;
That could be simplified to:
$input =~ s/^-*|[^a-z.-_]//g;
Because the range [.-_] includes uppercase letters and numbers unless you
really meant to write [^A-Za-z0-9.\-_] or [^A-Za-z0-9._-]? :-)
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
