Perlでのテキスト処理について
Perlでのテキスト処理について質問です。
テキストファイルの中身が下記のようになっています。
【テキスト編集前】
---------------------------------------
test ,abc ,AB ,VI ,SS ,ma ---1行目
test ,abc ,AC ,PI ,VS ,ma ---2行目
test ,abc ,BA ,SS ,VS ,ma ---3行目
test ,abc ,BA ,VI ,VS ,ma ---4行目
test ,cde ,AA ,VI ,SS ,mb ---5行目
test ,cde ,CC ,PE ,VS ,mb ---6行目
test ,cde ,BC ,PI ,SS ,mb ---7行目
test ,cde ,AC ,PI ,SS ,mc ---8行目
---------------------------------------
2列目(abc/cde)と6列目(ma/mb/mc)が同じ行に対しては
1行にまとめて出力したいと思っています。
この時、1列目、4列目、5列目はマージした形にし
(同一文字は一度だけ出力、同一でない文字は/区切りで出力)、
2列目、6列目は同一文字をそのまま出力し、
3列目に関しては、該当する行の先頭行の文字列を
出力したいと思っています。
下記が当方の希望しているPerl実行後の出力結果です。
【テキスト編集後】
---------------------------------------
test ,abc ,AB ,VI/PI/SS ,SS/VS ,ma
test ,cde ,AA ,VI/PE/PI ,SS/VS ,mb
test ,cde ,AC ,PI ,SS ,mc
---------------------------------------
このような編集をPerlで実行したいと思っているのですが、
どのような記述をすれば実行できるのか教えて頂けないでしょうか。
当方、Perlを始めたばかりで基本的なことを
伺っているのかもしれませんが
すみませんが、ご了承ください。
宜しくお願いいたします。
お礼
ありがとうございます。 問題なくできました。 perl環境がなかったので、sedでやってみました。 こういうの使えると、仕事が楽ですよね。 もっと勉強します。 ありがとうございました。