s///
の代わりに演算子を使用する必要がありますtr///
。
最初のものは「置換」を意味します。これは、(指定されたパターンに一致する) テキストの一部を他のテキストに置き換えるために使用されます。例えば:
my $x = 'cat sat on the wall';
$x =~ s/cat/dog/;
print $x; # dog sat on the wall
2 つ目は「文字変換」を意味します。これは、ある範囲の記号を別の範囲に置き換えるために使用されます。
my $x = 'cat sat on the wall';
$x =~ tr/cat/dog/;
print $x; # dog sog on ghe woll;
ここで起こることは、すべての 'c' が 'd' に置き換えられ、'a' が 'o' になり、't' が 'g' に変換されることです。かっこいいですね。)
Perl ドキュメントのこの部分は、より多くの啓発をもたらします。)
PSそれがスクリプトの主な論理的問題でしたが、他にもいくつかあります。
最初に、入力文字列から末尾記号 ( ) を削除する必要がありchomp
ます。そうしないと、パターンが一致しない可能性があります。
次に、 expression の最初の部分でquotemeta
call を\Q...\E
sequence に置き換え、2 番目の部分からは完全に削除する必要があります (パターンではなくtexts///
に置き換えるため)。
最後に、グローバル変数の代わりにレキシカル変数を使い始めることを強くお勧めします。そして、それらを使用する場所のできるだけ近くで宣言します。
したがって、次のようになります。
# these two directives would bring joy and happiness in your Perl life!
use strict;
use warnings;
my $original = "\nThe cat is on the tree";
print $original;
print "\nEnter the word that want to replace: ";
chomp(my $word_to_replace = <>);
print $word_to_replace, "\n";
print "\nEnter the new word for string: ";
chomp(my $replacement = <>);
print $replacement, "\n";
$original =~ s/\Q$word_to_replace\E/$replacement/;
print "The result is:\n$original";