Kawaninon.com

2007年02月02日(金)

文字列の長さで配列のソートをPerl関数のsortで生成

Perl言語のsort関数を使用して、配列のソート処理を文字列の長さで実行しました。

昇順

#!/opt/local/bin/perl
 
use strict;
use warnings;
use utf8;
use Data::Dumper;
 
print "Content-type: text/html; charset=utf-8\n\n";
 
my @array = ("Hi","Hello","Hello world!");
@array = sort {length($a) <=> length($b)} @array;
print Dumper \@array;
 
exit;$VAR1 = [
          'Hi'
          'Hello',
          'Hello world!',
        ];

サンプルコードと出力結果です。配列の要素を文字列の長さの昇順でソートして出力しました。

降順

#!/opt/local/bin/perl
 
use strict;
use warnings;
use utf8;
use Data::Dumper;
 
print "Content-type: text/html; charset=utf-8\n\n";
 
my @array = ("Hi","Hello","Hello world!");
@array = sort {length($b) <=> length($a)} @array;
print Dumper \@array;
 
exit;$VAR1 = [
          'Hello world!',
          'Hello',
          'Hi'
        ];

サンプルコードと出力結果です。配列の要素を文字列の長さの降順でソートして出力しました。