Code for perl to sort m x n similar tables by Column

Operations such as csv are frequently encountered in perl processing files. Such a table is similar to a two-dimensional array, so operations on the two-dimensional array are actually performed.
For such a row and column table, we often need to sort by a column or by a column first and then by another column. Here we paste the perl implementation to facilitate the next query.

See the following code.

Copy codeThe Code is as follows :#! /Usr/bin/perl
My @ line;
While (<>)
{
Chomp;
Push @ line, [split];
}
Foreach (sort {$ a-> [0] <=> $ B-> [0] or $ a-> [1] <=> $ B-> [1] or $ a-> [2] <=> $ B-> [2]} @ line)
{
Print @ $ _, "\ n ";
}

Note:
It is best not to use large files in this way.
This script will move all the data to the memory.