Perl을 사용하여 단일 열을 오름차순 또는 내림차순으로 정렬

Question

Perl을 사용하여 텍스트 파일 내에서 다음 가격 열을 정렬하려고합니다.

Time Num Size  Price Act | Act Price Size Num  Time 
11:30:12.957 1 3000 11.90 A | A 11.05 500  1  11:30:12.954 
11:30:12.957 1 100 11.75 A | A 14.00 1676 3  11:30:12.957 

나는 배열에 텍스트 파일을 읽고 행에 의해 미세을 분류하지만 내림차순 또는 오름차순 에서 특정 열을 정렬하는 방법을 생각할 수 없다 할 수 있습니까? 일종의 "로 시작하고

use strict; 
use warnings; 

open(my $file_handle, '<', 'Data.txt') or die("Error: File cannot be opend: $!"); 

my @words; 

while (<$file_handle>) { 
chomp; 
@words = split(' '); 
} 

Answer 1

use strict; 
use warnings; 

open(my $file_handle, '<', 'Data.txt') or die("Error: File cannot be opend: $!"); 

my @rows; 

while (<$file_handle>) { 
    $. > 1 or next; # skip header line 
    chomp; 
    push @rows, [ split ]; # split current line on \s+ 
} 

# sort descending on 4-th column 
@rows = sort { $b->[3] <=> $a->[3] } @rows; 

# ascending sort on same column 
# @rows = sort { $a->[3] <=> $b->[3] } @rows;