UPDATE: Thanks very much. Will work on rewriting and repost. Wish I could vote you all up but I have squandered all my xp for the day.my %fields; #$csvIn is a Text::xSV object. while ($csvIn->get_row()) { ($fields{partner}, $fields{kampagne}, $fields{keywordCluster}, $fields{keyword}, $fields{clicks}, $fields{leads}, $fields{orders}, $fields{jaronVerguetung}, $fields{partnerVerguetung}, $fields{profit}) = $csvIn->extract(qw(partner kampagne keywordCluster keyword clicks leads orders jaronVerguetung partnerVerguetung profit)); #set nulls to empty string. Have to do this or there will be +problems later printing the data rows. (($fields{partner}, $fields{kampagne}, $fields{keywordCluster}, $fields{keyword}, $fields{clicks}, $fields{leads}, $fields{orders}, $fields{jaronVerguetung}, $fields{partnerVerguetung}, $fields{profit}) ) = map { unless ( defined ($_) ) { "" } else + {$_} } ($fields{partner}, $fields{kampagne}, $fields{keywordCluster}, $fields{keyword}, $fields{clicks}, $fields{leads}, $fields{orders}, $fields{jaronVerguetung}, $fields{partnerVerguetung}, $fields{profit} ); }
s/until later/bis bald/
:)
In reply to Text::xSV question - could this be written better? by tphyahoo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |