Re: Search/Replace within fields of CSV

[CountZero]

If you can edit the CSV file and add a first line with field names (I used "First,Second,Third,Fourth,Fifth,Sixth,Seventh,Eight"), then you can use DBI and SQL to do this job for you.

use Modern::Perl;
use DBI;

my $dbh = DBI->connect(
    "dbi:CSV:",
    undef, undef,
    {
        f_ext      => '.csv',
        f_dir      => 'D:/Perl/scripts',
        RaiseError => 1,
    }
) or die "Cannot connect: $DBI::errstr";

$dbh->do(q/UPDATE test SET First = 'CONDENSED' WHERE test.First = 'C'/
+);
$dbh->do(q/UPDATE test SET First = 'FINAL' WHERE test.First = 'F'/);
$dbh->do(q/UPDATE test SET Fifth = 'Ohio' WHERE test.Fifth = '0H'/);
$dbh->do(q/UPDATE test SET Fifth = 'Oregon' WHERE test.Fifth = '0R'/);