Perl

Create CSV File

See more CSV Examples

Demonstrates how to create a new CSV file with some simple content. Perl

use chilkat();

$success = 0;

# This sample code creates a new CSV file (sample.csv)
# that contains this content:
# 
# year,color,country,food
# 2001,red,France,cheese
# 2005,blue,"United States",hamburger

$csv = chilkat::CkCsv->new();

# Indicate that the 1st row
# should be treated as column names:
$csv->put_HasColumnNames(1);

$success = $csv->SetColumnName(0,"year");
$success = $csv->SetColumnName(1,"color");
$success = $csv->SetColumnName(2,"country");
$success = $csv->SetColumnName(3,"food");

$success = $csv->SetCell(0,0,"2001");
$success = $csv->SetCell(0,1,"red");
$success = $csv->SetCell(0,2,"France");
$success = $csv->SetCell(0,3,"cheese");

$success = $csv->SetCell(1,0,"2005");
$success = $csv->SetCell(1,1,"blue");
$success = $csv->SetCell(1,2,"United States");
$success = $csv->SetCell(1,3,"hamburger");

# Write the CSV to a string and display:

$csvDoc = $csv->saveToString();
print $csvDoc . "\r\n";

# Save the CSV to a file:
$success = $csv->SaveFile("out.csv");
if ($success != 1) {
    print $csv->lastErrorText() . "\r\n";
}