perlでのcsv形式のテキストファイルの変換
perlを使用してcsv形式のテキストファイルを下記のように変換したいと思っています。
【変換前】
10, abc , def , ghi ,jkl ----1行目
10, abc , def , aaa, bbb ----2行目
10, abc , def , ccc , ddd ----3行目
11, abc , def , eee , fff ----4行目
11, abc , def , aaa , ggg ----5行目
11, zzz , def , aaa , ggg ----6行目
12, abc , def , aaa ,ggg ----7行目
12, zzz , def, aaa , ggg ----8行目
【変換後】
10, abc , def , ghi ,jkl ----1行目
11, abc , def , eee , fff ----4行目
11, zzz , def , aaa , ggg ----6行目
12, abc , def , aaa ,ggg ----7行目
12, zzz , def, aaa , ggg ----8行目
変換内容はcsv形式のテキストファイルで、”,”で区切った先頭3列が
前の行の先頭3列と同じならその行は出力しない、といった
変換をしたいと思っております。
(例えば2行目ですと先頭3列は10, abc ,defになっており、
1行目の先頭3列と同じ文字列になっているためこの行は出力しない)
当方、Perl初心者で上記のようなことがPerlでできるかも
よくわかっておりません。
そこで、上記のような変換はPerlで可能なのか、そしてもし可能であるのなら
どのようにPerlで記述すればできるのか教えていただけないでしょうか。
よろしくお願いいたします。
