Моя строка данных такова:
(wlc-nyhy30-a) *
Мне нужно удалить начальную скобку и конечную скобку, которая точно соответствует ) *.
Моя конечная строка должна быть:
wlc-nyhy30-a
Я могу легко удалить начало (, как показано ниже, но мне очень трудно заставить Perl сопоставить и удалить конец строки ) *
Вот первая часть, которая работает:
$output{'prompt'} =~ s/^\(//;
Цените любую помощь. Заранее спасибо.
") *) в целевой строке? 11.10.2019 ) * 12.10.2019 Вы можете использовать:
s/^\((.*)\)\s\*$/$1/
Объяснение:
^ beginning of the string
\( opening parenthese - needs to be escaped with \
(.*) ...a capturing group...
\) closing parenthese - needs to be escaped with \
\s a single space
\* a star - needs to be escaped
$ end of the string
Это соответствует строке в целом, поэтому оно будет применяться к примеру, который вы предоставили в качестве примера ((wlc-nyhy30-a) *), а также оставит нетронутыми другие строки, такие как (wlc-nyhy30-a) a.
Демо:
my $string = "(wlc-nyhy30-a) *";
$string =~ s/^\((.*)\)\s\*$/$1/
print $string, "\n";
Урожайность:
wlc-nyhy30-a
