[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)

Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

851: デフォルトの名無しさん [sage] 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); } http://mevius.5ch.net/test/read.cgi/tech/1548981877/851

853: デフォルトの名無しさん [sage] 2020/12/09(水) 19:43:12.41 ID:LWKBPFtb >>848 おまえ、ハードな処理を実装したことがないやろ？ｗ 慣れたPerl使いはわざわざ>>851みたいなコードは書かない。 遅いし、くどくて逆に読みにくいからな。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/853

856: 849 [sage] 2020/12/10(木) 06:03:00.77 ID:+FxPMgzN 読みやすい優れたコードが >>851 か。 自分のコードを出してくれた点は評価するが $1 * 100 + $2 って何? http://mevius.5ch.net/test/read.cgi/tech/1548981877/856

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.036s