perlでファイルを読み込んだ順で重複行チェック
perl初心者です。
ファイルを読み込んで重複行について以下の処理をおこないたいです。
ハッシュを使えば比較的苦労しないでできそうなのですが、
ファイルを読み込んだ順に出力をしたいので悩んでいます。
アドバイスをお願いします。
やりたいこと。
・タブ区切りのファイルを読み込む
・ファイルの出力順は入力ファイルの上から順とし、並び替えを変えたくない。
・重複行だけのファイルと重複していないファイルを作りたい。←パターン1,パターン2
例)
以下の入力ファイル(タブ区切り)についてidをキーに重複行チェック
入力ファイル
id name age
1 質問一郎 20
2 質問和美 30
3 質問次郎 40
1 回答花子 50
3 回答太郎 22
・パタン1の出力
重複ファイル
1 質問一郎 20
1 回答花子 50
3 質問次郎 40
3 回答太郎 22
ユニークファイル
2 質問和美 30
---------------------
・パタン2の出力
※
重複ファイル
1 質問一郎 20
1 回答花子 50
3 質問次郎 40
3 回答太郎 22
ユニークファイル
1 質問一郎 20
2 質問和美 30
3 質問次郎 40
パターン2の場合、ユニークファイルには最初に読み込んだ重複ファイル1行分も出力させる。
お礼
そうでしたね、桑田次郎さんは二郎に改名したんですね。珍しいケースでしょうね。 つのだじろうさんはどっちかと調べたら、残念ながら「次朗」さんでした(笑)。 田宮二郎さん、亡くなり方も強烈でした。 坂上二郎さん、病気から復帰してお元気です。 赤川次郎さん、小説の題名が素敵です。 冠次郎さん、歌以上に芸名が印象的です。 ・・・互角の感じでしょうかね? ありがとうございました!