Re: Need doubled quoted values

use Text::CSV_XS "csv";
my $n = csv (in  => "pm1118344b.csv", key => "name");
csv (in => csv (
         in      => "pm1118344a.csv",
         headers => "auto",
         on_in   => sub { $_[1]{$_} = $n->{$_[1]{name}}{$_} for "birth
+", "birthplace" }),
     sep     => "^",
     headers => [qw(name state location school birth birthplace)],
     );

=>

name^state^location^school^birth^birthplace
"Jones, Jenny"^Connecticut^"New Haven"^"Yale University"^1950^Middleto
+wn
"Jones, James"^Massachusetts^Boston^"Harvard University"^1954^Springfi
+eld
"Smith, John"^"New York"^Ithaca^"Cornell University"^1953^Albany
"Williams, David"^"New York"^"New York"^"Columbia University"^1954^Pit
+tsfield
[download]

Enjoy, Have FUN! H.Merijn

Comment on Re: Need doubled quoted values Download Code

Replies are listed 'Best First'.
Re^2: Need doubled quoted values by Anonymous Monk on Mar 02, 2015 at 09:55 UTC
So "csv()" is slurping the files into memory?	[reply]
Re^3: Need doubled quoted values by Tux (Canon) on Mar 02, 2015 at 10:53 UTC
Or parts of it (using `fragment` and/or `filter`), or not at all. Depends on how you call it, but basically, yes. Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]