[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

851(2): 2020/12/09(水)18:15 ID:UMU4oc+t(7/7) AAS
別に短く書かなくていいんだよ

@r = sort s2 @a;

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

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

---

上下前次1-新書関写板覧索設栞歴

---

あと 151 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.012s