Непростая сортировка.

Иногда нужно отсортировать данные как числа, но сами данные не совсем числа, а сборная солянка из цифр и букв

Допустим у вас есть такие данные: 90A,89B,90C,102A,89A ;) их нужно отсортировать по возрастанию - на самом деле - код очень простой:



use Data::Dumper;

sub exsortproc
{
return $a<=>$b if ($a != $b) ;
return $a cmp $b;
};


my @data=('90A','89B','90C','102A','89A');
my @out;
@out = sort exsortproc @data;

die Dumper(\@out);


Output:

$VAR1 = [
'89A',
'89B',
'90A',
'90C',
'102A'
];

Все дело в том что если нужно перл кастует скаляр '90A' к числу 90.

Успехов вам и побольше 90C :)

Рабочее

На работе есть вроде внутреннего корпоративного сайта, так вот с недавних пор он стал странно грузиться.
Боковая панель - подгружалось полностью где-то за 15 секунд.

Искали и нашли причину, в футоре стоял счетчик, сервер который сейчас не доступен, причем ответ что от сервера отрубает именно по таймауту.

Обитель зла 4 vs Блэйд-ХЗ

Вчера посмотрел обитель зла в 3D, пипец хрень полная - начало так вообще подумал от сучки какие, а потом это мнение закрепилось.

Нет, я не против пары трупов, но ведь хороших когда убивают, значит это - плохой?

Затем эти новые зомби - пипец, лучшие зомби - это "рассвет мертвецов" а эти - как тетки из СССР в очереди за колбасой - и догонят и загрызут!

Эти раскрывающие рты и красные глаза у супер-злодея? Это точно не вампиры из блэйда? Чувствуется один и тот-же реквизит.

Фильм - гавно. Может в три дэ вам было лучше видны сиськи, но все равно это не спасет сюжет