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

**デフォルトの名無しさん** · 2021/03/27(土) 23:52:13.17

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.32.1)

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

**デフォルトの名無しさん** · 2021/03/27(土) 23:54:34.17

2以降テンプレNGワードで貼れず。
見たい人は前スレ参照してくださいな。

**デフォルトの名無しさん** · 2021/04/29(木) 02:22:04.28

LinuxやmacOSのperlは、Term::ReadLineの $term->readline() で日本語などのマルチバイト文字の入力結果が文字化けしてしまうが、
cpanなどを使ってTerm::ReadLine::Gnuをインストールすることで回避できる
Linuxの場合はTerm::ReadLine::Gnuをビルドするためにlibreadline-devも必要になる

**デフォルトの名無しさん** · 2021/04/29(木) 14:16:29.56

ttps://blog.outer-inside.net/2021/03/perl-5.34-delta.html

**デフォルトの名無しさん** · 2021/04/29(木) 23:41:19.05

CentOS7 だと yum install perl-Term-ReadLine-Gnu でインストールできたよ。
RPM使ってるOSはこれで行けるのではないかな。

**デフォルトの名無しさん** · 2021/04/29(木) 23:47:16.34

インストールすると perl -d でのデバッグ時も Ctrl+P だの Ctrl+N だの矢印キーだの使えるようになっていいね。

**デフォルトの名無しさん** · 2021/04/29(木) 23:58:36.30

Ubuntu だとこれでインストールできた。Debian 系はこれでできそう。
sudo apt install libterm-readline-gnu-perl

**デフォルトの名無しさん** · 2021/05/23(日) 06:37:34.25

perl 5.34.0 がmacOSのhomebrewにきたけど、cpanがなんか変

**デフォルトの名無しさん** · 2021/05/23(日) 06:43:35.02

cpanだけじゃなくてperldocもだった
perl5.34.0ではなくmacOSに最初から入っている古いバージョンのperlを呼び出してしまうようだ
自力で回避するには古いperlが呼ばれないようにスクリプトを書き換えるなどの作業が必要

**デフォルトの名無しさん** · 2021/07/06(火) 11:11:57.65

PerlスクリプトをVSCodeで対話デバッグするにはどうしたらいいですか？

**デフォルトの名無しさん** · 2021/07/07(水) 01:34:33.25

例えば、Ruby では、p, pp を付けてオブジェクトの内容を確認できるので、デバッグまではしない。
Break Point で止めたり、デバッグしたいのなら、誰かが作った拡張機能を探す

require "csv"

input_str = <<"EOT"
-0.0,1.2.3
9..9,-0
EOT

csv = CSV.new( input_str )
csv.convert( :numeric ) # 数値型へ変換する

line_num = 0 # 行番号

csv.each do |row|
line_num += 1
p [ line_num, row[ 0 ].class, row[ 1 ].class ]
end

出力
[1, Float, String]
[2, String, Integer]

つまり、1.2.3, 9..9 は、型変換に失敗して、文字列のまま

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

>>11
情報量ぜろ！ｗ

**デフォルトの名無しさん** · 2021/07/08(木) 01:00:53.27

>>11
死ね

**デフォルトの名無しさん** · 2021/07/08(木) 10:49:11.06

uby厨は死んで良いが
perlもいい加減やめた方がいい言語
新規で使うなんてあり得ない

**デフォルトの名無しさん** · 2021/07/08(木) 15:43:39.51

Perlは「可読性？何それうまいの」的なノリでやる自分の作業用として重宝する

**デフォルトの名無しさん** · 2021/07/10(土) 14:27:06.61

小規模な一次的に使うツールみたいなのは今でも新規で作ることあるけどね
シェルスクリプトで書くと余計にぐちゃぐちゃで分かり辛くなったり遅くなりそうな場合とか

**デフォルトの名無しさん** · 2021/08/18(水) 18:30:37.25

元々 awk や sed 駆使したシェル芸を代替するためのコマンドだから本来の地位に戻っただけとも言える

ディレクトリ掘って依存設定ファイル作らないとモジュールのインストールもできない JavaScript とか Go と違って cpanm で必要なモジュール放り込めばファイル一個で雑に動くからやっつけ仕事には未だによく使う

**デフォルトの名無しさん** · 2021/08/18(水) 19:15:57.96

褒めてんだかけなしてるんだか

**デフォルトの名無しさん** · 2021/08/18(水) 20:46:15.60

ダクトテープがダクトテープとしてよく働いてくれる、というのは最高の賛辞やろ。
キレイなことだけが誉め言葉ではない。

**デフォルトの名無しさん** · 2021/08/18(水) 21:14:05.44

Perlはホワイトハッカー御用達の言語でしょ

**デフォルトの名無しさん** · 2021/08/21(土) 00:23:42.38

あらまｵﾚ様はホワイトハッカーだったの？

**デフォルトの名無しさん** · 2021/08/21(土) 05:16:45.58

黒ぃハッカー

**デフォルトの名無しさん** · 2021/09/12(日) 04:25:38.35

MediawikiのXMLをパースするプログラムを書いてるんですが、
人間が日常的に使っている[[自然言語]]を[[コンピュータ]]に処理させる一連の技術であり
という文章は[[]]内の文字を<a href>タグで置換することはできたのですが、

応用例としては[[入力予測|予測変換]]、[[インプットメソッドエディタ|IME]]などの文字変換が挙げられる。
このように[[*1|*2]]と２重に入っている文字列の置換がどうしてもうまくいきません。
この場合は、<a href=*2>*2</a>と置換したいのですが、どうしたらいいでしょうか？

**デフォルトの名無しさん** · 2021/09/12(日) 05:49:55.32

s/[[(.*?(|(`*?))]]/$3 ? $3 : $1/ge
かな？試してないけど。

**デフォルトの名無しさん** · 2021/09/12(日) 05:51:13.73

あ、ごめん。| の所は \| ね。

**デフォルトの名無しさん** · 2021/09/12(日) 05:52:45.30

[と]も直前に\要るね。

**デフォルトの名無しさん** · 2021/09/12(日) 07:06:52.84

なぜ、Perl のXML パーサーを使わないの？

例えばRuby なら、Nokogiri と言う、HTML/XML パーサーがある。
内部的には、Libxml2 モジュールを使っているのかな？

たぶん、Perlにもあるはず

**デフォルトの名無しさん** · 2021/09/12(日) 15:32:25.57

パースするのがXMLじゃないからだな。

**デフォルトの名無しさん** · 2021/09/13(月) 10:13:09.30

s/\[\[(.*?(\|(`*?)))\]\]/$3 ? $3 : $1/ge
のパターンで試してみましたが、結果は「インプットメソッドエディタ|IME」
と置換されてしまいます。
(.*?)の部分で、|以降の文字列も含めてマッチングされているようで
それ以降のパターンマッチが効いてないようです。

**デフォルトの名無しさん** · 2021/09/13(月) 10:38:07.93

このへんで確認しろ。https://qiita.com/aqril_1132/items/c185c7ad84c129e5a2df

**デフォルトの名無しさん** · 2021/09/13(月) 23:15:02.86

strawberry perl が34をリリースしないのはなぜだ

**デフォルトの名無しさん** · 2021/09/15(水) 19:04:24.79

スクレイピングすると地獄へ落ちるって本当ですか？

**デフォルトの名無しさん** · 2021/09/15(水) 23:51:59.00

落ちたり落ちなかったり

**デフォルトの名無しさん** · 2021/09/15(水) 23:54:27.28

>>29
それ . が ` になってるよ。直してやってみたらちゃんとできたよ。

$ echo '[[インプットメソッドエディタ|IME]]' | perl -pe 's/\[\[(.*?(\|(.*?)))\]\]/$3 ? $3 : $1/ge'
IME
$

**デフォルトの名無しさん** · 2021/09/18(土) 03:37:45.50

スクレイピングの勉強するのですが、下手するとF5アタックになるとかの法的リスクと回避法を重視している入門書ってありますか？
今の所やりたいことは、特定の市町村の5年分気温気象データを収集して自分用に加工
近所のコインランドリーの稼働データを集計して空いてる確率が高い時間帯を調べるの2つです
前者は膨大なデータを取得する必要があります
後者は10分から20分おきにアクセスすることになります

**デフォルトの名無しさん** · 2021/09/18(土) 03:45:17.73

まるぽ

**デフォルトの名無しさん** · 2021/09/18(土) 18:17:05.22

頭のおかしい人に以下のようなことを言われました

>>基本、スクレイピングは営業妨害との戦い。
>>どの本にも、そう書いてある。
>>スクレイピングを推奨する本はない

具体的な書籍名を教えてください

>>5ch は、マルチポスト禁止！
>>同じ質問を、複数のスレや外部のサイトに書いてはいけない

どこでそんなルールが決まっているのでしょうか？

**デフォルトの名無しさん** · 2021/10/02(土) 06:38:43.82

socketでデータを受信すると、
データの途中に「残りバイト数」が挿入されてしまうことがあるんだけど、これはどう取り除けばいいの？
例えばこんな感じになる
wtjjpodjtjtjaajjgjjaatwdjjg@gptjwttdmttjmttpwm'jajt
1f
1234567890123456789012345678901
残りバイト数(1f)を16進数で表した文字列が挿入されてる
元々こういうデータだった場合と、挿入されてこうなった場合の区別が付かない
readline()でもread()でも結果は同じだった

**デフォルトの名無しさん** · 2021/10/02(土) 14:54:42.04

>>38
なにそれ？文字で挿入されるの？そんなの初めて聞いたなあ。送る側で入れてるだけなのでは？(そうでなければ呼んでるライブラリが何かおかしいか)

socket 関係はバッファリング避けるために sysread() 使った方が良い場合があるよ。
select で入力待ちをした後で読み込みとかね。
後は気を付けるとしたらノンブロッキングにしてるかどうかかな。

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

activeperlからStrawberryperlへ移行を検討しているのですが、
activeperlで使用しているモジュール（ Win32::EventLog::Message）が
cpanから削除されておりbackpanには残っていました。
https://cpan.metacpan.org/authors/id/D/DA/DAVEROTH/
上記から、Win32-EventLog-Message.tar.gzはダウンロードできたのですが、
当方perl初心者でStrawberryperlへのインストール方法がわからず困っております。
どなたかインストール方法についてご教授お願い致します

38 · 2021/10/03(日) 15:42:34.37

お騒がせしました
Transfer-Encording: chunked
ってやつだった
これかどうかを確認して別処理か…面倒くさあい

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

>>40
マジレスするとperlを捨てるチャンス

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

>>42
そのかわりに何を勧めんの？
Windowsのイベントログを扱いたいヤツに。

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

40です。
通常Makefile.PLでインストールするようなのですが、
上記tar.gzには、Makefile.PLがなく、
Message.pmがあるのですが、
これは、strawberryperlにはインストールできないのでしょうか？

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

できるかどうか自分で試すしかない
他人にやってもらおうってのは虫が良すぎ

**デフォルトの名無しさん** · 2021/10/21(木) 12:31:10.82

my $str = "<img src=\"./test1.png\" style=\"width:100px;height:100px\">";
./test1.pngの部分を./test2.pngに置換するにはどうやればいいんですか？

my $str =~ s/test1.png/test2.png/g;というのじゃなくてtest1.pngの部分がどんな
画像URLでも置換できるように

**デフォルトの名無しさん** · 2021/10/21(木) 12:49:12.67

test2.pngを変数にすればいいだけ

**デフォルトの名無しさん** · 2021/10/21(木) 12:53:02.13

いやそうじゃなくて正規表現使ったやつで

**デフォルトの名無しさん** · 2021/10/21(木) 13:11:31.93

s/src=".+?"/src="test2.png"/

**デフォルトの名無しさん** · 2021/11/08(月) 18:04:06.58

{a}ab{abc}
{}で囲まれたaだけdに置き換えたい
どうやればいいんですか？

{d}ab{dbc}になればいいってこと

**デフォルトの名無しさん** · 2021/11/08(月) 18:59:06.40

それだけじゃ分かんない
全ての条件を書かないと
それが解なんだけどね

**デフォルトの名無しさん** · 2021/11/08(月) 22:10:38.33

本当にやりたいのは
my $line = "<img src='aaa.png' width='300' height='200'> 画像説明";
<>の中にある全ての を半角スペースに置き換えたいっす

実行結果は<img src='aaa.png' width='300' height='200'> 画像説明となればいいっす

送信したときブラウザが勝手に半角スペースを に変換しちゃうみたいなのでタグ内の半角スペースだけ元に戻したいから

**デフォルトの名無しさん** · 2021/11/09(火) 00:02:06.84

sub f {
my $s = shift;
$s =~ s/ / /g;
return "<$s>";
}

$line =~ s/<(.+?)>/f($1)/eg;

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

sub f {
my $s = shift;
$s =~ s/＆＃160;/ /g;
return "<$s>";
}

$line =~ s/<(.+?)>/f($1)/eg;

**デフォルトの名無しさん** · 2021/11/09(火) 00:36:22.21

ありがとうございました

**デフォルトの名無しさん** · 2022/01/06(木) 18:30:59.16

printで出力すると/nで改行できません
二重引用符で括ってもできません
なにをやっても/nがそのまま表示されます
調べても二重引用符で括れとか〈br〉とかしか出てきません

**デフォルトの名無しさん** · 2022/01/06(木) 18:45:34.18

スラッシュnは改行じゃないからな

**デフォルトの名無しさん** · 2022/01/06(木) 20:07:08.37

斬新な質問だ。ｗ
斜めの縦棒を日本語キーボードで入力しろ、と言われたらたしかにそうなるかもだが。

**デフォルトの名無しさん** · 2022/01/07(金) 00:42:46.84

>>56
\n でやってみな。

**デフォルトの名無しさん** · 2022/01/07(金) 00:45:13.42

>>58
やはり \ (\x5c) の歴史的な事情を知らないと分からないのだろうな。

56 · 2022/01/07(金) 18:30:12.92

￥マークを\に変えたらできました
紛らわしいもんですね

**デフォルトの名無しさん** · 2022/01/08(土) 10:43:35.54

そう。紛らわしいんだ。

**デフォルトの名無しさん** · 2022/01/08(土) 23:05:04.70

逆スラッシュは、日本語・Windows 用のキーボードで、半角の\ と同じ

半角の\ と見た目が同じでも、異なる文字コードの文字があるので、
それは使わないようにすべき！