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

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

  # 문자열 배열 정의
  my @foo = ( "맹구",
              "배용준",
              "땡칠이",
              "장동건",
              "강수정 아나운서",
              "송창식",
              "황당해",
              "고은아"
             );



  @foo = sort @foo;              # 가나다 순으로 정렬
  print $_, "\n" foreach (@foo); # 배열 출력


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


  @foo = reverse sort @foo;      # 다나가 역순으로 정렬
  print $_, "\n" foreach (@foo); # 배열 출력