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 :)
This is exactly what I was looking for. Thanks for pointing me in the right direction.
No problem :)
Larry
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>
