Архив форумов ЦИТФорума

[Иришка]

Всем приветик!

Никак не могу отладить функцию сортировки массива, содержащего символьные данные, на перле.

$it=$#tn_sel+1;
$s=0;
while ($s=0)
{
$s=1;
for ($i=1; $i<$it; $i++) {$a=$i-1;
if ($tn_sel[$a] gt $tn_sel[$i]) {$s=$tn_sel[$a]; $tn_sel[$a]=$tn_sel[$i]; $tn_sel[$i]=$s; $s=0;}}
}

Вот такой простенький код, и никак не пойму, в чем ошибка.
Подскажите, если кто-нибудь заметит.

Удачи!
Иришка