Text::CSV::Simpleの使い方。
NAME
Text::CSV::Simple
METHODS
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をフィールド名を使ってアクセス