regex - 単一の正規表現が 3 つの異なるパターンで機能しない

Question

テキスト ファイル内のこれら 3 種類のテキストすべてに一致する最適な正規表現が必要です。

1. [真/偽]
2. [4,5,6,7]
3. [2-15]

機能していない次の正規表現の一致を試みています

m/([0-9A-Fa-fx,]+)\s*[-~,]\s*([0-9A-Fa-fx,]+)/) 

Answer 1

/
   (?(DEFINE)
      (?<WORD> [a-zA-Z]+ )
      (?<NUM>  [0-9]+ )
   )

   \[ \s*
   (?: (?&WORD) (?: \s* , \s* (?&WORD) )+
   |   (?&NUM) (?: \s* , \s* (?&NUM) )+
   |   (?&NUM) \s* - \s* (?&NUM)
   )
   \s* \]
/x

Answer 2

4-7のサブセットです2-15。この正規表現はそれらをキャプチャする必要があります。

/TRUE|FALSE|[2-9]|1[0-5]/

Answer 3

簡単なテスト プログラム:

#!/usr/bin/env perl

use strict;
use warnings;

for my $line (<DATA>) {

    chomp $line;
    print "$line: ";

    if ($line =~ /
            ^                                   # beginning of the string
            \[                                  # a literal opening sq. bracket
            (                                   # alternatives:
                  (TRUE|FALSE) (,(TRUE|FALSE))*     # one or more thruth words
                | (\d+) (,\d+)*                     # one or more numbers
                | (\d+) - (\d+)                     # a range of numbers
            )                                   # end of alternatives
            \]                                  # a literal closing sq. bracket
            $                                   # end of the string
        /x) {

        print "match\n";
    }
    else {
        print "no match\n";
    }
}

__DATA__
[TRUE]
foo
[FALSE,TRUE,FALSE]
[FALSE,TRUE,]
[42,FALSE]
[17,42,666]
bar
[17-42]
[17,42-666]

出力：

[TRUE]: match
foo: no match
[FALSE,TRUE,FALSE]: match
[FALSE,TRUE,]: no match
[42,FALSE]: no match
[17,42,666]: match
bar: no match
[17-42]: match
[17,42-666]: no match