用eval替换并通过分组字符串长度来重复字符？

Question

我输入如下

my $s = '<B>Estimated:</B> 

The N-terminal of the sequence considered is M (Met). 

The estimated half-life is: 30 hours (mammalian reticulocytes, in vitro). 
         >20 hours (yeast, in vivo). 
         >10 hours (Escherichia coli, in vivo). 


<B>Instability index:</B> 

The instability index (II) is computed to be 31.98 
This classifies the protein as stable.'; 

我想从字符串中删除的<B></B>标签，并把下划线粗体标签。

我预期的输出是

Estimated: 
--------- 
The N-terminal of the sequence considered is M (Met). 

The estimated half-life is: 30 hours (mammalian reticulocytes, in vitro). 
         >20 hours (yeast, in vivo). 
         >10 hours (Escherichia coli, in vivo). 


Instability index: 
------------------ 
The instability index (II) is computed to be 31.98 
This classifies the protein as stable. 

对于这种尝试下面的正则表达式，但我不知道是什么问题存在。

$s=~s/<B>(.+?)<\/B>/"$1\n";"-" x length($1)/seg; # $1\n in not working 

在上面的正则表达式我不知道如何把这个"$1\n"？以及如何使用由;或其他分隔的替代连续语句？

我该如何解决？

Answer 1

的e修改返回刚刚过去执行的语句，所以

$s=~s/<B>(.+?)<\/B>/"$1\\n";"-" x length($1)/seg; 

扔掉的"$1\\n"（这确实应该"$1\n"）

这工作：

$s=~s/<B>(.+?)<\/B>/"$1\n" . "-" x length($1)/seg; 

的我询问你的Perl版本的原因是为了评估是否有可能实现有效的可变长度lookbe与\K后腿：

$s=~s/<B>(.+?)<\/B>\K/ "\n" . "-" x length($1)/seg; 

\K是可用于Perl版本5.10+。