perl - 如何从某个位置的字符串中删除字符？

Question

我有变量 $pos 、 $toRemove 和 $line 。我想从这个字符串中删除 $toRemove 位置 $pos 。

$line = "Hello kitty how are you kitty kitty nice kitty";
$toRemove = "kitty";
$pos = 30; # the 3rd 'kitty'

我想检查从位置 30 是否有字符串 kitty 并且我想完全删除这个字符串。

你能给我一个解决方案吗？我可以使用很多循环和变量来做到这一点，但它看起来很奇怪，而且工作速度很慢。

Answer 1

if (substr($line, $pos, length($toRemove)) eq $toRemove) {
    substr($line, $pos, length($toRemove)) = "";
}