|
タブ区切りテキストを split /\t/ で切って各フィールドを変数に読み込み、 join "\t" で戻そうとすると、 場合によってはデータが抜けていることがあるので困ります。 タブ区切りデータを a, b, c, d、タブを->であらわすと、 split /\t/, "a->b->c->d" ＝＞ (a,b,c,d) split /\t/, "a->->c->d" ＝＞ (a,c,d) split /\t/, "a->b->->d" ＝＞ (a,b,d) split /\t/, "a->->->d" ＝＞ (a,d) split /\t/, "a->b->->" ＝＞ (a,d) ということで、 1 while $str =~ s/\t\t/\t♪\t/; @list = split /\t/, $str; for (@list) { s/♪//; # $_ は @list の要素を参照する。♪がデータにないと仮定 } とかやってるんですが、いかにもダサいですね。 もっと常道はあるんでしょうか？ Excel で編集すると a->b->->\n が a->b\r\n となってしまうのも 困る。 |