Does Perl have any type of toupper function?  I know I can use the
modifier 'i' in my search string to ignore case but I must insert an
upper case 'L' into the database.

perldoc -f ucfirst

Is there a different way to check the last 8 characters and the length
of the string than what I am doing?

if($str =~ /^L\d{8}$/) {
# the $ matches the end of the string, now try it with L123456789, it won't be true :)



HTH :)

Lee.M - JupiterHost.Net

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to