从模式1的第一次出现中移除子串直到第2次出现模式2 perl

Question

word,word2/word3,word4,word5

如何删除＆＃34; / word3＆＃34; ？包括斜线但留下昏迷？

我对perl仍然很新，所以我无法适应我找到的东西。

Answer 1

您可以使用：

$str =~ s/\\[^,]+//;

或者如果是正斜杠：

$str =~ s~/[^,]+~~;

这将删除（后退）斜杠，之后的每个斜杠都不是逗号。

Answer 2

您可以使用正则表达式s/pattern/replacement/：

my $str = 'word,word2\word3,word4,word5';

$str =~ s/(\w+\,\w+)\\\w+(.+)/$1$2/;

这将产生：word,word2,word4,word5