perl对m x n类似表进行按列排序的代码

操作csv这样的表格在perl处理文件中是经常要碰到的。这样的表类似二维数组，因此实际上的操作时对二维数组的操作了。
对这样的行列表格，我们常常需要按照某列，或者先按照某列，再按另一列进行排序，这里贴上perl的实现，以便下次使用查找。

看下面这段代码。

#!/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";
}

注意：
对于大的文件，最好不要这么用。
该脚本会把数据全部搬到内存。

perl常量、多维数组及变量的初始化的实例代码
例1：#!/usr/bin/perlusestrict;usewarnings;my$test="asdf";print"${test}_test2n";#constantuseconstant{AAA="aaa",BBB="bbb",MIN_TOTAL=12,SCORE_PASS=90,SCORE_RED=70,};printAAA;printSCORE_PASS;#twodimesi

perl的logwrapper使用实例代码
这里为大家举二个小例子，供朋友们学习参考。对任何的函数记录函数运行的时间。#!/usr/bin/perlusewarnings;usestrict;nostrict"refs";subtestLogToStd{print"Teststdout:n";

Perl中处理时间的几个函数
1、time函数：返回从1970年1月1日起累计的秒数使用：my$t=time();2、localtime函数：获取本地时区时间使用：my$t=localtime(time());3、gmtime函数：获取格林威治时