如何使用逗号后面的空格逗号后获取值

Question

在Perl中，你如何使用像......这样的字符串。

Doe, John

并获取逗号后的第一个名称值，因为逗号后面有空格？

Answer 1

试试这个：

use strict;
use warnings;

my $string = 'Doe, John';

my ($lname, $fname) = map { s/^\s+//;  # strip leading spaces
                            $_         # return the modified string
                        } split ',', $string;

print "$fname\n";

Answer 2

($lname,$fname) = split(/,\s+/,$string,2);

split您找到逗号后跟一个或多个空白字符的字符串。