问如何识别包含嵌套参数的模式

EN

perl -MText::Balanced=extract_bracketed \
     -ne 'if (/length(\(.*)/) {
              ($arg) = (extract_bracketed(($1 =~ /\((.*)\)/)[0]))[1];
              print "length(cast($arg as string))\n";
          } else { print }' -- input.file > output.file

$ cat ip.txt
length(bill_cycle)
length(some(somethiing))

$ perl -pe 's/length(\(((?:[^()]++|(?1))++)\))/length(cast($2 as string))/' ip.txt 
length(cast(bill_cycle as string))
length(cast(some(somethiing) as string))

BEGIN { 
    p = "length"
}

{
    row = $0
    while (row ~ p"\\(") {
        # get the substring from pattern to the end of the line
        # and split to array with closing parenthesis separator

        x = substr(row, index(row,p) + length(p))
        split(x, a, ")")
        res = p

        # loop for array items and append them to substring
        # until we have a string with same number of
        # opening and closing parentheses.

        for (i=1;i<=length(a);i++) {

            res = res a[i] (i==length(a)? "": ")")

            if (gsub(/\(/,"(",res) == gsub(/\)/,")",res)) {
                print res
                break
            }
        }
        
        # will test again the rest of the row
        row = substr(x, length(p))
    }
}

> cat file
some text length(a(b)) testing another occurence length(a))
function(length(c(d(e(f(1), 2)))) testinglength(x)
x length(y))
x length(((y))
length(length(1))

> awk -f tst.awk file
length(a(b))
length(a)
length(c(d(e(f(1), 2))))
length(x)
length(y)
length(length(1))