Perl 펄] 2차원 배열 화면 출력 예제 소스 코드; 2D, 2Dimensional Array Print

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

# 허접한 2차원 배열 정의
my @main_data = (

[   "ZZZ",   533,  "증권주",     "",        "" ],
[   "bbb",  -436,  "식품주", "05-31", "코스닥" ],
["하하하",   111,    "잡주",      "",       "" ],
[   "TTT",   111,    "잡주",      "",       "" ],
[   "AAA",  1453,  "제약주", "03-31", "코스피" ],
[   "aaa", 64436,  "철강주",      "",       "" ],
["가나다", 64436,  "철강주",      "",       "" ],
[    "EE",   242,  "전력주",      "", "코스피" ],
[   "EEE",   242,  "전력주",      "", "코스피" ],
[   "eee",   242,  "전력주",      "", "코스피" ],
[   "BBB",   643,  "보험주", "05-31",       "" ],

);


print "2차원 배열의 행(Rows)의 개수 = ", $#main_data + 1, "\n";
print "2차원 배열의 열(Columns)의 개수 = ", $#{$main_data[0]} + 1, "\n";
print "-------------------------------------------\n\n";


# 2차원 배열의 1번째 칼럼을 기준으로 문자열을 대소문자 구분없이 정렬
@main_data = sort { lc($a->[0]) cmp lc($b->[0]) } @main_data;

# 2차원 배열 화면에 출력하기
for (my $i = 0; $i <= $#main_data; $i++) {
  print "\n";
  for (my $j = 0; $j <= $#{$main_data[$i]}; $j++) {
    print $main_data[$i][$j], "\t";
  }
}