in reply to Field data missing; copying from other field

Hello pbassnote,

I would suggest that you proceed in three steps:

  1. read the csv file into a suitable data structure, such as an array of arrays (AoA);
  2. create a hash matching employee names to employee groups;
  3. work through the AoA, filling in any missing employee groups from the data in the hash.

For example:

#! perl use strict; use warnings; use Data::Dump; use Text::CSV_XS qw( csv ); my $aoa = csv(in => \*DATA); my %employees; # Make an employee => group hash for my $record (@$aoa) { $employees{ $record->[0] } = $record->[1]; } # Fill in the missing groups for my $record (@$aoa) { $record->[1] = $employees{ $record->[2] } if $record->[1] eq ''; } dd $aoa; __DATA__ Sam Malone,Cheers,Rebecca Howe Woody Boyd,,Rebecca Howe Rebecca Howe,Cheers,Rebecca's Manager

Output:

2:46 >perl 1057_SoPW.pl [ ["Sam Malone", "Cheers", "Rebecca Howe"], ["Woody Boyd", "Cheers", "Rebecca Howe"], ["Rebecca Howe", "Cheers", "Rebecca's Manager"], ] 2:47 >

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,