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

[0849 デフォルトの名無しさん 2020/12/09(水) 16:44:07.55 ID:qaSCdqDS]

map {
$_->[0];
} sort {
$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2];
} map {
[$_, /(\d+)/g ];
}

読みにくい…かなあ?