[Perl] Text::CSV_XSとquotewords

こんばんは。
肩こりがなかなか治らないおじいさんです。
どこぞの本で鍼がうそっぱちだとか書いてありましたけれど、肩こりは効きます。でも、そのほかの内臓系とか言われるとどーなんでしょうね。
それはともかく、Text::CSV_XSの件です。

Text::CSV_XSを使って、quotewordsを駆逐しようとしてるんですよ。
理由は、quotewordsが遅いから。

でも、うかつにText::CSV_XSにいこうすると、parse時にエラーになってしまう。
んで、大体以下のようなオプションを指定する。


my $csv = Text::CSV_XS->new({
  binary => 1,
  escape_char => '\\',
  allow_loose_quotes => 1,
  allow_loose_escapes => 1,
});



日本語:○
\\:○
\":○
\":○
':○
!#$%&\'()=~|`*+_?><,.//\]]:;[@\^-の各文字:○

しかし、これだけではダメな場合があったんだよなあ。なんだろう。chrの組み合わせでテストをつくりゃいいのか、なんだろう。。。
うーむ。

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック