Perl разделить строку и разделитель печати тоже

Question

У меня есть строка и разделение относительно двоеточия (:) или точки с запятой (;), за которым следует пробел.

Вот фрагмент кода.

my $string = "MAJOR RCB_Board: Circuit Disconnected";

my ($rest, $text) = split(/;|:\s+/, $string);
print "Rest=$rest ** Text=$text\n";

Но здесь я хочу распечатать разделитель разделителя также со строкой. В этом примере (:).

Так что я должен получить вывод, как показано ниже:

Rest=MAJOR RCB_Board: ** Text=Circuit Disconnected

Answer 1

Вы можете поймать (часть) разделителя, поместив его в скобки.

Например:

my $string = "MAJOR RCB_Board: Circuit Disconnected";

my ($rest, $separator, $text) = split(/(;|:)\s+/, $string);
print "Rest=$rest$separator ** Text=$text\n";