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/

**デフォルトの名無しさん** · 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}\$"」と書いたら目的を達成できました。

お騒がせしました。

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

{0,1}って?と等価だよね

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

>>980
hoge,xxxx
にはマッチしないが、ええんか？
>>976の目的と違うで。

**デフォルトの名無しさん** · 2021/03/10(水) 02:28:31.13

hoge(,|$)

やりたいのはコレじゃない？

**デフォルトの名無しさん** · 2021/03/10(水) 06:16:01.51

>>980
近いといえば近いが、そういう書き方をしたいなら「, で始まる文字列」じゃないか。
hoge(,.*)?$

あと、Perl には \z もあるよ。

**976** · 2021/03/11(木) 11:15:21.72

みなさん、こんなアホに付き合ってもらってありがとうございます。
疲れてたのかな、俺。

まだ試してませんが、教えていただいたやり方でチャレンジしてみます。

**532** · 2021/03/11(木) 11:39:56.33

$pat = 'hoge(?:,.*)?$';
print "1\n" if 'hoge,dsad' =~ $pat;
print "2\n" if 'hoge' =~ $pat;
print "3\n" if 'hage' =~ $pat;

はどうよ

実行例
~ $ perl 64_976_hoge_pat.pl
1
2

**デフォルトの名無しさん** · 2021/03/11(木) 14:27:02.78

もしかして
¥bhoge¥b
がよかったんじゃないの？

**デフォルトの名無しさん** · 2021/03/11(木) 14:37:57.64

splitをうまく使うと解決したかも

**デフォルトの名無しさん** · 2021/03/20(土) 13:47:35.09

梅

**デフォルトの名無しさん** · 2021/03/20(土) 13:51:21.40

Python勉強中

print('梅')
exit()

**デフォルトの名無しさん** · 2021/03/20(土) 17:31:10.22

【モダン推奨】Perlについての質問箱 50箱目
https://mevius.5ch.net/test/read.cgi/tech/1327110999/

**デフォルトの名無しさん** · 2021/03/21(日) 17:34:20.99

夢

**デフォルトの名無しさん** · 2021/03/21(日) 17:36:32.63

爪

**デフォルトの名無しさん** · 2021/03/21(日) 17:39:12.82

うぜ

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

2年で消化　人気スレじゃねーか

**デフォルトの名無しさん** · 2021/03/22(月) 01:23:08.94

うめ

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

↑

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

上

**デフォルトの名無しさん** · 2021/03/22(月) 23:40:13.68

質問いいですか？

**デフォルトの名無しさん** · 2021/03/22(月) 23:41:34.32

おしまい

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 780日 13時間 56分 57秒