小编Sri*_*esh的帖子

如何在Perl中的匹配大括号之间提取字符串?

我的输入文件如下:

HEADER 
{ABC|*|DEF {GHI 0 1 0} {{Points {}}}}

{ABC|*|DEF {GHI 0 2 0} {{Points {}}}}

{ABC|*|XYZ:abc:def {GHI 0 22 0} {{Points {{F1 1.1} {F2 1.2} {F3 1.3} {F4 1.4}}}}}

{ABC|*|XYZ:ghi:jkl {JKL 0 372 0} {{Points {}}}}

{ABC|*|XYZ:mno:pqr {GHI 0 34 0} {{Points {}}}}

{
    ABC|*|XYZ:abc:pqr {GHI 0 68 0}
        {{Points {{F1 11.11} {F2 12.10} {F3 14.11} {F4 16.23}}}}
        }
TRAILER
Run Code Online (Sandbox Code Playgroud)

我想将文件解压缩到如下数组:

$array[0] = "{ABC|*|DEF {GHI 0 1 0} {{Points {}}}}"

$array[1] = "{ABC|*|DEF {GHI 0 2 0} {{Points {}}}}" …
Run Code Online (Sandbox Code Playgroud)

regex perl parsing matching braces

10
推荐指数
3
解决办法
2万
查看次数

标签 统计

braces ×1

matching ×1

parsing ×1

perl ×1

regex ×1