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

**デフォルトの名無しさん** · 2019/02/01(金) 09:44:37.18

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: https://medaka.5ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.28.1)

▼前スレ
Perlについての質問箱 61箱目
http://toro.5ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.5ch.net/test/read.cgi/tech/1385039352/
Perlについての質問箱 63箱目
https://mevius.5ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2020/10/20(火) 18:38:58.16

>>739
よく解りました。ありがとうございました。

**デフォルトの名無しさん** · 2020/10/20(火) 21:44:35.79

blib.pmはちゃんとuseされていて、blib.pmの動作としてエラー終了したということですか

**デフォルトの名無しさん** · 2020/10/20(火) 22:27:40.87

die "Cannot find blib even in $dir\n" って blib.pm のソースに思いっきり書いてあるがな

**デフォルトの名無しさん** · 2020/10/20(火) 23:34:27.10

なるほd

**デフォルトの名無しさん** · 2020/10/25(日) 10:29:53.41

ライブラリが読めてないのか、読めてるけどエラーになるのかの切り分けが必要だったな

**デフォルトの名無しさん** · 2020/10/25(日) 11:05:07.83

"¥n"なければ分かったのにね。

**デフォルトの名無しさん** · 2020/10/25(日) 11:49:26.86

あ、でもやってみたら@INCにない場合とメッセージ違うんだな。
とはいえ知らないと分からないよね。

**デフォルトの名無しさん** · 2020/10/27(火) 08:27:55.72

httpsをgetする楽な方法って何

**デフォルトの名無しさん** · 2020/10/27(火) 12:24:00.33

>>747
ブラウザを遠隔操作することだろうね。
昔、Win32::IEAutomation 使っていたけど、
今はどんなモジュールがいいのかよく解らない。

**デフォルトの名無しさん** · 2020/10/27(火) 22:34:11.97

>>747
Linux とかなら wget または curl コマンド。
Windows は知らないけど探せば同じコマンドあるんじゃないかな。
それとかPowerShellだと何かないか？ありそうだよな。俺知らないけど。

**デフォルトの名無しさん** · 2020/10/27(火) 23:05:01.31

難しいのう
firefoxから証明書をエクスポートして食わせてwgetしてもまだ成功しない

**デフォルトの名無しさん** · 2020/10/27(火) 23:53:21.84

Ruby では、open-uri でHTML を取得して、nokogiri でスクレイピングできる。
または、begin～end 内に書いた、curl コマンドでも取得できる

他には、wget や、VSCode の拡張機能、REST Client とか

require 'open-uri'
require 'nokogiri'

=begin
html = `curl https://example.com/`
doc = Nokogiri::HTML( html )
=end

url = "https://example.com/";
doc = Nokogiri::HTML( open( url ) )

elements = doc.css( "h1" )
puts elements.first.content #=> Example Domain

**751** · 2020/10/28(水) 00:05:57.96

Windows 10 には、curl.exe も入っている。
これは、PowerShell のcurl エイリアスとは異なる

コマンドプロンプトで、
where curl
C:\Windows\System32\curl.exe

**デフォルトの名無しさん** · 2020/10/28(水) 00:13:29.52

なんで ruby が出てくるんだろう

**デフォルトの名無しさん** · 2020/10/28(水) 06:24:58.52

lwpが出ない時代になったのか……

**532** · 2020/10/28(水) 08:36:56.65

LWP::Protocol::https
がインストールされていれば

$url = "https://…";
require LWP::UserAgent; # with LWP::Protocol::https
$ua = LWP::UserAgent->new;
#$ua->agent('Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko');
$s = LWP::UserAgent->new->get($url)->content;

**デフォルトの名無しさん** · 2020/10/28(水) 08:42:17.53

なんでそんな大事なもんがインストール必要なんだ

**デフォルトの名無しさん** · 2020/10/28(水) 13:29:32.90

ネットワーク関連は、原則別扱いやろ。

**デフォルトの名無しさん** · 2020/10/28(水) 18:43:51.13

そこはマジで面倒だなと思うね
pythonのrequestsモジュールとか何も考えずにできるし

**デフォルトの名無しさん** · 2020/10/28(水) 19:30:04.62

電池は自分で買って下さい

**デフォルトの名無しさん** · 2020/10/28(水) 19:35:38.14

今ならコアモジュールのHTTP::Tinyで十分でしょう
IO::Socket::SSLかNet::SSLeay をインストールする必要がありますが
pythonだってrequests

**デフォルトの名無しさん** · 2020/10/28(水) 19:36:09.55

は自分で入れなきゃいけないし

**751** · 2020/10/28(水) 22:46:17.13

Ruby なんて、よく使うものは、標準で入っている

Battery Included・電池付き言語

**デフォルトの名無しさん** · 2020/10/28(水) 22:58:53.02

>>762
Rubyとかプログラム言語よりも「読点（、）」の使い方を学んだほうがいい
自分の書き込みを声に出して読んでみるとわかるよ

**デフォルトの名無しさん** · 2020/10/28(水) 23:18:21.09

読点の使い方に決まったルールは無いんだよな
なんとなく集合的に多数派の使い方はあるけど、
それを気にしてる人しか身につかないし、
気にしてない人はどういう使われ方をしてても何も思わない

多数派の使い方から外れると何か困るかというと、特に困らない
気にしてる人だけなんか変と思うだけで、意思疎通に支障は無い
気にした方が負けという悲しい現状がある

**532** · 2020/10/29(木) 00:33:18.30

そもそも言葉がそういうものだろ
だからかまわないというのは極論
というかそういう話もrubyも該当スレでやってくれ

**デフォルトの名無しさん** · 2020/10/29(木) 07:05:28.87

読点は、基本的には使わない
意図的に区切りを入れたい箇所で使う
区切りを入れる目的がいろいろあって、それが理由で明文化できない

一旦間を置くことで強調することができる
主節と従属節を明確にできる
誤読を防ぐ
読みやすくなる、等々
より良い文章を心がけている人しか読点はそもそも必要ない

自分は、文節の区切りが漢字で連続しているあるいはひらがなで連続している時に、
読みやすさの為に入れることがよくある

**デフォルトの名無しさん** · 2020/10/29(木) 08:52:06.32

読点ふつうに使った文章でそれ言われても説得力ゼロやんな

**デフォルトの名無しさん** · 2020/10/29(木) 12:59:56.99

普段文ではあんまり使わないかな　空白を使うようになった
てか。もあんまり使わない。改行するようになった。
これ最近の傾向ね。
ちゃんとした文章の時は学校で習ったようにちゃんとするよ。
たまに見かける、多用の文章はバカっぽくて好きになれない。

**デフォルトの名無しさん** · 2020/10/29(木) 16:41:07.61

お前ら得意のうんちく・知ったかで生き生きしてるな
どうでもいい話題になると湧いてくるのな

**デフォルトの名無しさん** · 2020/10/29(木) 23:07:14.55

Perl好きの住人がいるんだよ。
なんかネタがあると湧いてくるが自分からは投入しない。
というか今更ないんだよな。

**デフォルトの名無しさん** · 2020/10/30(金) 08:36:37.09

LWP::Protocol::https はインストールしなくても入ってるみたいだけど、
やっぱりアクセスできない

**デフォルトの名無しさん** · 2020/10/30(金) 14:14:14.77

>>770
かつてのPerlハッカーたちが完全に沈黙してるからね
Rakuとかもっと使えよって思います

**デフォルトの名無しさん** · 2020/10/30(金) 14:28:46.49

IO::Socket::SSLかNet::SSLかが入ってないんじゃね？

**デフォルトの名無しさん** · 2020/10/30(金) 14:45:50.35

入ってなかったら入ってないというエラーになるんじゃないのかな
プロトコルのエラーになるんだよな

**デフォルトの名無しさん** · 2020/10/30(金) 16:51:58.64

>>772
Perl6できたてのころにちょっと試したけど、スクリプト言語的な使いやすさがなくなってたからなあ。
きっと普及せんやろな、と思った。

**デフォルトの名無しさん** · 2020/10/30(金) 17:12:05.20

Strawberry Perl 5.32 向けのTk、相変わらずビルドエラーを手動修正しないとインストールできない。
バンドルされているコンパイル環境の問題かもしれないけど、そのままってのはちょっと。
Tkって重要じゃね？どうよ？

**デフォルトの名無しさん** · 2020/10/30(金) 17:49:50.64

>>775
ほんのちょっと改善するだけでも十分だったのにな

**デフォルトの名無しさん** · 2020/10/30(金) 19:26:17.53

>>777
いや、大きな追加機能自体はおもしろそうなんだよ？
Grammarとか。

また、識別子にハイフンが使えるとか、トークンの区切りが原則はスペースとか、文法も興味深いかわりに、ほかと違いすぎて。。。

**デフォルトの名無しさん** · 2020/10/30(金) 19:42:16.02

>>778
grammarは一見良さそうだけど字句解析と構文解析を同時にやる感じですげー難しくない？

**デフォルトの名無しさん** · 2020/10/30(金) 20:46:03.54

字句解析と構文解析は、表を使ったアルゴリズム自体は同一なので、一つの表にまとめられる。
しかし、分離できる場所で分離した場合に比べて表が大きくなるので、あまりお得じゃないと思う。
もちろん数ギガバイトのメモリーを積む現代のコンピュータでは、100メガバイトの表は決して非現実的ではないけれども。
ドラゴンブックが書かれた時代には、分けなければ実装できない程度の大きさだったと思う。

**デフォルトの名無しさん** · 2020/10/30(金) 21:02:37.09

>>779
いやー、ちゃんと使ってみたかった。
難しいならそれを体感したかったな。

lex/yaccのめんどくささは知ってるけど、あれよりはマシやろ。ｗ
C#のSpracheみたいなもんじゃないの？

**デフォルトの名無しさん** · 2020/10/30(金) 21:50:10.07

>>774
例えばlwp-downloadとかでもアクセスできない?

**デフォルトの名無しさん** · 2020/10/30(金) 22:09:51.09

>>781
アルゴリズムが違うからなんとも言えんが
バックトラックしないのでカーソルの位置を常に意識しなきゃいけないのがすごくキツい
あこれマッチしないの？ってことが多々あって慣れなんだろうがキツい
デバッグも大変

**532** · 2020/10/30(金) 22:24:35.54

Perl5のParse::RecDescent.を使えれば
Perl6のGrammarも大丈夫だと思う

多分

**デフォルトの名無しさん** · 2020/10/30(金) 22:37:14.50

>>783
えー、簡単そうやん？ｗ

https://mattn.kaoriya.net/software/lang/perl6/20151019183138.htm

**デフォルトの名無しさん** · 2020/11/02(月) 15:05:38.99

Raku の Grammar というのは、「クラス定義＋演算子のオーバーロード」
と比較して、何が優れているのだろうか？

**デフォルトの名無しさん** · 2020/11/02(月) 17:51:29.15

えっ。
ターゲットというか、適用領域が違うんでは。

**デフォルトの名無しさん** · 2020/11/13(金) 10:25:46.33

処理済みかとか、除外対象か、みたいなチェック用に
%except = (aaa => 1, bbb => 1);
みたいなテーブルを作っておいて、
if (!$except{$x}) { ... }
みたいなことをする

で、=> 1 の部分は何でもいい訳で、これが無駄に見える
@except = (aaa, bbb);
の方が自然だけど、判定部分が複雑になる

なんとか判定をシンプルに書けないものか

**デフォルトの名無しさん** · 2020/11/13(金) 10:43:18.63

リストを使用してのケースなら
" @except " =~ / aaa /
とか。

**デフォルトの名無しさん** · 2020/11/13(金) 10:53:46.81

でもハッシュの方がよくないかなあ。
%except = map { $_, 1 } qw(aaa bbb ...);
とか
undef $except{$_} for qw(aaa bbb ...);
で判定はexists
とか

**デフォルトの名無しさん** · 2020/11/13(金) 11:34:25.97

>>788
無駄に見えるのは気のせいなので、気にするな。
何が気に入らないのか、意味不明なレベル。

せいぜいが判定をexists()に変えるくらいか。
でも、処理の意図は明確になっても、記述量は増えてまう。
結局、もとのほうがいい。

**デフォルトの名無しさん** · 2020/11/13(金) 11:54:00.35

pythonのin演算子を真似た関数を用意するくらいか

**デフォルトの名無しさん** · 2020/11/13(金) 13:04:35.51

ここの人ってpythonもできるの？
pythonを最近覚えたんだけど、pythonで書き始めてからperlに戻る気がしないw

**デフォルトの名無しさん** · 2020/11/13(金) 13:11:47.54

常にuse strictで書いてるような人はpythonの方がいいかも

危険を承知でとにかく楽に、という書き方がpythonはできない

**デフォルトの名無しさん** · 2020/11/13(金) 17:55:04.27

>>793
pythonも書いてるけど感覚としてはそこまで差はない
pythonの方が厳格ですぐエラー吐いてくれるから
それを良しとするか
あとはライブラリの質が段違い

**デフォルトの名無しさん** · 2020/11/17(火) 17:45:06.40

デフォルト以外のブラウザを開くことはできませんか？
デフォはこれでいけてます
use Win32::FileOp qw(ShellExecute);
ShellExecute($url);.

**デフォルトの名無しさん** · 2020/11/17(火) 23:05:44.09

例えば、デフォが他のブラウザで、あるurlをFirefoxPortableで開きたいとき、
次のようなコマンドを実行させているが、これをPerlでやればいいんじゃないの？

"U:/FirefoxPortable/FirefoxPortable.exe" https://foo/bar/

**デフォルトの名無しさん** · 2020/11/18(水) 00:40:53.82

ありがとう
`C:/Program Files (x86)/Google/Chrome/Application/chrome.exe`
とりあえずここまででchrome開くことはできたのですがURLの指定はできないでしょうか？

**デフォルトの名無しさん** · 2020/11/18(水) 01:11:22.59

>>798
>>797

**デフォルトの名無しさん** · 2020/11/18(水) 01:32:09.00

system("\"C:/Program Files (x86)/Google/Chrome/Application/chrome.exe\" https://www.yahoo.co.jp/";);
完成しました
ありがとうございました。

**デフォルトの名無しさん** · 2020/11/18(水) 08:31:15.08

>>800
wperl.exeからsystem()を呼び出すと新しいコンソールウィンドウが開くので要注意。

**デフォルトの名無しさん** · 2020/11/28(土) 15:40:18.08

指定した年月日からx日後の日付を数で得るにはどうするのが一番楽だろう

**デフォルトの名無しさん** · 2020/11/28(土) 18:31:31.18

「数で得る」というのがよく解らないが、timelocal()とlocaltime()を使えば、
多分、やりたいことができると思う。

**デフォルトの名無しさん** · 2020/12/03(木) 17:27:36.92

これから仕事ではじめてperlを使うんだけど、メッセージやメール出力などにマルチ言語対応が入ってる
resourceに言語ファイルをいれる形で実現したいけど、どのようにするのがいいか教えて下さい

複数のスクリプトを開発して連係させる予定

**デフォルトの名無しさん** · 2020/12/05(土) 13:44:54.28

ヒアドキュメントの中で数式を使うやり方は？
@{[数式]}
のようにやってもエラーで動かなかった

**デフォルトの名無しさん** · 2020/12/05(土) 15:34:53.50

>>802
Ruby on Rails なら、時刻計算用のライブラリがある

require 'active_support/time'

p Date.new( 2020, 2, 28 ).advance( days: 2 )

出力。うるう年
Sun, 01 Mar 2020

**デフォルトの名無しさん** · 2020/12/05(土) 15:43:47.69

そんな感じの気楽で使いたい

$date = date->new('2020-12-05');
$date += 100;
($y, $m, $d) = ($date->year, $date->month, $date->day);

こんなん

**デフォルトの名無しさん** · 2020/12/05(土) 16:43:15.39

>>805
おかしいな。それで合ってるように思えるんだが。
この辺りを読んで、何か誤解してないか確認したらいいかも。
https://perldoc.jp/docs/perl/5.26.1/perlref.pod

**806** · 2020/12/05(土) 18:18:59.36

「perl 時刻計算」で検索すれば？

日付・時刻を扱う標準モジュール、Time::Piece が標準で添付されています。
もっと便利なモジュールを、誰かが作っているかも

**デフォルトの名無しさん** · 2020/12/05(土) 18:31:57.30

localtimeからスタートする時はそれが便利
何か基準の日付から計算しようとすると面倒になる

**デフォルトの名無しさん** · 2020/12/05(土) 20:29:02.43

>>805
数式自体にエラーがあるんやろ。ｗ
じゃなきゃエラーをはれ。

**デフォルトの名無しさん** · 2020/12/05(土) 23:54:20.43

>>811
print <<"eos";
@{[print "aaawww";]}
eos

これでエラーだった

**デフォルトの名無しさん** · 2020/12/06(日) 00:14:01.05

>>812
だからエラーの文面をはれっつーの。

でも、わかった。
「[]」の内側に書けるのは、式のリスト。
最後に「;」を書くのは、「式」でなく「文」というか。

しかし、それだとうまくいっても「aaawww1」と表示される気がするが、どうなの？ｗ

**532** · 2020/12/06(日) 00:15:36.74

print <<"eos";
@{[print "aaawww"]}
eos

$ perl aaawww.pl
aaawww1

;を省くと動くが、「1」とか余計なものがつくな

**デフォルトの名無しさん** · 2020/12/06(日) 00:43:41.05

>>813
CGI 実行エラー syntax error at test.cgi line 10, near ""aaawww";"
Execution of test.cgi aborted due to compilation errors.

**デフォルトの名無しさん** · 2020/12/06(日) 01:06:20.00

単なる構文エラー
無名リストの中に裸のセミコロンがあったらまずいでしょ
["A", "B", 3, ";"] OK
["A", "B", 3, ;] エラー

余計な1じゃなくてprint関数の返り値
printが成功したので真(1)を返して無名リストの要素になった
printで"aaawww"が表示された後デリファレンスされて展開された1がヒアドキュメントで表示される

**デフォルトの名無しさん** · 2020/12/06(日) 01:06:31.00

>>814
仕様どおり。ｗ
記述したとおりに正しく動作しているな。

**デフォルトの名無しさん** · 2020/12/06(日) 01:19:08.97

>>802
今更だけど日付をエポック秒で表して日数×24*60*60を足すんじゃだめ？

車輪の再発明というかただの製作を承知で、自分で日付変換の関数を一通り作ったらそれで十分だった
便利そうなライブラリを探そうとしたこともあるけど、オブジェクト指向的なやつだと結局その
オブジェクトを介した変換が頻出することになってスラスラ書けないなあと思ったのです。

もし今後UTCとかJSTとか出てきたときはそのときまた考える。

**デフォルトの名無しさん** · 2020/12/06(日) 02:06:04.21

PerlのYAML関連のモジュールが全部重くて厳しい
高速なYAMLモジュールはないのか？

**デフォルトの名無しさん** · 2020/12/06(日) 10:37:45.21

まずは高速なCのライブラリを見つけます

**デフォルトの名無しさん** · 2020/12/06(日) 11:42:16.72

>>803　だが、>>802　の質問は>>803　で終わったと思ったのだが、不親切だった？
例えば2019年12月1日から365日後の日付は、次のようにすれば得られる。

use Time::Local;
$year=2019;$mon=12;$mday=1;$hours=12;$min=0;$sec=0;
$intvl=365;
$basetime = timelocal($sec, $min, $hours, $mday, $mon-1, $year-1900);
$basetime += $intvl*24*60*60;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($basetime);
$mon+=1;$year+=1900;
print STDERR "$year.$mon.$mday\n";

2020/12/06(日) 11:58:40.89

見るからに面倒臭い

**デフォルトの名無しさん** · 2020/12/07(月) 09:18:58.50

$basetime = timelocal_nocheck($sec, $min, $hours, $mday+$intvl, $mon-1, $year-1900);

**デフォルトの名無しさん** · 2020/12/07(月) 09:43:24.77

Time::Piece はよくできてて、何かのログとかに現在時刻を書き出す、
とかの用途には十分に使える

でも、時刻計算や日数計算はあまり考慮されていない
現在時刻からの計算はできても、任意の時刻からだと弱い

**デフォルトの名無しさん** · 2020/12/07(月) 14:03:32.45

>>807

use Time::Piece;
use Time::Seconds;

my $day = Time::Piece->strptime('2020-12-05', '%Y-%m-%d');

$day += ONE_DAY * 100;

print $day->date, "\n";

print $day->year, "\n";
print $day->mon, "\n";
print $day->mday, "\n";

**デフォルトの名無しさん** · 2020/12/07(月) 14:21:35.27

まあ、strptime さえ目を瞑れば
こんなもん、何か見ないと書けない

**デフォルトの名無しさん** · 2020/12/07(月) 15:40:13.93

use POSIX; を宣言してCの標準関数に似た時刻処理機能を使うのが普通じゃないの？
Cの時刻処理サンプルコードを円滑にPerlに移植できるよ。

**デフォルトの名無しさん** · 2020/12/07(月) 17:17:12.82

>>826
DateTimeモジュール使えば全て解決なんだが
クソデカくて重いという弱点が

**532** · 2020/12/07(月) 21:57:48.14

Time::Pieceの弱点は
strptime()で作ったインスタンスのtimeゾーンをいじれないとこかな？
後1つなんか弱手あった気がするが忘れた

**デフォルトの名無しさん** · 2020/12/07(月) 22:38:30.88

strptimeはpythonでもrubyでも同じだから、もう慣れなんだろうな
'YYYY-MM-DD' とかではあかんかったのか

**デフォルトの名無しさん** · 2020/12/08(火) 04:35:26.34

>>821
timeLocal()の年は1900引かない方がいいよ。これちょっとCのライブラリとは違うんだよ。詳しくはドキュメント読んで。

**デフォルトの名無しさん** · 2020/12/08(火) 04:36:34.48

あ。タイプミス。timelocal()ね。

**デフォルトの名無しさん** · 2020/12/08(火) 23:53:37.62

すみません、ソートで教えて欲しいんですが下記のようにみたいな枝番号が付いてる文字列をハッシュのキーとして
ハイフン前の数値でソートした後にハイフン後の数値でソートしたいのですが
普通に$a <=> $bだとハイフンの後の値がバラバラになって上手くいきません
キーを作る際に別々に作ってループ増やすくらいしか自分には解決方法が無いのですが、スマートに出来る方法は無いのでしょうか？
1-1
1-2
2-1
2-2
3-1

**デフォルトの名無しさん** · 2020/12/09(水) 00:31:36.73

>>833
シュワルツ変換で検索！

たとえば :
mapでソート用の値として、前の数字×10000+後ろの数字の値をつくって、それともとの値のペアにする。
それを<=>でソートする。
mapで、ソート結果からもとのデータ部分を取り出す。

**デフォルトの名無しさん** · 2020/12/09(水) 00:39:46.90

要は、map{...} sort{...} map{...}となる。
変換のためのループが2回入る(map)が、記述としてはあっさりなので、特殊なソートをしたいときにはよく使われる有名な方法。

伝わるかな？ｗ

**デフォルトの名無しさん** · 2020/12/09(水) 08:45:38.11

それで書けるなら、sort { } でも書けるよね

**デフォルトの名無しさん** · 2020/12/09(水) 09:35:02.27

>>833
こんな感じかな。デバッグはしていないが。
@newlist = sort compare @oldlist;

sub compare{
my ($ap, $bp) = @_;

($ap1, $ap2) = $ap=~/([0-9]+)\-([0-9]+)/;
($bp1, $bp2) = $bp=~/([0-9]+)\-([0-9]+)/;
return 1 if $ap1 > $bp1
return -1 if $ap1 < $bp1
# $ap1 == $bp1;
return 1 if $ap2 > $bp2;
return -1;
}

**デフォルトの名無しさん** · 2020/12/09(水) 10:27:05.71

>>836,>>837
それだと、要素の比較のたびに、値の変換処理が行われる。
比較は何度も行われるため、変換処理が軽くない場合、ソート全体としてかなり重くなりうる。
すくなくとも「スマート」とは言えない。

そこで、変換結果をキャッシュするような形になるのがシュワルツ変換。

知らんならググれ。

**デフォルトの名無しさん** · 2020/12/09(水) 10:46:35.52

sort { s1($a) <=> s1($b) } keys %x;

sub s1 {
shift =~ /(¥d+)-(¥d+)/ && 100*$1+$2
}
sortならこんなかんじ