Perl Requires Chilkat v9.5.0.89+

CSV Insert Column

See more CSV Examples

Insert a new column into an existing CSV. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $csv = Chilkat2::Csv->new;

# Load the following CSV:

#  Name;City;Weight
#  John;Chicago;180
#  Lisa;Denver;120

# Indicate that the 1st line contains column names.
$csv->HasColumnNames(1);
my $success = $csv->LoadFile('qa_data/csv/insertColumnTest.csv');

# We can insert a column before the 1st column.
$csv->InsertColumn(0);

print $csv->SaveToString(), "\n";

# The CSV now looks like this:

#  ;Name;City;Weight
#  ;John;Chicago;180
#  ;Lisa;Denver;120

# Set the cells in column 0.

my $col = 0;
$csv->SetColumnName($col, 'id');
$csv->SetCell(0, $col, '100');
$csv->SetCell(1, $col, '101');

print $csv->SaveToString(), "\n";

# We now have:

#  id;Name;City;Weight
#  100;John;Chicago;180
#  101;Lisa;Denver;120

# Insert a new column between City and Weight
# In other words, add a new column before the Weight column.
my $weightColumn = $csv->GetIndex('Weight');
print 'Weight Column Index = ', $weightColumn, "\n";
$csv->InsertColumn($weightColumn);

print $csv->SaveToString(), "\n";

# We now have:

#  id;Name;City;;Weight
#  100;John;Chicago;;180
#  101;Lisa;Denver;;120

# Set the cells in the new column:

$csv->SetColumnName($weightColumn, 'Height');
$csv->SetCell(0, $weightColumn, '6\' 2"');
$csv->SetCell(1, $weightColumn, '5\' 7"');

print $csv->SaveToString(), "\n";

# We now have:

#  id;Name;City;Height;Weight
#  100;John;Chicago;"6' 2""";180
#  101;Lisa;Denver;"5' 7""";120