電線の画像

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 = ([9, 8, 7], [6, 5, 4], [3, 2, 1]);
@array = sort {$a -> [0] <=> $b -> [0]} @array;
print Dumper @array;
 
exit;

サンプルコードです。

$VAR1 = [
          3,
          2,
          1
        ];

$VAR2 = [
          6,
          5,
          4
        ];

$VAR3 = [
          9,
          8,
          7
        ];

出力結果です。

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