Question

嗨，我根据样式的

在标签内生成数字

E.g

 <list-bull>
 <P_list-bull>Use Microsoft Windows accessibility  </P_list-bull>
 <P_list-bull>   Magnify the display </P_list-bull>
 <P_list-simple>   Change the size of text and icons </P_list-simple>
 <P_list-simple>   Convert the text displayed  </P_list-simple>
 <P_list-num>   Change the contrast </P_list-num>
 <P_list-simple>text and icons </P_list-simple>
 <P_list-bull>Microsoft accessibility </P_list-bull>
 </list-bull>

上面的例子是我的输入。我想基于样式（bull，simple，num）生成数字，在第一次出现（任何类型）我在标签内生成一（1），然后为第二种风格生成2等等....

我想要以下格式输出

 <list-bull>
 <P_list-bull(1)>Use Microsoft Windows accessibility  </P_list-bull(1)>
 <P_list-bull(1)>   Magnify the display </P_list-bull(1)>
 <P_list-simple(2)>   Change the size of text and icons </P_list-simple(2)>
 <P_list-simple(2)>   Convert the text displayed  </P_list-simple(2)>
 <P_list-num(3)>   Change the contrast </P_list-num(3)>
 <P_list-simple(2)>text and icons </P_list-simple(2)>
 <P_list-bull(1)>Microsoft accessibility </P_list-bull(1)>
 </list-bull>

我尝试下面的代码，但我不知道在哪里修复条件

 while($str =~ /<list-(bull|num|alpha|roman|simple)(?:(?:(?!<\/list-\1>).)*)<\/list-\1>/sgi){
$str =~ s#<list-(bull|num|alpha|roman|simple)(?:(?:(?!<\/list-\1>).)*)<\/list-\1>#&List_find($&,$1)#sgei;
  }
 sub List_find
 {
 my ($line,$type) = @_;
 my $currentlevel = 0;
 my $line1;
 while($line =~ s/<P_list-(bull|num|alpha|roman|simple)(?:(?:(?!<\/P_list-\1>).)*)    <\/P_list-\1>/&Listnum($&)/sgie){}



sub Listnum
{
my $line2 = @_[0];

my ($style,$cont);
if($line2 =~ /<P_list-(.*?)>(.*?)<\/P_list-\1>/sgi)
{
$style = $1;
$cont = $2;
my $id =1;
if($type eq $style){
$line2 = "<P_list-$style($id)>$cont</P_list-$style($id)>";

}
else{

    $line2 =~ /<P_list-(.*?)>(.*?)<\/P_list-\1>/s;
    my $temp = $1;

    if($style eq $temp)
        {

    $id++;
    $line2 = "<P_list-$style($id)>$cont</P_list-$style($id)>";
        }
    else
        {
    $id = $id+2;        

    $line2 = "<P_list-$style($id)>$cont</P_list-$style($id)>";          
        }
    }
    return "$line2";
}
}

我将第一个列表项标记与第一个列表类型（公牛）进行比较，如果它是正确的，它将生成一个否则两个，在其他部分我想检查第二个和第三个类型

请提出一些建议

Answer 1

不知道为什么不使用一些xml解析器，但无论如何......

将所有样式作为哈希键获取，类似于：

my %styles=();
my $i=1;
while($text=~/P_list-([a-zA-Z]+)/gsm) {
    $styles{$1}=$i++ if !$styles{$1};
}

然后只需将它们全部替换

foreach my $k (keys %styles) {
    my $what_you_have="P_list-$k";
    my $what_you_want="P_list-$k($styles{$k})";
    $text=~s/$what_you_have/$what_you_want/gsm;
}

假设$text包含您的整个输入

当第二次执行else块时调节

1 个答案: