Бесконечный цикл RegExp только в perl, почему?

Во-первых, ничто из того, что вы опубликовали, не может вызвать бесконечный цикл, поэтому, если вы его получаете, это не из этой части кода.

Когда я пробую вашу подпрограмму, она возвращает true для всех видов строк, которые далеки от путей, например:

.....
This is a Valid File Path.
.*.*
This is a Valid File Path.
-
This is a Valid File Path.

Это потому, что ваше регулярное выражение довольно свободное.

^(|"|""")                  # can match the empty string
(?:[a-zA-Z]:[\\\/])?       # same, matches 0-1 times
[\\\/]{0,2}                # same, matches 0-2 times
(?:(?:[\w\s\.\*-]+|\{\$\w+}|%\w+%)[\\\/]?)+\1$  # only this is not optional

Поскольку только последняя часть фактически должна соответствовать чему-либо, вы разрешаете все типы строк, в основном в первом классе символов: [\w\s\.\*-]

По моему личному мнению, когда вы начинаете полагаться на регулярные выражения, похожие на ваши, вы делаете что-то не так. Если только вы не разбираетесь в регулярных выражениях и не надеетесь, что никому, кто не разбирается, никогда не придется это исправлять.

Почему бы вам просто не удалить кавычки? Кроме того, если этот путь существует в вашей системе, есть гораздо более простой способ проверить его правильность: -e $path

Если бы механизм регулярных выражений был наивным,

('y') x 20 =~ /^.*.*.*.*.*x/

потребуется очень много времени, чтобы потерпеть неудачу, так как это должно попытаться

20 * 20 * 20 * 20 * 20 = 3,200,000 possible matches.

Ваш шаблон имеет аналогичную структуру, то есть многие компоненты соответствуют широкому диапазону подстрок вашего ввода.

Теперь механизм регулярных выражений Perl высокооптимизирован и далеко не прост. В приведенном выше шаблоне он начнет с поиска x и очень быстро выйдет. К сожалению, он не оптимизирует или не может аналогичным образом оптимизировать ваш шаблон.

Твои шаблоны - полный бардак. Я даже не буду пытаться угадать, что там должно совпадать. Вы обнаружите, что эта проблема решится сама собой, как только вы переключитесь на правильный шаблон.

Обновить

Изменить: из-за проб и ошибок приведенное ниже подвыражение группировки [\w\s.*-]+ вызывает проблему с возвратом

    (?:
        (?:
             [\w\s.*-]+
          |  \{\$\w+\}
          |  %\w+%
        )
        [\\\/]?
    )+

Исправление № 1, развернутый метод

'
 ^
    (                          # Nothing
      |"                       # Or, "
      |"""                     # Or, """
    )
                      # Here to end, there is no provision for quotes (")
    (?:               # If there are no balanced quotes, this will fail !!
        [a-zA-Z]
        :
        [\\\/]
    )?
    [\\\/]{0,2}

    (?:
        [\w\s.*-]
      |  \{\$\w+\}
      |  %\w+%
    )+
    (?:
        [\\\/]
        (?:
            [\w\s.*-]
          |  \{\$\w+\}
          |  %\w+%
        )+
    )*
    [\\\/]?
    \1
 $
'

Исправление № 2, независимое подвыражение

'
 ^
    (                          # Nothing
      |"                       # Or, "
      |"""                     # Or, """
    )
                      # Here to end, there is no provision for quotes (")
    (?:               # If there are no balanced quotes, this will fail !!
        [a-zA-Z]
        :
        [\\\/]
    )?
    [\\\/]{0,2}

    (?>
       (?:
           (?:
                [\w\s.*-]+
             |  \{\$\w+\}
             |  %\w+%
           )
           [\\\/]?
       )+
    )
    \1
 $
'

Исправить № 3, удалить квантификатор + (или добавить +?)

'
 ^
    (                          # Nothing
      |"                       # Or, "
      |"""                     # Or, """
    )
                      # Here to end, there is no provision for quotes (")
    (?:               # If there are no balanced quotes, this will fail !!
        [a-zA-Z]
        :
        [\\\/]
    )?
    [\\\/]{0,2}

    (?:
        (?:
             [\w\s.*-] 
          |  \{\$\w+\}
          |  %\w+%
        )
        [\\\/]?
    )+
    \1
 $
'

Благодаря sln это мое фиксированное регулярное выражение:

my $FILENAME_REGEXP = '^(|"|""")(?:[a-zA-Z]:[\\\/])?[\\\/]{0,2}(?:(?:[\w\s.-]++|\{\$\w+\}|%\w+%)[\\\/]{0,2})*\*?[\w.-]*\1$';

(Я также запретил * char в каталогах и разрешил только один * в (последнем) имени файла)