siachan https://blog.hatena.ne.jp/siachan/ ヨンさんに一礼 https://siachan.hatenadiary.org/ perl プログラム ここで書いた物をちょっと修正。 どこが変わったかというと、値段順にソートする部分。 my @nlist = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map { [$_, (split ':', $_)[1]] } @list; # シュウォーツ変換 一般的に書くと、 my @nlist = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map { [$_, (split $sep, $_)[$pos]] } @list; # シュウォーツ変換 $sepが区切り文字、$posがソートキーが何番目にあるかというもの。 こ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsiachan.hatenadiary.org%2Fentry%2F20050203%2Fp3" title=" アマゾネス - ヨンさんに一礼" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2005-02-03 00:00:02 rich https://siachan.hatenadiary.org/entry/20050203/p3 1.0 100%