regex - Perl:如何使用起始字符提取所需的字符串但还需要包含它们？

Question

我有这个字符串

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

期望的输出是

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

字符串 "Chase_" 是唯一的线索，我应该使用它来区分它们。使用 split 我丢失了字符串 "Chase_"。然后我应该将它们连接起来。我对如何拆分它一无所知，但字符串 "Chase_" 应该存在。`

Answer 1

使用lookahead :

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

输出:

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