> > -----Original Message----- > > From: JupiterHost.Net [mailto:[EMAIL PROTECTED] > > Sent: Thursday, November 11, 2004 15:17 > > To: [EMAIL PROTECTED] > > Cc: Adamiec, Larry > > Subject: Re: reg expression in an if test > > > > > > > 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. 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>