perlでgrep使ってカテゴリなどを抽出する時のwhile

よく使う方法か、これが正しいのかどうかはわかりませんが私はよくやります。

2007-03-10 14:33:59

CSVファイルなどのテキストベースのデータファイルを使う際に特定フィールドをカテゴリとして認識させるとき、grepを使って重複している項目を省くというナニです。Shift_jisではうまくいきませんがUTF-8ではうまくいきます。
while(@category >0){[cr]\t@temp = split(/\,/,$category[0]);[cr]\t@category = grep(!/$temp[0]/,@category);[cr]}

コメント欄