電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

二次元配列を降順にソートして生成

Perlのsort関数を使用して、二次元配列を降順にソートして出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Data::Dumper
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my @array = ([1, 2, 3], [4, 5, 6], [7, 8, 9]);
@array = sort {$b -> [0] <=> $a -> [0]} @array;
print Dumper @array;
 
exit;

サンプルコードです。

$VAR1 = [
          1,
          2,
          3
        ];

$VAR2 = [
          4,
          5,
          6
        ];

$VAR3 = [
          7,
          8,
          9
        ];

出力結果です。

スポンサードリンク
スポンサードリンク