【perl】sortとreverse関数の復習
#! usr/bin/perl use strict; use warnings; #◎sortとreverse関数の復習 my @array = qw(5 7 1 111 59 58 93); my @sorted = sort(@array); my @sorted1 = sort{$a<=>$b}(@array); print "@sorted\n"; #出力結果=>1 111 5 58 59 7 93=> 文字コードの小さい順 print "@sorted1\n"; #出力結果=>1 5 7 58 59 93 111=> 数字の小さい順 print "\n"; my @reversed = reverse(sort{$a<=>$b}(@array)); print "@reversed\n"; #出力結果=>111 93 59 58 7 5 1=> 数字で大きい順