查找 XML 结构化文档中节的级别 - perl 输入:

<section>
   <para>...level 1</para>
   <para>...level 1</para>
   <para>...level 1</para>
   <section>
      <para>...level 2</para>
      <para>...level 2</para>
      <section>
         <para>...level 3</para>
         <para>...level 3</para>
         <para>...level 3</para>
      </section>
      <para>...level 2</para>
   </section>
   <section>
      <para>...level 2</para>
      <para>...level 2</para>
      <para>...level 2</para>
   </section>
</section>
<section>
   <para>...level 1</para>
   <para>...level 1</para>
   <para>...level 1</para>
   <section>
      <para>...level 2</para>
      <para>...level 2</para>
      <para>...level 2</para>
   </section>
   <section>
      <para>...level 2</para>
      <para>...level 2</para>
      <para>...level 2</para>
   </section>
</section>

我需要获取所有节级元素并根据级别插入值。所需的输出如下:

<section1>
<para>...level 1</para>
<para>...level 1</para>
<para>...level 1</para>
   <section2>
   <para>...level 2</para>
   <para>...level 2</para>
      <section3>
      <para>...level 3</para>
      <para>...level 3</para>
      <para>...level 3</para>
      </section3>
   <para>...level 2</para>
   </section2>
   <section2>
   <para>...level 2</para>
   <para>...level 2</para>
   <para>...level 2</para>
   </section2>
</section1>
<section1>
<para>...level 1</para>
<para>...level 1</para>
<para>...level 1</para>
   <section2>
   <para>...level 2</para>
   <para>...level 2</para>
   <para>...level 2</para>
   </section2>
   <section2>
   <para>...level 2</para>
   <para>...level 2</para>
   <para>...level 2</para>
   </section2>
</section1>

第一次尝试:

foreach my $lines ( @splitCnt ) {

    if ( $lines =~ m/<section\s+/g ) {
        $opn++;
        $lines =~ s/<section\s+/<section$opn /i;
        $cls = $opn;
        $opn++;
    }
    elsif ( $lines =~ m/<\/section>/g ) {
        $opn = $opn - 1;
        $lines =~ s/<\/section>/<\/section$opn>/i;
    }

    $all_lines .= "$lines\n";
}

第二次尝试:

my ( $pre1, $match1, $post1 ) = "";

while ( $incnt =~ m/<section\s+[^>]*>/g ) {

    $pre1   = $`;
    $match1 = $&;
    $post1  = $';
    my $Opn = '1';
    my $Cls = "";

    $match1 =~ s/<section\s+/<section$Opn /gi;

    if ( $post1 =~ m/<section\s+/i ) {
        $Opn++;
        $post1 =~ s/<section\s+/<section$Opn /;
        $Opn = $Cls;
    }
    elsif ( $post1 =~ m/<\/section>/i ) {
        $post1 =~ s/<\/section/<\/section$Cls/;
    }

    $pre1 .= $match1;
    $incnt = $post1;

    print "$pre1\n";
    system 'pause';
}

if ( length $pre1 ) {
    $incnt = $pre1 . $post1;
}

任何人都可以在这方面提供帮助...

最佳答案

说真的 - 不要对 XML 使用正则表达式。这是个坏消息。您可以使用破坏正则表达式的 XML 做很多完全有效的事情 - 所以您得到的是破坏的 XML 和脆弱的代码，有一天可能会严重破坏，没有人会知道为什么。

使用解析器。就个人而言-我喜欢XML::Twig

按照您的要求获取和重命名标签非常容易:

#!/usr/bin/env perl
use strict;
use warnings;

use XML::Twig;

sub process_section {
    my ( $section, $depth ) = @_;
    $depth++;
    $section->set_tag("section$depth");
    foreach my $subsection ( $section->children('section') ) {
        process_section( $subsection, $depth );
    }
}

my $twig = XML::Twig->new( 'pretty_print' => 'indented_a' );
$twig->parsefile ( 'your_file.xml' ); 

foreach my $section ( $twig->findnodes('section') ) {
    process_section( $section, 0 );
}

$twig->print;

不过我还要指出 - 您最初的问题听起来像是 XY problem .你想达到什么目的？执行这种操作通常是不可取的 - 基于层次结构更改标签，因为那样......好吧，你不能做我刚刚做的事情 - 递归遍历数据结构。

关于xml - 查找 XML 结构化文档中的节级别 - perl，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/32046707/