配列を逆順に並べ替える(reverse) - Perl

この記事は2007年05月26日に書かれた物です

リスト(配列)を逆に並べ替えるお手軽な方法はreverseを用いることだ。

サンプル

;#
;#配列を逆順にする
;#
 
use strict;
 
#--------------------------#
#       配列を初期化       #
#--------------------------#
my @array = (3,4,1,2,5);       #でたらめ
 
#--------------------------#
#        逆転して表示      #
#--------------------------#
print "■通常表示\n";
print "$_\n" foreach( @array );
 
print "■逆転表示\n";
print "$_\n" foreach( reverse @array );
 
print "■逆転表示(ソート含み)\n";
print "$_\n" foreach( reverse sort @array );  #並べ替えるのはsort

実行結果

■通常
3
4
1
2
5

■逆転
5
2
1
4
3

■逆転(整頓含み)
5
4
3
2
1

関連書籍

chromatic, Damian Conw…
ISBN 4873113148
¥ 9,725

Joseph N. Hall, Joshua…
ISBN 4798139815
¥ 4,104

コメント

コメントを入力. Wiki文法が有効です:
Q I᠎ I N Y