Question

perl 同一行中删除匹配字符串?

Answer 1

有@-和@+可以使用分别是匹配到字串的起始和终止位置
实例如下：
while (<DATA>) {
	keep_unmatch(qr/(test) \w+ (\d+)/);
	print;
	keep_unmatch(qr/Gogo Test (\w+) \d+ (\w+)/);
	print;
}

sub keep_unmatch {
	my $r = shift;
	if (/$r/g) {
		my $s;
		my $e = 0;
		my $n = 1;
		for my $n(1 .. $#-) {
			if ($-[$n] > $e) {
				$s .= substr($_, $e, $-[$n] - $e);
			}
			$e = $+[$n];
		}
		if ($e < length($_)) {
			$s .= substr($_, $e, length($_) - $e);
		}
	    $_ = $s;
	}
}
__END__
test word 123 left test yaya 123
Gogo Test yaya 456 gogo

Answer 2

my $str = 'Set {bb/ab/cd ab/dd/ff ab/cd/ml} on';
$str =~s/\s{0,}[a-zA-Z\/]{0,}ab\/cd[a-zA-Z\/]{0,}\s{0,}//g;
print $str;