[Programación] Duda en como llevar de C a perl... (función anónima)

[Horacio Castellini]

Holas... Abusando de vuestro conocimiento... supongamos que tengo el
arreglo @C con dos campos de los cuales puede haber valores repetidos...
ahora bien el ordenamiento...

@C=sort{$a->[0] cmp $b->[0]} @C;

lexicográfico en caso de empate en el campo uno el campo dos también
debería ser ordenado lexicográficamente... eso en C yo lo resolví con
esto...

int comp_tema(const void *c1,const void *c2)
{
  struct mail r1,r2;
  int res;
  r1=*(struct mail*)c1;
  r2=*(struct mail*)c2;
  if((res=strcmp(r1.tema,r2.tema))==0)
    return strcmp(r1.autor,r2.autor);
  return res;
}

Como se traslada esto a una función anónima para el "sort"... ?

Saludos.


	

	
		
___________________________________________________________ 
1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 
http://correo.yahoo.com.ar