perl - 从现有 CSV 创建新 CSV

Question

我设法从 CSV 中提取姓名和电子邮件地址列。

电子邮件字段是唯一始终存在的字段。姓名字段可以是空白的，只有名字，有时是名字和姓氏。像这样：

Name, Email
Fred, fred@flinstones.com
Wilma Flinstone, wima@flintstones
,barny@rubble.com

我想做的是从上面创建一个新的 CSV，如果可能的话，将名称分成第一个和最后一个。所以上面看起来像这样：

First Name, Last Name, Email
Fred, ,fred@flinstones.com
Wilma, Flinstone, wima@flintstones
,,barny@rubble.com

我怎么能在 Perl 中做到这一点？

Answer 1

($fullname, $email) = split(/,/);
($first, @last) = split(/ /, $fullname);
print join(',', $first, "@last", $email), "\n";