unixの初歩的な操作

Question

いつもお世話になっております。
初歩的な質問をすみません。

12345 abcde
ABCD 678
910 EFGH

↓

12345
abcde
ABCD
678
910
EFGH

のように2列あるタブ区切りファイルについて、2列目を対応する1列目の1行下にもっていく操作を御教授頂けたら幸いです。
unix基本操作でなくても、perl、pythonによるものでも構いません。
どうか宜しくお願い致します。

Answer 1

コマンド。
cat data.txt | tr "\t" "\n"

Comments

[退会済みユーザー]

早々の御回答有難う御座います。
かなり初歩的な操作を思いつかなかった自分が少々恥ずかしいです。
お陰様で解決致しました。

[otn]

本題ではないです。
こういう書き方時々見るのですが、
tr "\t" "\n" < data.txt
と書かず、
cat data.txt | tr "\t" "\n"
と書く理由を教えてもらえないでしょうか？

[kodai]

ただの癖ですね。こういう処理って出力をリダイレクトで書き込むことが多いのですが、自分はよく書き方間違えてしまうので、データが左から右に流れてくイメージがあるパイプの方が好きです。

tr "\t" "\n" < data.txt | sort | uniq > output.txt
よりも
cat data.txt | tr "\t" "\n" | sort | uniq > output.txt
の方が直感的というか。ヒアドキュメントが入ってくるとさらに迷ってしまうので。

[otn]

なるほど。ありがとうございます。
< data.txt tr "\t" "\n" | sort | uniq > output.txt
は、ちょっと気持ち悪いですしね。

Answer 2

KSwordOfHasteさんと同趣旨ですが、
perlで書いてみました。

 perl -ane 'print "$F[0]\n$F[1]"' ~/test.txt

「単一のタブ文字である場合」に限るならパラメータを1つ追加します。

 perl -F"\t" -ane 'print "$F[0]\n$F[1]"' ~/test.txt

Comments

[退会済みユーザー]

連日に渡る御回答有難う御座います。
私の現在の仕事は、莫大な数の文字列を扱うのでperlを最も多く用いるために参考になります。
大変恥ずかしながら、bashにおける$1,$2・・・が、perlでは$F[0],$F[1]・・・に相当することを今知りました。利用できそうです。

Answer 3

解決済みなので蛇足ですけど・・・

kodaiさんの回答はフィールドの区切りが単一のタブ文字である場合の方法になると思います。そのようなケースも典型的なケースだと思います。ただファイルの内容の見た目ではタブかどうか不明という場面もあるので、複数のタブや空白で区切られた場合でもよいように、awkを使うのも分かり易い方法の一つかと思います。

awk '{ print $1 "\n" $2 }' data.txt
or
awk '{ print $1; print $2 }' data.txt

Comments

[退会済みユーザー]

詳細な説明を有難う御座います。
確かに、私自身はタブを好んで用いますが、必ずしもファイルがタブのみで区切られている訳ではありませんからね。

Answer 4

pythonコードです。

with open("output.txt", "w") as output:
    for line in open("test.txt"):
        output.write("\n".join(line.split("\t")))

Comments

[退会済みユーザー]

早々の御回答有難う御座います。
私は現在perl, pythonを勉強しておりますので、参考とさせて頂きます。