Как мне использовать Perl Regex для извлечения значения цифры из '[1]'?

Question

Мой код ...

$option = "[1]";
if ($option =~ m/^\[\d\]$/) {print "Activated!"; $str=$1;}

Мне нужен способ снять квадратные скобки с опции $. $ str = $ 1 по какой-то причине не работает. Пожалуйста, сообщите.

Answer 1

Чтобы заработать 1 доллар, вам нужно записать значение в скобках, используя круглые скобки, например:

if ($option =~ m/^\[(\d)\]$/) {print "Activated!"; $str=$1;}

Answer 2

if ($option =~ m/^\[(\d)\]$/) { print "Activated!"; $str=$1; }

Или

if (my ($str) = $option =~ m/^\[(\d)\]$/) { print "Activated!" }

Или

if (my ($str) = $option =~ /(\d)/) { print "Activated!" }

.. и куча других. Вы забыли захватить ваш матч с помощью () .

EDIT:

if ($option =~ /(?<=^\[)\d(?=\]$)/p && (my $str = ${^MATCH})) { print "Activated!" }

Или

my $str;
if ($option =~ /^\[(\d)(?{$str = $^N})\]$/) { print "Activated!" }

Или

if ($option =~ /^\[(\d)\]$/ && ($str = $+)) { print "Activated!" }

Для $ {^ MATCH}, $ ^ N и $ +, perlvar .

Мне нравятся эти вопросы:)