搜索和在Perl

Question

代替我想尋找一個句子，與這樣的匹配字符串的哈希值替換：

my $sentence = "abc def hello hi"; 
$sentence =~ s/abc def/$hash{'abc def'}/g; 

，我沒有得到正確的輸出。 任何人都可以幫我嗎？

Answer 1

這個工作對我來說：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my %hash = ('abc def' => 'pqr xyz'); 

my $sentence = "abc def hello hi"; 
$sentence =~ s/abc def/$hash{'abc def'}/g; 

print "$sentence\n"; 

運行時，它打印：

pqr xyz hello hi 

如果這不是你所期望的，什麼是你期待？ （請注意，問題中Perl代碼的原始版本中存在許多拼寫錯誤;我認爲它們是偶然的，但它們可能是解決問題的關鍵。使用use strict;和use warnings;可幫助發現拼寫錯誤的變量名稱等問題。