在perl中删除行

Question

我是 Perl 新手，以前没有任何其他编程语言的编程经验。我正在尝试使用 do-while 循环删除/跳过几行。我正在尝试删除/跳过两个标签之间的数据： 和 。

代码：

if($work=/^<worker>/)
{
   do
       {
         delete $work[$i];
                  ++$i;
                     }
       print $work,"\n";
}

Answer 1

我假设您想跳过标签 和 之间的数据。你需要在正则表达式中使用 ..

这是一个单行代码可以做到这一点

perl -ne 'print unless /<workers>/../<\/workers>/' <file_name>

如果你想在脚本中执行它，请在从文件中读取一行后添加这一行

next if /<worker>/../<\/workers>/;

你可以用这个非常好的 演示，作者：brian d foy

Answer 2

while (<>) {
  print unless m|<worker>| .. m|</workers>|;
}

在不同的标签上开始和结束似乎有点奇怪。他们应该都是“工人”还是“工人”？

Answer 3

我假设您有如下数据：

my $x = <<END;

Text to keep
<worker> text to be deleted </worker>
Text to keep again
<worker>
Text to be deleted
</worker>
END

如果您还想删除 标签：

$x =~ s/<worker>.*?<\/worker>//g;

如果您需要保留标签：

$x =~ s/<worker>.*?<\/worker>/<worker><\/worker>/g;

但是，只有当您可以保证 < code>标签不嵌套。以下字符串将导致错误：

<worker> lalala <worker> bababa </worker> lalala </worker>

要真正好且安全地完成这项工作，您需要使用诸如 HTML::TreeBuilder 或 XML::Twig 之类的解析模块