Hola,
Permítanme explicar claramente el problema:
Deje que las entradas en mi archivo:

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";

Si usted tiene Python, aquí tienes una alternativa limpia:

#!/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, '(
for (i \u003d 1; I <NF; I + +)
(
para (J \u003d I +1; J <\u003d NF; J + +)
(
if ($ me \u003d\u003d $ J) (print $ I ":" $ 0)
)
)
) '<<ENDOFFILE
león, tigre, oso
manzana, mango, naranja, manzana, uva
Unix, Windows, Solaris, Windows, Linux
rojo, azul, verde, amarillo
naranja, marrón, rosa, violeta, naranja, rosa
ENDOFFILE
manzana: manzana, mango, naranja, manzana, uva
ventanas: Unix, Windows, Solaris, Windows, Linux
naranja: naranja, marrón, rosa, violeta, naranja, rosa
rosa: naranja, marrón, rosa, violeta, naranja, rosa

Hola,
Gracias por las sugerencias. Entiendo que el trabajo puede hacerse por diferentes variantes de secuencias de comandos, pero lo que estoy ansioso es de "un solo comando / tubería comando" que pueden hacer el trabajo. Si sólo hay número determinado de entradas en cada línea, puedo comparar manualmente en la línea de comandos usando awk /perl. Sin embargo, desde que no conoce el no. de las entradas en cada línea, la tarea es complicada.
Me gustaría si me ilustrado un tubo versión de estos scripts.

Gracias
Srini

Srini, no estoy seguro si he entendido su reticencia a utilizar los scripts de publicación. Dicho esto, puede probar la secuencia de comandos a continuación. No es muy eficiente, pero es corto.

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

De nuevo con perl,
pero mucho más sencillo

#! /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

Hola,
Creo que estoy equivocado.
Yo había dicho requisito cuando me envió esta cuestión, pero es que mi curiosidad me llevó a preguntar Guyz acerca de la "línea de comandos" versión de lo que mi perl programa podría hacer. No es que me envió descuidar los scripts, pero sólo que quería ampliar mis conocimientos sobre una línea (Tengo una fascinación hacia una línea).

Lo siento si mi escritura, aunque fue arrogante.

Gracias,
Srini