#! /usr/bin/perl # サンプルの配列を用意 @strings = ( "sakura", "tomoyo", "misaki", "hatoko", "chobits" ); @numbers = ( 24, 10, 11, 5, 18 ); # 文字列を昇順にソート @sortedstrings1 = sort { $a cmp $b } @strings; # 文字列を孝順にソート @sortedstrings2 = sort { $b cmp $a } @strings; # 数値を昇順にソート @sortednums1 = sort { $a <=> $b } @numbers; # 数値を降順にソート @sortednums2 = sort { $b <=> $a } @numbers; # 表示 print "昇順:" . join( ", " , @sortedstrings1 ) . "\n"; print "降順:" . join( ", " , @sortedstrings2 ) . "\n"; print "昇順:" . join( ", " , @sortednums1 ) . "\n"; print "降順:" . join( ", " , @sortednums2 ) . "\n"; exit;