Perl中如何按首个数字分割含空格名称的字符串并提取字段

问题分析 #

你当前的代码存在几个关键问题：

• split(/\s+/, $line, 3) 会拆分名称中的空格，导致无法完整捕获带空格的名称（比如第二个数据行的"Butha-Buthe (Butha-Buthe District)"会被拆成多段）。
• index($line, \d) 写法错误：index 仅支持查找字面字符串，不识别正则元字符\d，无法定位数字位置。
• $line(0, $index) 是无效语法，Perl中截取子串需要用substr函数。

正确解决方案：正则捕获 #

最可靠的方式是用正则表达式的捕获组，直接匹配名称（含任意非数字前的字符）和末尾的两个数字。

完整代码示例

use strict;
use warnings;

while (my $line = <DATA>) {
    chomp $line;  # 移除行尾换行符，避免干扰匹配
    
    # 非贪婪匹配名称，捕获两个数字
    if ($line =~ /^(.*?)\s+(\d+)\s+(\d+)$/) {
        my ($st_name, $val1, $val2) = ($1, $2, $3);
        
        # 验证结果（可根据需求替换为业务逻辑）
        print "名称: '$st_name', 数值1: $val1, 数值2: $val2\n";
    } else {
        warn "无法解析行: $line";
    }
}

__DATA__
Maputsoe 2       1
Butha-Buthe (Butha-Buthe District) 2       1

正则说明

• ^：匹配行的起始位置
• (.*?)：非贪婪捕获任意字符，直到遇到后面的空格+数字组合，确保完整捕获带空格的名称
• \s+：匹配名称与第一个数字之间的一个或多个空格
• (\d+)：捕获第一个数字（任意长度的数字串）
• \s+：匹配两个数字之间的空格
• (\d+)$：捕获第二个数字，$确保匹配到行尾

备选方案：先匹配数字再截取名称 #

如果更习惯先定位数字位置，也可以用以下方式：

use strict;
use warnings;

while (my $line = <DATA>) {
    chomp $line;
    
    if ($line =~ /(\d+)\s+(\d+)$/) {
        my ($val1, $val2) = ($1, $2);
        # $-[0] 获取当前匹配的起始位置，截取前面的内容作为名称
        my $st_name = substr($line, 0, $-[0]);
        $st_name =~ s/\s+$//;  # 移除名称末尾多余的空格
        
        print "名称: '$st_name', 数值1: $val1, 数值2: $val2\n";
    } else {
        warn "无法解析行: $line";
    }
}

__DATA__
Maputsoe 2       1
Butha-Buthe (Butha-Buthe District) 2       1

内容的提问来源于stack exchange，提问作者Zilore Mumba