Perl:如何使用起始字符拉出所需的字符串,但也需要包含它们？

Question

我有这个字符串

my $word = "Chase_^%798(987%55,.#*&^*&Chase_$&^**&(()%%hjjlhh";

期望的输出是

Chase_^%798(987%55,.#*&^*&
Chase_$&^**&(()%%hjjlhh

字符串"Chase_"是我应该将它们分开的唯一线索.使用split我失去了字符串"Chase_".然后我应该连接它们.我对如何分割它没有任何想法,但也"Chase_"应该存在字符串

Answer 1

使用前瞻:

my $str = 'Chase_^%798(987%55,.#*&^*&Chase_$&^**&(()%%hjjlhh';
my @list = split(/(?=Chase_)/, $str);
say Dumper\@list;

输出:

$VAR1 = [
          'Chase_^%798(987%55,.#*&^*&',
          'Chase_$&^**&(()%%hjjlhh'
        ];