从现有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";