Perl/펄] 배열 요소 순서 랜덤하게 무작위로 뒤섞기(셔플); Array Random-Shuffle

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

use List::Util qw(shuffle);

  ###################################################
  # 배열 요소 랜덤하게 섞기
  my @a = qw( AAA BBB CCC DDD EEE ZZZ );

  @a = shuffle @a;
  print "$_ " foreach @a;
=pod
  출력 결과 (다음과 같은 식으로 출력):
  EEE CCC BBB AAA ZZZ DDD
  BBB AAA EEE ZZZ DDD CCC
  CCC DDD EEE AAA ZZZ BBB
=cut




  print "\n\n"; # 줄바꿈
  ###################################################
  # 리스트 요소 무작위로 섞어서 출력
  @a = shuffle 0..5;
  print "$_ " foreach @a;
=pod
  출력 결과 (다음과 같은 식으로 출력):
  1 4 3 5 0 2
  4 2 5 3 0 1
  1 5 4 3 0 2
=cut




  print "\n\n"; # 줄바꿈
  ###################################################
  # 응용: 지정한 범위의 숫자에서만 랜덤 넘버 출력
  print "$_, " foreach shuffle 3..9;
=pod
  출력 결과 (다음과 같은 식으로 출력):
  8, 3, 4, 9, 5, 6, 7,
  5, 4, 7, 8, 6, 9, 3,
  9, 7, 8, 3, 6, 4, 5,
=cut