Что не так с этим кодом Perl?

Question

$value = $list[1] ~ s/\D//g;

синтаксическая ошибка в строке 53 try1.pl, рядом с "] ~"

Выполнение try1.pl прервано из-за ошибок компиляции.

Iя пытаюсь извлечь цифры из второго элемента @list и сохранить его в $value.

Answer 1

Вы имеете в виду = ~, а не ~.~ является унитарным побитовым оператором отрицания.

Пара способов сделать это:

($value) = $list[1] =~ /(\d+)/;

Оба набора паренов важны;только в случае захвата скобок операция сопоставления возвращает фактическое содержимое, а не просто указание на успех, и только в контексте списка (предоставляется оператором list-assign ()=).

Или общая идиомаскопировать, а затем изменить:

($value = $list[1]) =~ s/\D//;

Answer 2

Вы сказали в комментарии, что пытаетесь избавиться от нецифровых цифр. Похоже, вы пытаетесь сохранить старое значение и получить измененное значение в новой переменной. Perl идиома для этого:

 ( my $new = $old ) =~ s/\D//g;

Answer 3

может быть, вы хотели оператора =~?

P.S. обратите внимание, что $value не получит назначенную результирующую строку (сама строка изменяется на месте). $value будет присвоено количество выполненных замен

Answer 4

И хотел \d igits не non-\D igits. И есть лишний оператор s/ ubstitute, где совпадение имеет больше смысла.

if ($list[1] =~ /(\d+)/) {
    $value = $1;
}