たつをの ChangeLog : 2015-01-28

Excel のデータをスクリプトで処理するときは、「Unicode テキスト」で保存するとTSV形式になって扱いやすい。しかし、改行が入りのセルがあると簡単な行単位処理ができなくなり、いろいろと面倒。

「モジュール使え」って話ではあるけど、その場しのぎな簡単な対処方法がある。改行を含むセル（カラム）は必ずダブルクォートで囲まれているので、読込んだ行のダブルクォートを数え奇数だったら次の行も読んで足す、ってロジック。行頭からきちんとパーズしていかないとダメなケースもあるかと思うけど、まあそういうときはゴメン。別な対策を。

サンプルプログラムをのせておきますが、自己責任で。

■コード(tsv0a.pl)：

#!/usr/bin/env perl
use strict;
use warnings;

my $line = "";
while (<>) {
    $line .= $_;
    my @dqm = $line =~ /\"/g; # double quote を数える
    next if @dqm % 2; # 奇数なら次の行を末尾に足す
    { # 何かの処理
        chomp $line;
        print "\nINPUT: [$line]\n";

        ### Case1: カラム中の改行を削除し1行で出力
        $line =~ s/\n//g;
        # print "$line\n";

        ### Case2: カラム単位で処理
        my @c = map {s/^"(.*)"$/$1/gs; $_} split(/\t/, $line);
        # ↑タブで分割し両端の「""」を削除
        print "RESULT: ".join(",", map {qq("$_")} @c)."\n";
    }
    $line = ""; # 処理後は空にする
}

■実行例：

テストファイル(tsv0a-test.txt):

this	foo
that	"foo+
bar"	100
"4/
25"	"31/
365"
hoge	"hoge"	"hoge"
"hoge"	hoge
"hoge"	"hoge/
hoge"	hoge

実行結果:

% ./tsv0a.pl tsv0a-test.txt

INPUT: [this	foo]
RESULT: "this","foo"

INPUT: [that	"foo+
bar"	100]
RESULT: "that","foo+bar","100"

INPUT: ["4/
25"	"31/
365"]
RESULT: "4/25","31/365"

INPUT: [hoge	"hoge"	"hoge"]
RESULT: "hoge","hoge","hoge"

INPUT: ["hoge"	hoge]
RESULT: "hoge","hoge"

INPUT: ["hoge"	"hoge/
hoge"	hoge]
RESULT: "hoge","hoge/hoge","hoge"

なお、これにあわせて3年前に書いたCSVの処理も書き直した。というか、それのアップデートがそもそもの目的。

- PerlによるCSVの読み込みとCSVをTSVに変換するワンライナー[2012-03-09-1]

いつの間にか不動の大人気ブロガーになっている「なるみん」こと鳴海淳義さんによるダイエット本が出るそうです。ブログでもダイエットネタが人気でしたよねえ。

■鳴海淳義 / やせたいならコンビニでおでんを買いなさい

知らなかった！　いつでもどこでも買える「コンビニおでん」で、こんなにダイエットできるなんて。

大人気ブロガーがおすすめする、低カロリー・低糖質の、誰でも続けられる究極のダイエット。

健康には気を使いたいが、自炊している時間がない。忙しくてランチは外食になってしまい、ダイエットに失敗する。

そんな人におすすめなのが、コンビニおでん。今やそのダイエット効果が評価され、一年中売っているコンビニ店舗も登場。

やせる効果の大きいおでんの具の組み合わせ方、いっしょに食べたいコンビニの健康食品、ネットで大反響になったダイエット体験談など、盛りだくさんでお届けします。

以下、おでん語り。

以前書いたのですが、私は「コンビニおでん」は食べない主義です。

- コンビニのおでんは食べません[2007-11-13-2]

しかし、最近はコンビニでおでんの四角い鍋にフタがかってるところが多くなってきました。って、ほとんどのところでフタされてるよなあ。ふたがあってゴミ・ほこりが入りにくくなっているなら買ってもいいかなあ、という心境になっております。

私は結構おでん好きな方で、一人暮らしのときはじゃんじゃか作って何日も連続で食べておりました。そんなわけで、家でおでん作って食べれば良いのですが、なんかうちの息子（4歳）があまりオデンが好きでない様子。あと妻もそれほどおでん好きではない模様。なので、大量に作ってしまうわけにもいきません。

やっぱコンビニおでんかなあ。