perl不用新线来串通字符串

Question

我在perl上的字符字符号遇到了这个问题。我的目标是删除所有“”。和“ - ”我的XML。它与前4个标签搭配得很好，但不会删除“”。和“ - ”描述标签上具有新的内容。

这是我的代码：

 />([^\000]*?)</g;
 $lastp = $1;
 $lastp =~ s/[\.|\-]*?//g;
 $_ =~ s/(>)[^\000]*?(<)/$1$lastp$2/g; 

这是我的示例数据：

   <book id="bk101">
      <author>Gambardella, Matthew</author>
      <title>XML Developer's Guide</title>
      <genre>Computer</genre>
      <price>.44.95......</price>
      <publish_date>200.0-10-
      01.</publish_date>
      <description>An in-depth look at creating applications 
      with XML.</description>
   </book>

这是我的输出：

 <book id="bk101">
      <author>Gambardella, Matthew</author>
      <title>XML Developer's Guide</title>
      <genre>Computer</genre>
      <price>4495</price>
      <publish_date>200.0-10-
      01.</publish_date>
      <description>An in-depth look at creating applications 
      with XML.</description>
  </book>

Answer 1

您能否尝试以下内容：

#!/usr/bin/perl

use strict;
use warnings;

$_ =<<'EOS';
   <book id="bk101">
      <author>Gambardella, Matthew</author>
      <title>XML Developer's Guide</title>
      <genre>Computer</genre>
      <price>.44.95......</price>
      <publish_date>200.0-10-
      01.</publish_date>
      <description>An in-depth look at creating applications
      with XML.</description>
   </book>
EOS

s/(?<=>)[^<]+/ my $s = 
amp;; $s =~ s#[-.]##g; $s /ge;

print;

输出：

   <book id="bk101">
      <author>Gambardella, Matthew</author>
      <title>XML Developer's Guide</title>
      <genre>Computer</genre>
      <price>4495</price>
      <publish_date>200010
      01</publish_date>
      <description>An indepth look at creating applications
      with XML</description>
   </book>

• 替换立即作为字符串处理整个行。
• 模式（？
零宽度lookbehind主张＆gt;和[^＆lt;]+匹配
除了＆lt;以外的任何字符的顺序。然后分配变量$＆amp;
到匹配的子字符串。
• 我的$ s = $＆amp ;; $ s = 〜s＃[ - 。] ## g; $ s删除-和。
  匹配的子字符串。然后修改的字符串$ s用作
  替换 s/stater/替换/操作员的 E e 选项。