0158. [Perl] Perl 문법정리 6 sort (언어자료 처리를 위한 Perl)

sort 사용하기

올림차순 (1 2 3 4 5 ..)

sort {$a <=> $b;} @list;

 

내림차순 (9 8 7 6 5 ..)

sort {$b <=> $a;} @list;

 

#!/bin/perl

@arr = qw { 1 3 5 9 2 7 3 };

print "@arr \n";

@sarr = sort{ $a cmp $b } @arr;

print "@sarr \n";

[ec :/usr7/ec/oany/perl]#st.pl

1 3 5 9 2 7 3