Добрый день. 
Сам я пишу на php, но возникла необходимость переделать одну функцию.
Сама задача (в кратце): есть поиск в магазине. Сначала показываются категории с количеством продуктов в каждой. Задача: не показывать те категории, в которых находятся одинаковые продукты. У каждого продукта есть свой ID.

Задумка такая была: для каждой категории получать "контрольную сумму/хэш/crc/md5", которую потом засовывать в простой массив. 
Для следующей категории делать тоже самое и затем смотреть в массиве, есть ли такая "контрольная сумма/хэш/crc/md5". Если есть - категории одинаковые.
Собственно, если бы я знал, как сравнивать массивы, можно было бы обойтись и без этого гемо всего. 

Итак вопрос: на входе есть массив, как получить его контрольную сумму.
Насколько я знаю, в перле название "хэш" - это не то, что нужно мне (это вроде массив с ключами ). 
Мне нужна... эммм... контрольная сумма массива, т.е. уникальный идентификатор. Что-то наподобие сериализированного массива.

Уф, надеюсь объяснил, что хоть кто-то мог понять.


Заранее спасибо.

# perl -MDigest::MD5=md5_hex -le 'print md5_hex (join "|",@ARGV)' 1 2 3 4 5
19a493ad2f674b646bcecec77644f33d
#

Большое спасибо. Попробую и отпишусь.

вот так вот еще видел, хеш-ключ для nginx с уникальными $file->{srv_id},  $file->{file_id} и т.д.



Это сообщение отредактировал(а) gcc - 26.11.2010, 07:00

# perl -MBenchmark=timethese -MList::MoreUtils=uniq -MDigest::MD5=md5_hex -e '@a = map { rand(100) } 1..100; @b = map { rand(100) } 1..100; timethese ($ARGV[0],{ "a" => sub { md5_hex (join "",@a) cmp md5_hex (join "",@b) },"b" => sub { uniq (@a,@b) == @a } } )' 100000
Benchmark: timing 100000 iterations of a, b...
         a:  3 wallclock secs ( 2.69 usr +  0.00 sys =  2.69 CPU) @ 37174.72/s (n=100000)
         b: 29 wallclock secs (17.69 usr +  0.04 sys = 17.73 CPU) @ 5640.16/s (n=100000)
#

arto,  ваш способ с контрольной суммой сообщит, что (1,2,3) != (3,2,1) 

1. этого не было в условии.
2. данные сразу можно держать сортированными.

Большое спасибо всем!!
В идеале (1,2,3) должно быть равно (3,2,1), но надеюсь, что отсортировать массив я смогу 

если версия перл 5.10 и выше, то можно так


Это сообщение отредактировал(а) ming - 4.12.2010, 10:27

Нельзя так. Читайте доку по смартматчингу.