perl-regex 0.13.3

Regex parsing and validation helpers for Perl syntax
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use crate::syntax::cursor::RegexCursor;

pub(crate) fn detects_code_execution(pattern: &str) -> bool {
    let mut cursor = RegexCursor::new(pattern);
    while let Some(ch) = cursor.current() {
        if cursor.skip_escape() || cursor.skip_char_class() {
            continue;
        }
        if ch == b'(' && cursor.peek(1) == Some(b'?') {
            if cursor.peek(2) == Some(b'{')
                || (cursor.peek(2) == Some(b'?') && cursor.peek(3) == Some(b'{'))
            {
                return true;
            }
        }
        cursor.bump();
    }
    false
}