拆分2条线

Question

任何人都可以通过正则表达式来帮助我分割这个

BRANDT RAYMOND W & C M TRS 970 CASTLE HILL RD, REDWOOD CITY, CA 94061

我想要$1 = BRANDT RAYMOND W & C M TRS 970和$2 = CASTLE HILL RD, REDWOOD CITY, CA 94061

我不知道如何设置第一场比赛应以数字结尾的条件，然后是空格，第二场比赛将以“C＆＃39;

开头

Answer 1

my $line = 'BRANDT RAYMOND W & C M TRS 970 CASTLE HILL RD, REDWOOD CITY, CA 94061';

$line =~ /(.*?\d)\s(C.*)/;

print "$1\n$2\n";

Answer 2

您可以将split与外观断言一起使用：

my ( $first, $second ) = split /(?<=\d)\s+(?=C)/, $string, 2;

这将占用可能不需要的空白。