Is there a reason you don't write it
my ($characterString, $numberString) = $string =~ /^([^\d]+)(.*)$/o;
This will assure the values are not defined if the regex fails. I also
added "o".
On Mon, 1 May 2006, Luke Bakken wrote:
> if (length $string == 8) # might as well check eh?
> {
> $string =~ /^([^\d]+)(.*)$/;
> my ($characterString, $numberString) = ($1, $2);
> }
>
> Luke
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
--Nelson R. Pardee, Support Analyst, Information Technology & Services--
--Syracuse University, 211 Machinery Hall, Syracuse, NY 13244-1260 --
--(315) 443-1079 [EMAIL PROTECTED] --
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
