やあ、
私は明らかに問題を説明させてください：
私のファイルにするのエントリみましょう：

lion,tiger,bear
apple,mango,orange,apple,grape
unix,windows,solaris,windows,linux
red,blue,green,yellow
orange,maroon,pink,violet,orange,pink

$fname=<STDIN>;
chomp $fname;
open(file,"<$fname");
$found_dups=0;

for $line(<file>)
{
  chomp $line;
  @arr=split(/,/,$line);
  for($i=1;$i<=$#arr;$i++)
  {
     for($j=$i+1;$j<=$#arr;$j++)
     {
        if($arr[$i] eq $arr[$j])
        {
           print "tid $arr[0]\n";
           $found_dups++;
        }
     }
  }
}
print "Found $found_dups duplicates\n";

Pythonの場合は、ここでは代替のneater ：

#!/usr/bin/python
for line in open("file"):
    line = line.strip().split(",")
    if len(line) == len(set(line)):
        print "No change"
    else:
        print ','.join(line)

# ./test.py
No change
apple,mango,orange,apple,grape
unix,windows,solaris,windows,linux
No change
orange,maroon,pink,violet,orange,pink

awkは- Fが、 ' （
（私\u003d 1 ;私<のNF ;のI + + ）
（
（私はJ \u003d 1 ; J < \u003dのNF ; J + +の）
（
もし（ $私\u003d\u003d $ J ）を（ $私は" ： " $ 0 ）を印刷
）
）
） ' < < ENDOFFILE
ライオン、トラ、クマ
リンゴ、マンゴー、オレンジ、リンゴ、ブドウ
UNIXは、 Windows版、 Solaris 、 WindowsやLinux
、 、 、青緑赤黄色
オレンジ色、えび茶色、ピンク、紫、オレンジ、ピンク
ENDOFFILE
リンゴ：アップル、マンゴー、オレンジ、リンゴ、ブドウ
窓： UNIXは、 Windows版、 Solaris 、 WindowsやLinux
オレンジ色：オレンジ、えび茶色、ピンク、紫、オレンジ、ピンク
ピンク：オレンジ、えび茶色、ピンク、紫、オレンジ、ピンク

やあ、
Thanxの提案。私は、ジョブのスクリプトのさまざまなバリエーションで、しかし私は" 1つのコマンドを実行することができます午前熱心/コマンドをパイプ"は、仕事をすることができます理解しています。各ラインのエントリがある場合のみ、特定の番号を、私はしている手動コマンドでそれらを比較することができますAwkのラインを使用して/perlの。しかし、私dontはない知っている。各ラインのエントリは、面倒な作業です。
もしこれらのスクリプトのコマンドをパイプのバージョンを取得私は賢明だろう。

ありがとう
Srini

Srini 、私はあなたの不本意のスクリプトを使用するように理解することがよく分かりません。は、下記のスクリプトを試す可能性があるということ。非常に短いですが、効率的ではない。

perl -nle 'print if /(^|,)([^,]+)(,|,.*,)\2(,|$)/;' <file

再び perlの、
しかし多くの単純な

#! /opt/third-party/bin/perl

open(FILE, "<", "file") || die "Unable to open file <$!> \n";

while(chomp($var=<FILE>)) {
  @arr = split(/,/, $var);
  foreach(@arr) {
    if( exists $fileHash{$_} ) {
      print $var . "\n";
      last;
    }
    else {
      $fileHash{$_} = $i++;
    }
  }
  %fileHash = ();
}

close(FILE);

exit 0

やあ、
私は間違いだと思う。
私は、この質問を投稿このような要件があったが、これは、 "コマンドライン"のバージョンについてguyz聞いて私は自分が運転した私の好奇心 perlの プログラムすることができる。それは私は投稿が、スクリプトを無視午前1 -ライナーは、私の私の知識の拡大を望んではない（私）のライナーに向けての魅力があります。

自分の傲慢された証書はすみません。

ありがとう、
Srini