使用Regexp匹配TCL中输入的某个重复模式字符串

Question

I would like to check if an input matches a specific repetitive pattern.

Pattern = 3 Uppercase character follow by 2 digits and being separated by ':'

I have try the below regexp but it is not working.

# This should return "Input Criteria Meet"
set user_input_1 "AAB22:GHD23:UDJ29:YUD51"

if {[regexp {^[[A-Z]{3}[0-9]{2}:]+$} $user_input_1]} {
    puts "Input Criteria Meet"
} else {
    puts "Input Criteria not meet"
}

Answer 1

How about this? Assuming you have 4 parts, otherwise replace {4} with + .

^([A-Z]{3}\d{2}(:|$)){4}\b

Explanation:

• ^ Start of string
• ( Start of capture group
• [AZ]{3} Three uppercase characters
• \d{2} Two digit characters
• ( Start of OR capture group
  • :|$ Colon character OR end of string
• ) End of OR capture group
• {4} Four instances of the preceeding capture group
• \b Word boundary to prevent a trailing : to be matched.

Answer 2

You could use

^[A-Z]{3}[0-9]{2}(?::[A-Z]{3}[0-9]{2}){3}$

• ^ Start of string
• [AZ]{3}[0-9]{2} Match 3 times AZ and 2 times a digit 0-9
• (?: Non capture group
  • :[AZ]{3}[0-9]{2} Match : 3 times AZ and 2 times a digit 0-9
• ){3} Close non capture group and repeat 3 times
• $ End of string

Regex demo

Answer 3

Sometimes it is easier to not use a regular expression for everything, and to instead use one in concert with another operation. Some types of validation are also much clearer when put in a helper procedure:

proc ValidateString {input} {
    foreach part [split $input ":"] {
        # A regular expression is the easiest way of validating the interior pieces
        if {![regexp {^[A-Z]{3}[0-9]{2}$} $part]} {
            return false
        }
    }
    return true
}

set user_input_1 "AAB22:GHD23:UDJ29:YUD51"
if {[ValidateString $user_input_1]} {
    puts "Input Criteria Meet"
} else {
    puts "Input Criteria not meet"
}

You could instead use a more complex RE like this:

# ...
if {[regexp {^[A-Z]{3}[0-9]{2}(:[A-Z]{3}[0-9]{2})*$} $user_input_1]} {
    # ...

but that's significantly harder to read unless you switch to extended form, and lacks the clearer mnemonics of a named helper procedure so I wouldn't really recommend it.

Answer 4

I have tried out the following and it is working.

regexp {^[A-Z]{2}[0-9]{2}(:[A-Z]{2}[0-9]{2})+$} $user_input_1