Perl: Check if "$str" is of type [A-Z]<char string>[0-9][0-9]

introuble · 06-02-2006, 10:07 AM

Hello !

In a Perl script, I have a string, $str. I need to check if the string is of the form: [A-Z]<string consisting of chars a-z>[0-9][0-9] and print "yes" if it is, "no" if it isn't.

Matching examples: Awhatever49, Xwhenever30, Paaaa00, Thisisnice73.

Can anyone help me with this ?

druuna · 06-02-2006, 10:24 AM

Hi,

Something like this should work:

Code:

#!/usr/bin/perl

#$str = "Awhatever49";
$str = "W49";

if ( $str =~ /[A-Z][a-z][a-z]*[0-9][0-9]/) {
  print "Yes.\n"
} else {
  print "No.\n"
}

Hope this helps.

introuble · 06-02-2006, 10:33 AM

Danke schon