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)) = "";
}

Answer 2

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

pos($line) = $pos;
$line =~ s/\G$toRemove//gc;
print $line;

出力：

Hello kitty how are you kitty  nice kitty

Answer 3

さらに別の方法：

$line = "Hello kitty how are you kitty kitty nice kitty";
$toRemove = "kitty";
$pos = 30;

$line =~ s/(.{$pos})$toRemove/$1/;
print $line;

結果：

Hello kitty how are you kitty  nice kitty

Answer 4

$line =~ s/^.{30}\K$toRemove//;

これは、後読みアサーションを使用して、置き換えられるパターンの部分にそれらを含めずに、最初の30文字を照合します。

Answer 5

[ pos] [pos]演算子は、まさにこの種のものの左辺値です。

[pos]：

use strict;
use warnings;

my $line = "Hello kitty how are you kitty kitty nice kitty";
my $toRemove = "kitty";
my $pos = 30;

pos($line) = $pos;

$line =~ s/\G$toRemove//;

print $line;

出力

Hello kitty how are you kitty  nice kitty