Perl

CSV Enable Quotes

Explains the EnableQuotes property for the CSV class. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# The CSV in this example contains this:   test;"123;abc";xyz

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

# EnableQuotes is 1 by default, but we'll explicitly set to 1 here:
$csv->EnableQuotes(1);
my $success = $csv->LoadFile('qa_data/csv/enableQuotes.csv');

# Show row 0, column 0
print $csv->GetCell(0, 0), "\n";
# Show row 0, column 1
print $csv->GetCell(0, 1), "\n";
# Show row 0, column 2
print $csv->GetCell(0, 2), "\n";

# Output is:
#  test
#  123;abc
#  xyz

# -------------------------------------------
# Turn off EnableQuotes and see what happens:

my $csv2 = Chilkat2::Csv->new;
$csv2->EnableQuotes(0);

$success = $csv2->LoadFile('qa_data/csv/enableQuotes.csv');

print $csv2->GetCell(0, 0), "\n";
print $csv2->GetCell(0, 1), "\n";
print $csv2->GetCell(0, 2), "\n";
print $csv2->GetCell(0, 3), "\n";

# Output is:

#  test
#  "123
#  abc"
#  xyz