Michael Blackmore wrote: > I am trying to avoid doing the following on 80 columns > > .... > my ($col1,$col2,.....) = split(/,/); > $col1 = undef unless($col1); > ....
How about using map to do it for you?
my @Fields = map {defined($_) ? $_ : undef} split(/,/);
$sth->execute(@Fields);
--
Simon Oliver
