펄/Perl] 숫자 배열 정렬(소팅), sort 함수 사용법: Sort Number Array

#!/usr/bin/perl
use strict; use warnings;

  # 숫자 배열 정의
  my @num = qw( 24 6523.01 9857 51 2 43 90 2 0 0.0 636.62 );


  print "주의! 틀린 방법으로 소팅\n";
  @num = sort @num;
  print $_, "\n" foreach (@num); # 배열 출력


  print "\n------------------\n";


  print "바른 방법으로 숫자 소팅\n";
  @num = sort {$a <=> $b} @num;  # 1,2,3 순으로 정렬; Ascending
  print $_, "\n" foreach (@num); # 배열 출력


  print "\n------------------\n";


  print "바른 방법으로 숫자 역순(Descending) 소팅\n";
  @num = sort {$b <=> $a} @num;  # 3,2,1 역순으로 정렬
  print $_, "\n" foreach (@num); # 배열 출력