Сортировка массивов

1 сентября 2017 г.
433
Функция сортировки элементов массива для Perl.
 
sub arrays_sort_elements{
my @TempArray=@_;
@TempArray=join(' ', sort {$a<=>$b} @TempArray);
return @TempArray;
}
 
my @MyArray = qw(4 11 1 2 10 3 7);
print &arrays_sort_elements(@array);
#Результат: 1 2 3 4 7 10 11
Поделиться: