Perlについての質問箱 64箱目

[851 デフォルトの名無しさん 2020/12/09(水) 18:15:36.35 ID:UMU4oc+t]

別に短く書かなくていいんだよ

@r = sort s2 @a;

sub s1 {
　　my $str = shift;
　　$str =~ /(\d+)\-(\d+)/;
　　return $1 * 100 + $2;
}

sub s2 {
　　return s1($a) <=> s1($b);
}