Снять кронштейн из строки с помощью регулярных выражений в Perl

Question

У меня есть строка, которая выглядит следующим образом:

(ABCD)(ABCDE)(ABCDEF)(ABCDEFG) 

, но я хочу, чтобы сохранить его как это:

ABCDABCDEABCDEFABCDEFG 

в переменной под названием парсер. Код я использую

my ($parser) = $subckt =~ m/\s*(\(.*?)\); 

Здесь $subckt переменная хранит фактические строки в квадратных скобках.

Как получить требуемые данные в переменной $parser. Пожалуйста, помогите. Благодаря

Answer 1

Просто используйте:

$subckt =~ s/[()]//g; 

Answer 2

Если вы просто хотите, чтобы удалить скобки, как следует из названия, оператор подстановки s/// является естественным выбором:

my $subckt = '(ABCD)(ABCDE)(ABCDEF)(ABCDEFG)'; 
my $parser = $subckt; 
$parser =~ s/[()]//g; 

Тем не менее, это немного трудно догадаться, что вы действительно хотите делать и какие возможные входы у вас есть. Основываясь на сломанном регулярном выражении в сообщении, возможно, вы действительно хотите изменить модели \s*\(X\) на X. Если это так, то вместо подстановки, будет проще использовать сопоставление с захвата группы, подобно тому, как вы, кажется, пытались:

my $subckt = '(ABCD)(ABCDE)(ABCDEF)(ABCDEFG)'; 
my ($parser) = join('', $subckt =~ m/\s*\((.*?)\)/g); 

Это также будет работать с входным сигналом как это:

my $subckt = '  (ABCD) (ABCDE)(ABCDEF)(ABCDEFG)'; 

как это работает:

• m/...(...).../g возвращает список совпавших строк захваченный в (...)
• То, что вы хотите, чтобы соответствовать этому веществу в буквальном ( и ), так что выражение на самом деле должно выглядеть m/...\((...)\).../g, обратите внимание на \( и \) за пределы (...) захвата
• Флаг /g является важным (не хватал в ваших), в противном случае сопоставление с образцом остановится после первого матча

Answer 3

Try замена всех occuences кронштейна, к которой флаг г делает

$subckt =~ s/\(//g; 
$subckt =~ s/\)//g; 

Answer 4

инициализировать новую переменную, а затем удалить все несловообразующим символы

(my $parser = $subckt) =~ s/\W//g; 

Или с помощью /r Modifier:

my $parser = $subckt =~ s/\W//gr; 

Answer 5

перевести оператор tr является то, что вам нужно. С помощью модификатора /d (delete) вы можете удалить все символы из списка, которые не имеют соответствующей замены.

Если у вас есть версия 14 или более поздняя версия Perl 5, модификатор /r (неразрушающий) делает его намного более аккуратным.

Эта программа демонстрирует

use 5.014; 

my $subckt = '(ABCD)(ABCDE)(ABCDEF)(ABCDEFG)'; 
my $parser = $subckt =~ tr/()//dr; 

print $parser; 

выход

ABCDABCDEABCDEFABCDEFG