Исходное сообщение
"кто шарит в Perl ! помогите !" Отправлено _seal, 06-Сен-06 19:12
Народ, кто в перле шарит, помогите разобраться! вот есть програмуля которая считает hash #!/usr/bin/perl -l use Math::BigInt; chomp($a = pop); die "Usage: $0 <email address>\n" unless defined $a; $h = Math::BigInt->new(5381); $h = ($h + ($h << 5)) & 0xffffffff ^ ord($_)    for split //, lc($a); print 'hash value: ', $h % 53; напишите чайнику в перле формулу!