Text::CSV::Simpleの使い方。

NAME

Text::CSV::Simple

METHODS

new
my $parser = Text::CSV::Simple->new(\%options);

新しく作るとき。optionsはText::CSV_XSと同じ。

read_file
my @data = $parser->read_file($filename);

$filenameにCSVファイルパスを与える。
ファイルの内容を解析し,リストでデータを返す。

want_fields
$parser->want_fields(1, 2, 4, 8);

read_fileをする前に,欲しているデータ列番号を設定しておく。
こうしておくと,設定した番号の列のみリストに入れられる。
番号は0から。

fiels_map
$parser->field_map(qw/id name null town null postcode/);

読み込むデータ列に名前をつけておくことができる。
これをすると各データがハッシュに記録される。

EXAMPLE

#!/usr/bin/perl
use Text::CSV::Simple;

my $parser = Text::CSV::Simple->new({binary => 1});
# binaryを1にしておくことで日本語もOK

my $filename = './hoge.csv';

my @csv = $parser->read_file($filename);
foreach(@csv){
	print join("\t",@csv), "\n";
}
# CSVデータを読み込みタブで繋げる

print $csv[0]->[0], "\n";
# 1行,1列目のデータの表示

$parser->want_fields(0, 3);
@csv = $parser->read_file($filename);
# 1列目,4列目のデータのみを得る

$parser->field_map(qw/date val1 val2 val3 val4/);
@csv = $parser->read_file($filename);
print $csv[9]->{'date'}, "\t", $csv[9]->{'val3'}, "\n";
# 10行目の日付と値3をフィールド名を使ってアクセス