как заменить ЭОД символы в Perl, чтобы получить желаемый результат

Question

Я хочу, чтобы заменить эту строку:

@N9*BM*MSCUMF036299@ 

с:

@N9*BM*MF036299@ 

в Perl.

Я пробовал это, но он не сработал.

#!/usr/bin/perl 
$string = "@N9*BM*MSCUMF036299@"; 
$string =~ s/"N9.BM.MSCU"/"N9*BM*"/; 
print "$string\n"; 

Answer 1

Я попытался это, но он не работал.

$string = "@N9*BM*MSCUMF036299@"; 
$string =~ s/"N9.BM.MSCU"/"N9*BM*"/; 

Поскольку вы использовали двойные кавычки символьной строки, неопределенная массив переменной @N9 интерполировалась, получая $string = "*BM*MSCUMF036299@". Чтобы этого избежать, используйте одинарные кавычки.
Кроме того, котировки в s/"N9.BM.MSCU"/"N9*BM*"/ неуместны.
Правильно:

$string = '@N9*BM*MSCUMF036299@'; 
$string =~ s/N9.BM.MSCU/N9*BM*/;