Comparar dos arrays con perl

Mediante éste snippet coneguiremos cruzar dos arrays y obtener los elementos que no están en alguno de los dos arrays dados. Como puede observarse, es ejecutado desde la linea de comandos, pero puede incluirse en un script.

$ perl -le'
@array1=(1,2,4,6,7,8);
@array2=(1,2,3,5,6,7);
 
  map $count{$_}++ , @array1, @array2;
 
  $, = ",";
 
  print grep $count{$_} == 1, @array1, @array2;
'
 
AL ejecutarlo, obtendremos como resultado: 4,8,3,5

Lenguaje:

perl

Enviado por jhernandez el Lun, 21/12/2009 - 10:17.

Tags:

comparar arrays
perl

Añadir nuevo comentario

Comentarios

marias:

Con lo sencillo y claro que queda en java:

List<Integer> array1 = Arrays.asList(new Integer[]{1,2,4,6,7,8});

List<Integer> array2 = Arrays.asList(new Integer[]{1,2,3,5,6,7});

array1.retainAll(array2);

for(Integer i : array1)

System.out.print(i + " ");

05/01/2010 - 19:36

responder