Получения Ошибки модификации только для чтения значения попытки

Question

Я пытаюсь выбрать ниже значение из базы данных:

отчетности, что одна из @its многих проблем были недавние @ продлен спад продаж в женских одежды, розничный торговец из семи магазинов сказал, что начнет трехмесячную ликвидационную продажу во всех своих магазинах. ~ (A) его многие проблемы были в последнее время (B), многие его проблемы были недавно связаны с ~ (C) его многочисленные проблемы - это недавние ~ (D) их многочисленные проблемы. - это недавняя ~ (E), их многочисленными проблемами были последние:

я выборе этого значения в переменной $ Ques, а затем выбрать текст, как показано ниже:

$ques=~s/^(.*?)\@(.*?)\@(.*?)$/$2/; 

Теперь, заменяя ~ символ в строке по

$3=~s/~/\n/g; ---->line 171 

и запустив script, Я получаю одну за одну отправную запись:

Modification of a read-only value attempted at main.pl line 171 

Я хочу заменить все символы ~ \ n 'и напечатать окончательное значение. Пожалуйста, предложите, как это сделать.

* Я исследовал это в сети, но запутался, что как обрабатывать эти переменные только для чтения.

Answer 1

Это походит на то, что вы действительно хотите в этом случае split, а не регулярные группы захвата выражение:

my @parts = split(/@/, $ques); 
$parts[2] =~ s/~/\n/g; 

Это делает цель вашего кода понятнее так как вы, по сути, раскалываете на @ символы.

Answer 2

Как вы говорите, специальные переменные , $2 и т. Д. Доступны только для чтения, а это означает, что вы не можете выполнять эту замену.

Выполнение замены на $ques будет делать то, что вам нужно:

$ques =~ s/~/\n/g; 
print $ques; 

Обратите внимание, что в более раннем замещении, что вы выполняете на $ques вы избавляетесь от всех ~ символов.

Answer 3

У вас уже есть хорошее объяснение проблемы Хосе Кастро. Но есть другое решение, если вы используете обновленную версию Perl (Update:, проверив более тщательно, я считаю, что это означает 5.14+). Аргумент /r к оператору подстановки скопирует вашу строку, выполнит замену в копии и затем вернет это измененное значение.

Таким образом, вы могли бы написать:

my $new_value = $3 =~ s/~/\n/rg;