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/12/12(土) 03:38:37.71

>>879
具体的に詳しく！
Perlでな？

**862** · 2020/12/12(土) 09:07:56.06

pack に誰も食いついてこないのはちょっと寂しいな。
正しくやれば C でさえ 1 回の memcmp で比較が済むのだが。
ましてや、Perl の pack/unpack は Perl4 の時代からある超便利関数なのだが。
まあ、「ひょっとして比較をシンプルにしたいのかな?」と思ったから書いただけだし
今回のニーズには合ってても万能というわけではないし
自分が良いと思う方法でやればいいと思うよ。

**デフォルトの名無しさん** · 2020/12/12(土) 09:26:02.24

数1つあたりのbit数が決められないがな
何とかしてmap使いたいから無理筋言ってるだけとしか

**532** · 2020/12/12(土) 10:42:34.69

>>833 >>874に書いた左の数字と右の数値両方で順位に一貫性のあるキーを作って一回でsortするｻﾝﾌﾟﾙ
数値は4桁以下であることを仮定してます。

use List::Util 'shuffle';
%h = map{$_ => $i++} shuffle qw{1-1 1-2 1-3 2-1 2-2 2-3 3-1 3-2 3-3};

@k1 = keys %h;
print "@k1\n";

@kk = map{[sprintf("%4d%4d", /(\d+)/g), $_]} @k1;
@k2 = map{$$_[1]} sort{$$a[0] cmp $$b[0]} @kk;

print "@k2\n";

**532** · 2020/12/12(土) 10:47:43.50

こうやって幾つかｺｰﾄﾞ書いてみて…>>849かTie::IxHashで十分な気がしたわｗ

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

>>881
慣れたヤツには最適解過ぎ、慣れてないヤツには意義がわからん、ということで、そんなに食いつきようがないやろ。ｗ

**デフォルトの名無しさん** · 2020/12/16(水) 23:33:00.22

>>833
もしそれが桁数固定で、例えばその例のように一桁の数、ハイフン、一桁の数という文字列ならば、何も考えずにそのまま文字列として比較して sort すればいい。つまりただ sort するだけ。

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

そんなもんは9で終わる訳がなくて10も100もある筈、と自然に拡張して考える
それと同様に、枝番号ならサブサブセクション以降もある筈、という拡張は
自然なのに、そっちには思い至らないんだよな

**デフォルトの名無しさん** · 2020/12/17(木) 09:44:28.00

>>887
外野が考えることじゃない。
>>886は、簡単なケースの例を言ってるだけだから、それでええやろ。

**デフォルトの名無しさん** · 2020/12/18(金) 08:38:15.55

「数値でソートしたい」って最初から書いてあるだろ……

**デフォルトの名無しさん** · 2020/12/18(金) 08:53:35.39

今だけはいいけどすぐに駄目になりそうな設計を、
裏技見つけたみたいにやりたがる奴がいるんだよな
ユーザは予想を超えた無茶をしてくるものなのに

**デフォルトの名無しさん** · 2020/12/18(金) 09:55:06.92

Keep It Simple, Stupid

**デフォルトの名無しさん** · 2020/12/18(金) 09:58:16.29

よい設計というのは自然とシンプルになるものなんだよ

**849** · 2020/12/18(金) 16:30:11.78

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

を短く書いたのがシュワルツ変換だよ
くらいの説明はした方がいいのかな。

**デフォルトの名無しさん** · 2020/12/18(金) 21:33:33.71

まだやってんのかw

**デフォルトの名無しさん** · 2020/12/22(火) 10:15:20.24

最近raku触ってるけど面白すぎるわこれ、識別子をパース？して組み合わせるの楽しい
もうこれ半分lispだろ

**デフォルトの名無しさん** · 2020/12/22(火) 12:14:37.88

演算子の前後に空白が必須なの、なんかイヤじゃない？
ツメツメで書きたいのに。

Perl6のころだけど、オレが降りた理由のひとつ。

**デフォルトの名無しさん** · 2020/12/22(火) 16:09:49.34

>>895
面白いんだけどね
他の言語では無いような機能のオンパレード
ちょっと先を行き過ぎてる感が強すぎるかなあ

**デフォルトの名無しさん** · 2020/12/22(火) 16:21:28.35

言語なんて、他の言語のいいとこ取りで進化していくからな
常に便利になった部分と実験的な部分がある

**デフォルトの名無しさん** · 2020/12/27(日) 18:10:18.92

ローカルで一番最初にperlの呼び出しの部分は#!c:/Perl/bin/perl.exeって書くけど
サーバーに上げるときは毎回#!/user/local/perlというように書き直すのがめんどうだけど
#!/user/local.perlのまんまでもローカルで動かす方法ありますか？

**デフォルトの名無しさん** · 2020/12/27(日) 19:39:12.76

あれ？
/usr/local/perlのままでもいけるんじゃないの？
Windowsはそこのパスを見てなかったような。

**デフォルトの名無しさん** · 2020/12/27(日) 19:46:23.03

Apacheは見てる
そんでApacheのあるドライブにuser/localのフォルダ作ってperl.exeをコピーしたら動くよ

**デフォルトの名無しさん** · 2020/12/27(日) 21:30:33.15

そうだっけか？

ちなみに、もしそのファイルに拡張子があるならレジストリで指定する方法もある。
「windows apache レジストリ拡張子」で検索！

**デフォルトの名無しさん** · 2020/12/28(月) 00:11:42.69

perlプログラム中に指定するルートパスについてだけど

open(IN,"/test.html");
my @lines = <IN>;
print "@lines";
close(IN);
とやっても@linesは空で何も取得できなかったけど

print "<a href=\"/test.html\">リンク</a>";
でリンクをクリックするとちゃんとドキュメントルート直下のtest.htmlに飛べる
これはどうしてか？
test.htmlの中身は空ではない

**デフォルトの名無しさん** · 2020/12/28(月) 00:28:09.86

>>903
ファイルシステムのルートとドキュメントルートはまったく異なる。
ファイルシステムはプログラム自身が処理するが、URLはまずブラウザが解釈する。

まず落ち着いてよく考えろ。

**デフォルトの名無しさん** · 2020/12/28(月) 08:24:52.02

>>904
つまりperlプログラム中で指定する/test.htmlはファイルシステムのルートパスになり
リンクタグで指定する/test.htmlはドキュメントルートのパスになるということですか？

**デフォルトの名無しさん** · 2020/12/28(月) 08:37:46.11

ドキュンルート

**デフォルトの名無しさん** · 2020/12/28(月) 21:50:36.57

>>905
わかってるやん
レスコジキなら他に行ってくれ

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

過疎ってる方が落ち着くという人もいるらしい

**デフォルトの名無しさん** · 2020/12/30(水) 20:26:20.53

初心者が嫌いな「上級者」で過疎っているほうが落ち着くなら、このスレがいいな。

【Perl上級者コーナーPart01】
https://medaka.5ch.net/test/read.cgi/php/1024741312/

**デフォルトの名無しさん** · 2020/12/30(水) 21:55:58.30

>>907
わかってるとはいえんよ。
結果のおうむ返しだけみたいだからな。

落ち着いて考えればわかるはずだし、それでしっかり納得したほうがいいことだから、元コメに返事はしないが。

**デフォルトの名無しさん** · 2021/01/03(日) 17:25:22.42

ブラウザのクッキーを許可してるかどうかを調べるにはどうしたらいいんですか？
クッキーを書き込めたら許可されているというやり方だと
書き込んだ直後はクッキー読み取れない
更新ボタンでページを更新しないとクッキー読み取れないので他のやり方で

**デフォルトの名無しさん** · 2021/01/03(日) 17:33:27.51

お、今年初めの質問だね。
君の悩みは質問箱住人が解決するよ。
ささ、甘酒どぞ。つ甘
みんなーお客さんだよー。

**デフォルトの名無しさん** · 2021/01/03(日) 19:13:07.92

>>911
javascript併用したくないならHTTPヘッダで
print "Set-Cookie: hoge\n";
print "Location: hage\\n\n";
みたいな感じでクッキー書いてリダイレクトすればいいんじゃね

**デフォルトの名無しさん** · 2021/01/03(日) 20:53:05.77

>>913
なるほど、でもそれ無限ループにならないっすか？

**デフォルトの名無しさん** · 2021/01/03(日) 21:41:10.96

>>914
サーバーで判定したらええやろ。
そもそもそういう話のはず。

**デフォルトの名無しさん** · 2021/01/03(日) 21:44:24.27

>>914
クエリパラメータ追加するなり工夫すれ

**532** · 2021/01/25(月) 02:03:08.62

ttps://perlcodesample.hateblo.jp/entry/2020/07/10/082720

**デフォルトの名無しさん** · 2021/02/13(土) 20:39:32.56

U+10000からU+1FFFFまでの文字があったら置換したい時はどう書けばいい?

**デフォルトの名無しさん** · 2021/02/13(土) 20:57:13.59

>>918
s/U¥+(1¥x{4})/pack(q{U},$1)/eg
とかか？

https://perldoc.jp/docs/perl/5.10.0/perluniintro.pod

**デフォルトの名無しさん** · 2021/02/13(土) 21:54:38.37

あー
U+10000という文字列を置換したいのではなく、それが示すサロゲートペアを置換したい

**デフォルトの名無しさん** · 2021/02/14(日) 01:36:58.65

>>920
s/([¥x{10000}-¥x{1ffff}])/unpack(q{U},$1)/eg
かな？
ダメな気もするが。

つーか、さっきのURLにいろいろ書いてあるから、一度目を通して自分で試してみろ。
んで、うまくいったら、結果を貼るようにな。

**デフォルトの名無しさん** · 2021/02/14(日) 07:32:21.90

$line =~ s/\x{1f306}/置/g;
これは成功する
$line =~ s/\x{1....}/置/g;
こんなことをやろうとしてた
$line =~ s/[\x{10000}-\x{1ffff}]/置/g;
これが正解だった

**デフォルトの名無しさん** · 2021/02/14(日) 10:00:12.81

Perlの場合、マルチバイト文字で正規表現を正しく使うには、あらかじめEncode::decode()でデコードしておく必要があるので厄介。

**デフォルトの名無しさん** · 2021/02/14(日) 11:18:28.10

>>923
Perlに限らんやろ。
エンコーディングをまったく気にせず対応している処理系なんか存在しない。

**デフォルトの名無しさん** · 2021/03/03(水) 18:48:52.48

start:aaa1
end:bbb1
value:1.23
start:aaa2
end:bbb2
value:2.34
…
データとして上記のようなstart,end,value値が違うデータがだらっと繰り返ししてるファイルがあって
下記の正規表現で名前付きキャプチャを使って繰り返しマッチングし%+ハッシュを配列に格納したいのですが、こんな感じでやるとそれぞれのデータが順に入ってしまいます。
どう書けばマッチングした各ハッシュを配列に格納出来るのでしょうか？
$re=qr|start:(?<start>\S+).*?end(?<end>\S+).*?value:(?<value>\S+)$|sm;
my @data = m|$re|g =~ $txt;

**デフォルトの名無しさん** · 2021/03/03(水) 20:20:14.74

正規表現を使うところではない気がするな。ｗ
ちょっとおちついて、行単位で処理していけよ。

**デフォルトの名無しさん** · 2021/03/03(水) 23:36:11.18

>>926
そういうもんなんですか？
pythonだとre.finditerでイタレータ毎に取れるので似たような感じにperlでもどうにか出来るんだろうと思ったのですが無理そうなら諦めます

**デフォルトの名無しさん** · 2021/03/04(木) 00:03:04.76

Ruby なら、

line_num = 0 # 行番号

# 行末の改行を削除して、1行ずつ処理する
results = File.foreach( "test154_data.txt", chomp: true ).with_object( [ ] ) do |line, accm|

line_num += 1
# 3行毎に、ハッシュを作って、蓄積変数に追加する
accm.push Hash.new if line_num % 3 == 1

ary = line.split( ':', 2 ) # 左からコロンで、2つに分割する
hash = accm.last # 最後の要素
hash[ ary[ 0 ] ] = ary[ 1 ]

end

p results

出力
[{"start"=>"aaa1", "end"=>"bbb1", "value"=>"1.23"},
{"start"=>"aaa2", "end"=>"bbb2", "value"=>"2.34"}]

**デフォルトの名無しさん** · 2021/03/04(木) 00:11:02.54

>>927
可不可の話なら、while (m/start..end/g) {...}みたいにしたらきっとできる。

しかし、オレならやらん。
Pythonは詳しくないが、たぶんそれでもやらんやろなあ。

正規表現の使いどころとしては非効率的だし、エラー対応が非現実的だし。
また、対象はファイルの内容だそうだが、ReDoSは知ってるか？

**デフォルトの名無しさん** · 2021/03/04(木) 00:24:13.90

なんで急にRubyが出てくるんだよ（呆れ

**デフォルトの名無しさん** · 2021/03/04(木) 00:42:19.66

perlリスペクト公言言語だから敬意を評してるんじゃないかな、大目に見てあげよう

**デフォルトの名無しさん** · 2021/03/04(木) 09:09:52.94

元がファイルだからなあ
1行ずつ分かれてるものを合体させてまた分離する、というのが無意味に見える

正規表現は柔軟性なので、使わなくていいくらいかっちりしてるものには
使わない方が安全側に倒れる
元ファイルが手書きで、無駄な改行やコメントが入ってるなら正規表現

**デフォルトの名無しさん** · 2021/03/07(日) 10:07:03.25

forkがハングする。

見えてる範囲だと、memoryの使用量が関係してかもしれないです。
firefoxを使って1G程度メモリを食わせてからスクリプト走らせると、forkが返ってこなくなる。
この時のメモリ使用量は他も併せて25%程度。閉じてから再度走らせるとちゃんと動く。
エラー値返してくれたら助かるのだけど、ハングなんで困ってます。
アドバイスいただけるとたすかります。

Strawberry perl 64bit 5.32.1
Windows10Pro 64bit version 2004
Corei3-4370, Memory 12G

**デフォルトの名無しさん** · 2021/03/07(日) 10:45:56.10

安定して動かないならバグっている

だいたい動くけど、ごく稀に動作がおかしい、ということがforkはある
forkがコケても動くような仕組みにすればok

**デフォルトの名無しさん** · 2021/03/07(日) 10:50:58.30

そもそもWindows APIはfork()をサポートしてない。

**デフォルトの名無しさん** · 2021/03/07(日) 11:48:43.53

>>934 ありがとう。
メモリ使用量が低いと成功。
firefoxでもタブ１枚ぐらいなら成功。
firefoxでタブ(yahoo.com)１０枚開くと、確実にハング。

ラクダ本にも、失敗(戻り値undef)の対処法が書いてありますね。
WindowsOSがらみなので、イロイロありそうなのは察します。
でも、forkを呼び出したらハングして帰ってこないからなぁ。
コケるというよりは、forkを呼び出さない:
　　if( $can_fork ) {fork;}
ってな書き方が必要になってしまう。

**デフォルトの名無しさん** · 2021/03/07(日) 11:53:44.14

追記：
perlスクリプトとfirefoxは関係ありません。
単に、デスクトップで調べものしながら、コマンドプロンプトでperlインタプリタ
を起動して作業しているだけです。連投失礼しました。

**デフォルトの名無しさん** · 2021/03/07(日) 12:10:59.62

ActivePerl の Windows 版では fork() がエミュレーションされているらしい。

実際に呼び出してみるとスレッドがひとつ増える。
中ではおおかた CreateThread() でもしてるんだろう。

**デフォルトの名無しさん** · 2021/03/07(日) 12:24:40.47

windowsで安定動作させたいならforkを使わずに自分で別スレッドか別プロセス立てるのが吉

**デフォルトの名無しさん** · 2021/03/07(日) 14:22:59.45

>>938
perldocによると、ActiveStateとMSが頑張ったらしいよ。
エミュあつかいとのことです。

>>939　ありがとう。
スレッドでするわ・・・さすがにハングはだめだわ(^^;

**デフォルトの名無しさん** · 2021/03/07(日) 14:48:48.37

forkとか再帰呼び出しとか、魔術的で楽しいけど、大抵罠にはまる

**デフォルトの名無しさん** · 2021/03/07(日) 17:38:53.17

再帰はええやろ。
forkはもともとUNIX用で、Windowsとは相性が激悪なだけやから、しゃあない。

**デフォルトの名無しさん** · 2021/03/07(日) 17:49:12.06

階層ディレクトリを辿る、みたいなとこに再帰を使うと止まらなくなったりする
絶対止まると保証されてるとこにしか使えなくて、そういうのは別に再帰でなくてもやれる

隅々までどうなってるか判らないものに再帰は威力を発揮するけど、
そういうのは往々にして停止性が保証されない

**デフォルトの名無しさん** · 2021/03/07(日) 18:11:41.00

それはあんたが無能だから

**デフォルトの名無しさん** · 2021/03/07(日) 18:18:17.98

Perlと関係ない話はよそでどうぞ

**デフォルトの名無しさん** · 2021/03/07(日) 23:39:46.89

>>943
再帰終了をちゃんとできないヤツは、ループ終了もできないやろ。ｗ

ディレクトリうんぬんに限って言えば、ファイルシステムへの知識が足りないとかか。
リンク系の。

**デフォルトの名無しさん** · 2021/03/07(日) 23:53:02.15

軽く考えてるけど、プログラムの停止性ってもっそい奥が深い
ゲーデルの不完全性定理と密接に絡んでる

**デフォルトの名無しさん** · 2021/03/08(月) 00:03:00.68

tarのhオプションってよくできているよな
無限ループに陥りやすいが

**デフォルトの名無しさん** · 2021/03/08(月) 00:23:56.56

再帰処理は考えてるの楽しいよな
実装するかとなると状況次第

**デフォルトの名無しさん** · 2021/03/08(月) 01:47:35.66

>>947
バグが存在しない証明は超難しいから、ふつうやらない。
かわりに、テストを必要なだけする。
それだけのこと。

原理とやらは学者に任せておけばいい。

**デフォルトの名無しさん** · 2021/03/08(月) 10:04:20.07

ggl先生に "perl dir tree" で検索かけたら自作ページが多いね。
安心安全鉄板ライブラリとかってあるかな？
素人考えでなんだけど・・・OS別、FS別なんてあるんかの。

**デフォルトの名無しさん** · 2021/03/08(月) 10:17:22.69

親にリンクしていてループするのが困るので、
全部の子に対してカウンタを持たせる、くらいしか回避方法が無いんだよな
それだと再帰でやってるうまみが無くなってしまう

**デフォルトの名無しさん** · 2021/03/08(月) 12:03:45.46

素直にFile::Find使っとけ

**デフォルトの名無しさん** · 2021/03/08(月) 12:34:19.76

dir /s の結果を使うのが一番楽

**デフォルトの名無しさん** · 2021/03/08(月) 16:27:27.25

File::Findは処理速度が遅いのが難

**デフォルトの名無しさん** · 2021/03/08(月) 17:21:12.95

>>952
リンクを不用意にたどるな。
既存コマンドでもオプションにしがちだし、ディレクトリ構成によっては死ぬくらいだから、しゃあない。

**デフォルトの名無しさん** · 2021/03/08(月) 17:24:47.95

>>955
何と比べて？
no_chdirを指定したりしたらマシになったりしない？

**デフォルトの名無しさん** · 2021/03/08(月) 17:40:53.14

ディレクトリならどこかにある実体のコピーだろうから、リンクなんか無しで済むけど、
より一般化したリスト構造だったら辿らない訳にいかない
だから、事前にループしていないことを確認してから処理することになって、
そのテストがループにはまる

**デフォルトの名無しさん** · 2021/03/08(月) 20:06:16.14

>>957
試してみたが、no_chdirは関係ない。
File::Findは、dir /S /B コマンドのパイプ読み取りに比べて、3倍も時間がかかる。
File::Findは遅いだけでなくコールバックでユーザー変数を扱えない欠点があるから、私はFile::Findを使わない。

**デフォルトの名無しさん** · 2021/03/08(月) 21:30:38.88

File::FindはUnix系OSで使う場合は find コマンドのパイプ読み取りと同等か少し速い。
File::Findが明確に遅いのはWindows向けにビルドされたPerlの場合のみ。

**デフォルトの名無しさん** · 2021/03/08(月) 22:05:40.64

>>960
WindowsのどのPerl？
ひょっとしてCygwin版？
ActivePerlやMSYS2版ならマシだったり？

**デフォルトの名無しさん** · 2021/03/08(月) 22:39:10.09

>>961
残念ながらネイティブに最適化されているはずのActivePerl や Strawberry Perl でFile::Findが遅い。
原因は知らないけどWin32APIの使い方が良くないからだと思う。

**532** · 2021/03/09(火) 00:11:34.07

$^WIN32_SLOPPY_STAT じゃね？

File::FindはWindowsだと、SJISで全角「構」などの2ﾊﾞｲﾄ目が\(0x5c)のフォルダに遭遇すると
無限loopしたり誤動作するから、結局Wndowsでフォルダ階層を再帰的にたどるには
utf8化したperl sourceで自分でopendir, readdirして、encode, decodeせにゃならん。

**532** · 2021/03/09(火) 00:15:08.81

別件だがWindowsではSJISで全角「構」などの2ﾊﾞｲﾄ目が\(0x5c)のフォルダには
perlからlstatやutimeが出来ないみたいで難儀した。
Linuxのutf8のファイルシステムと違ってWindowsのSJISファイルシステムは面倒

**デフォルトの名無しさん** · 2021/03/09(火) 01:17:12.50

>>962
そうやったか。。。

>>964
NTFSファイルシステム自体はUTF-16やぞ？
MicrosoftがようやくいよいよコマンドプロンプトとかNotepadとかのUnicode対応を考えはじめてるし、いずれWindows版も対応するんちゃうか。
いっそツッコんだら？

**928** · 2021/03/09(火) 05:19:08.22

>>925
Ruby で、元のファイルを、CSV へ変換してみた。
データ中に、ダブルクォーテーション・カンマを入れても、正常に動く

require 'csv'

line_number = 0 # 行番号

# 行末の改行を削除して、1行ずつ処理する。蓄積変数は2次元配列
results = File.foreach( "input.txt", chomp: true ).with_object( [ ] ) do |line, accm|
line_number += 1
accm.push [ ] if line_number % 3 == 1 # 3行毎に、空配列を追加する

ary = line.split( ':', 2 ) # 左からコロンで、2つに分割する
last = accm.last # 最後の要素 (配列)
last.push( ary[ 1 ] ) # コロンの右側を、配列に追加する
end

results.unshift %w(start end value) # 先頭に、ヘッダー行を追加する
# p results

csv_str = results.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する
print csv_str

出力
start,end,value
a_1,"b""1",1
"a,2",b_2,2.34

**デフォルトの名無しさん** · 2021/03/09(火) 08:00:45.91

コマンドプロントはとっくにUTF-16対応している。出力フォントが表示に対応していないだけ。
コマンドプロントにはもう機能追加されないから Windows Terminalに乗り換えたほうがいい。

**デフォルトの名無しさん** · 2021/03/09(火) 08:27:17.16

コマンドプロントは今でもすでに非システムコード文字(アラビア文字やハングルなど)をコマンドに引数渡しできる。
受け取る側のアプリがUTF-16形式で起動時の引数を取らなかったり、batファイルが非システムコード文字に対応していないだけ。
コマンドプロントの努力だけではどうしようもない。

なお、Windows向けビルドされたJavaやPerlは非システムコード文字を引数で受け取れない制約がある。
プログラム側で自力でbase64エンコード対応するなどして回避するしかない。

一方、Windows向けビルドされたPythonは非システムコード文字を引数で受け取ることができる。
Pythonのプラグインを作ったことある人なら分かると思うが、Pythonはインターフェース間の文字列のやりとりにUTF-16を使っている。

**デフォルトの名無しさん** · 2021/03/09(火) 08:33:53.42

UTF-16も嬉しくない

**532** · 2021/03/09(火) 08:45:38.83

NTFSってUTF-16だったのか、
しかしperlのreaddirはcp932で返してきているような気がs…

**デフォルトの名無しさん** · 2021/03/09(火) 09:28:02.71

NTFSはUCS-2で、windowsがUTF-16
それをわざわざcp932に変換して寄越す

**デフォルトの名無しさん** · 2021/03/09(火) 10:42:13.66

NTFSもUTF-16だと思うよ。

**デフォルトの名無しさん** · 2021/03/09(火) 10:44:51.95

>>968
> コマンドプロントの努力だけではどうしようもない。

そらそうや。
ついにcp932から離れようとする世の方向性を受けて、Perlも変わるんじゃねえの、という話。
Perl7とかでそういう話は出てないんかな？
知らんけど。

> なお、Windows向けビルドされたJavaやPerlは非システムコード文字を引数で受け取れない制約がある。

制約つーか、むしろ互換維持とかただ昔のままほったらかしとかやろ。ｗ

**デフォルトの名無しさん** · 2021/03/09(火) 10:56:11.55

>>971
そのおかげで、20年以上昔からふつうにWindowsで使えてきたわけだからしゃあない。
むしろありがたかった話。

**デフォルトの名無しさん** · 2021/03/09(火) 12:55:12.46

Windows 10 Home でも、Docker が出来るようになった。
ただし、Windowsの連続更新に、3時間も掛かったけど

WSL2, Ubuntu でも使えば？
漏れは、Ruby on Rails をやってる

Linux側には、日本人が作った、バージョンマネージャーのanyenv で、
rbenv, nodenv を使って、ruby 2.6.6, node 12.16.2 も入れた

Dockerでも良いし。
ただし、メモリ8GB じゃキツイ。16GB は欲しい

**デフォルトの名無しさん** · 2021/03/09(火) 20:18:30.71

正規表現のパターンの中に変数を書くとおかしくなりますが、どうしたらいいでしょうか。

やりたいこと：「hoge」の後ろがカンマか行末の場合を抽出したい

$pat = "hoge[,\$\]";
if( $str =~ m/$pat/ ){...}

こう書くと $pat が「hoge[,$]」になることはデバッガで確認できたのですが、思った通りのマッチになりません。マッチングの部分に $pat ではなく定数で「hoge[,$]」と書けばマッチングします。

どう書いたらいいでしょうか？

**デフォルトの名無しさん** · 2021/03/09(火) 20:28:25.57

なんで ] だけエスケープしてるの?

**デフォルトの名無しさん** · 2021/03/09(火) 20:34:49.51

そういうときの為のqrですよ

**デフォルトの名無しさん** · 2021/03/09(火) 20:36:21.19

[]内は文字セットだからその$は行末マッチじゃないし

**976** · 2021/03/09(火) 22:41:12.95

色々やって混乱して間違った事を書いていました。
やりたいことは >>976 の通り。
>>979を見てそれならばと「$pat = "hoge,{0,1}\$"」と書いたら目的を達成できました。

お騒がせしました。