Perl

Read Japanese utf-8 CSV File

See more CSV Examples

Demonstrates how to read a utf-8 .csv file containing some Japanese characters. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example program loads a file (japanese.csv)
# that contains this content:
#
# year,color,country,food
# 2001,red,France,cheese
# 2005,blue,"United States",hamburger
# 2008,green,Italy,pasta
# 1998,orange,Japan,sushi
# 2010,silver,"太志","森田"
#

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

# Prior to loading the CSV file, indicate that the 1st row
# should be treated as column names:
$csv->HasColumnNames(1);

# Load the CSV records from the file.
# Important: Make sure to call LoadFile2 so that the charset (utf-8)
# of the CSV file can be indicated.
my $success = $csv->LoadFile2('qa_data/csv/japanese.csv', 'utf-8');
if (!$success) {
    print $csv->LastErrorText, "\n";
    exit;
}

# Display the contents of the 3rd column
my $n = $csv->NumRows;
for my $row (0 .. $n - 1) {
    print $csv->GetCell($row, 2), "\n";
}