0

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でこれを行うにはどうすればよいですか?

4

1 に答える 1

2 
($fullname, $email) = split(/,/);
($first, @last) = split(/ /, $fullname);
print join(',', $first, "@last", $email), "\n";
于 2013-04-08T14:25:30.990 に答える