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

我有变量$pos，$toRemove和$line。我想从位置$toRemove的此字符串$pos中删除​​。

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

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

你能给我一个解决方案吗？我可以使用很多循环和变量来完成此操作，但是它看起来很奇怪并且工作非常缓慢。

最佳答案

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