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

  • このエントリーをはてなブックマークに追加
  • LINEで送る
この記事は 2007年5月26日 に書かれたものです

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

- Sponsored Link -

サンプル

;#
;#配列を逆順にする
;#

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

コメント

コメント欄は休止中です。お問い合わせはこちらからどうぞ。ご質問はTwitterにリプを投げてください。

このブログを応援する

お寄せいただいたお気持ちは全額サーバ代や次の記事を執筆するための原資として活用させていただいております。この記事が参考になった場合などぜひご検討ください。

PayPal(ペイパル)
PayPalで300円支払う
※金額は任意で変更できます。
※100円でも泣いて喜びますw
※住所の入力欄が現れた場合は「no needed」を選択ください
これまでのご協力者さま
- Sponsored Link -