Create new CSV from existing CSV

Question

I have managed to extract name and email addresses columns from from a CSV.

The email field is the only field that is always there. The name field can be blank, just a first name and sometimes a first name and last name. Like this:

Name, Email
Fred, [email protected]
Wilma Flinstone, wima@flintstones
,[email protected]

What I would like to do is create a new CSV from the above that splits the name into first and last if possible. So the above would look like this:

First Name, Last Name, Email
Fred, ,[email protected]
Wilma, Flinstone, wima@flintstones
,,[email protected]

How could I do this in Perl?

Consider what to do with Pebbles Flintstone Rubble

Borodin
– Borodin

2013-04-08 14:58:05 +00:00
Commented Apr 8, 2013 at 14:58 — Borodin
– Borodin, Commented Apr 8, 2013 at 14:58

devnull · Accepted Answer · 2013-04-08 14:40:35Z

2

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

edited Apr 8, 2013 at 14:40

answered Apr 8, 2013 at 14:25

devnull

124k33 gold badges247 silver badges234 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

imran Over a year ago

If the fullname has 3 or more words, e.g. "Anthony Michael Hall" or "J. R. R. Tolkien", this will not produce the right output.

user1919238 Over a year ago

Note: you can specify a limit for split, which would be a cleaner more efficient way to handle more than 2 word names: perldoc.perl.org/functions/split.html

Collectives™ on Stack Overflow

Create new CSV from existing CSV

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related