うまい棒の断片

■ [perl]Text::CSVでCSV処理 13:13

• http://blog.livedoor.jp/dankogai/archives/50765677.html
• http://hosho.ees.hokudai.ac.jp/~kato/perl_script/text_csv.html

単純なCSVなら

split ',', $_;

でいいけど、クォートしてる場合などは困ってしまうっていう時のお話。

Text::CSV

parseメソッドが成功したらfieldsメソッドでデータ取得。

use Text::CSV;
my $csv = Text::CSV->new();
while (my $line = <>) {
  if ($csv->parse($line)) {
    my @columns = $csv->fields();
    ## ほげほげ
  }
  else {
    my $err = $csv->error_input;
    warn "csv parse() failed on argment: $err\n";
  }
}