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]}
コメント欄