Kawaninon.com

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

大文字と小文字を区別せずにソートした配列の要素をPerl言語のfc関数で生成

Perl言語のfc関数を使用して、配列の要素を大文字と小文字を区別せずにソートして出力ました。Perl 5.16から追加された関数です。使用するには、use feature qw(fc);やuse v5.16;等で関数を有効にする指定が必要になります。

#!/opt/local/bin/perl

use strict;
use warnings;
use feature qw(fc);

print "Content-type: text/plan; charset=utf-8\n\n";
print sort { fc($a) cmp fc($b) } ( 'a' .. 'z', 'A' .. 'Z' );

exit;

サンプルコードです。fc関数を使用する為、featureプラグマでuse feature qw(fc);と指定しています。fc関数はPerl 5.16以降に追加された機能なのでuse feature ':5.16';use v5.16;等、5.16以降のバージョン番号を指定する事でも使用できました。

aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ

出力結果です。配列の要素を大文字と小文字を区別せずにソートして出力ました。

関連リンク

おすすめリンク