【モダン推奨】Perlについての質問箱 50箱目

**デフォルトの名無しさん** · 2012/01/21(土) 10:56:39.03

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

回答する際はモダンな方法でお願いします
（例 jcode.plではなくEncodeモジュールを使った方法）
理由はもう2012年です。いい加減2000年以前の方法はやめましょう。
最新のPerlを使うほうがかっこいいです。
いつまで勉強しないつもりですか？
過去にとらわれるのはもうやめです。進歩しませんよ。

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

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

http://www.perl.org/get.html
● 2011/10/30 現在の最新版: 5.14.2

▼ 前スレ
Perlについての質問箱 49箱目
http://toro.2ch.net/test/read.cgi/tech/1319953460/
リンク集は >>2-3辺り
Perl 日本語処理の基礎の基礎 >>4辺り

**デフォルトの名無しさん** · 2020/05/27(水) 01:20:04.31

Perlを勉強しています。
「use constant」で定義したハッシュのキーを
keys関数で取り出したいのですが出来ません。
どのような方法で取り出せますか？

use constant H => { a=>'AAA', b=>'BBB' };
foreach ( keys H ) #エラー。「keys %H」とするとエラーにならないが何も得られない。
{
print $_, "\n";
}

宜しくお願いします。

**デフォルトの名無しさん** · 2020/05/27(水) 01:33:03.79

use constant H => { a=>'AAA', b=>'BBB' };

foreach (keys %{H()}) {
print $_, "\n";
}

**デフォルトの名無しさん** · 2020/05/27(水) 02:12:19.49

>>933
ぬおおおおっ…Perlムズイっす。
「H()」この部分はハッシュへの参照を返してるのだと思うのですが、
実体はサブルーチンだったのですね！「&H」でも上手く行きました。

**934** · 2020/05/27(水) 03:05:09.48

>>933
お礼を記し忘れていました。
ありがとうございました。

**デフォルトの名無しさん** · 2020/05/27(水) 05:13:22.61

Perl は難しすぎる。
Ruby では、

hash = { a: 1, b: 2 }

hash.each_key { |key| p key }

出力。:a などはシンボル
:a
:b

**デフォルトの名無しさん** · 2020/05/27(水) 06:47:35.32

>>936
そういう話をしているのではないです。
そのコードを見る限り、
普通のハッシュキーを取り出すだけだったらPerlの方が簡単な気がします。
my %h = ( a => 1, b => 2 );
print "$_\n" foreach ( sort keys %h );

結果:
a
b

※>>933は、「use constant」で定義したハッシュのキーの事です。

**615** · 2020/05/27(水) 08:50:36.01

constantの実体は値を返すsubなので、%{}でデリファレンスしてね

**デフォルトの名無しさん** · 2020/09/28(月) 17:41:16.96

(?:)
をいつも忘れるんだが、何かいい覚え方は無いだろうか

**デフォルトの名無しさん** · 2020/09/28(月) 19:13:20.83

>>939
何を忘れんの？
「?」？「:」？
さすがに「()」は忘れんよな？

**デフォルトの名無しさん** · 2020/10/04(日) 23:18:25.80

>>939
いいじゃんべつに。気にせず普通の括弧にして捨てろ。

**デフォルトの名無しさん** · 2020/10/05(月) 07:42:46.02

ずれるやん

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

>>939
後で参照する ? 単に丸括弧を使う : 丸括弧内に「何か」を入れる
さて、「何か」とは、一体何だっただろうか？そうだ、三項演算子だ！

…と覚える。

**デフォルトの名無しさん** · 2020/10/07(水) 13:37:28.91

>>943
「(?」でひとつとするべき。
その次に「:」「!」などが修飾子としてつく。

**デフォルトの名無しさん** · 2020/10/07(水) 15:33:40.38

あと、マッチングのオプションのsとmも毎回検索してる
最初に思うのは大抵逆

**デフォルトの名無しさん** · 2020/10/08(木) 09:33:52.95

(?シリーズをいろいろ使ってれば、あとは:だけだけど、
そもそも(?:しか使わないんだよな
いろいろ便利そうな拡張ではあるけどこれ以上可読性下げてどうする

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

TABをデリミタにしてデータが1行に並んでいる
但し、""で囲まれていれば内部にTABを使ってもよい

というルールのデータに対して、""に囲まれているTABをスペースで置換したい
どう書けばいい?

**デフォルトの名無しさん** · 2020/10/11(日) 19:55:14.93

多分、これでいけると思う。

while(s{(".*?)\t(.*?")}{$1 $2}){}

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

どうやって使うかすら判らん

**デフォルトの名無しさん** · 2020/10/11(日) 22:14:06.89

while(<>){
while(s{(".*?)\t(.*?")}{$1 $2}){}
print;
}

これで解らないなら、「Perlの入門書をよく読みましょう」
としか言えないのだが。

**デフォルトの名無しさん** · 2020/10/11(日) 22:42:11.43

せめて入力が$strとかになってないと

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

while($str =~ s{(".*?)\t(.*?")}{$1 $2}){}

しかし、Perlを使うなら、文中で省略されている$_ のことは
知っておかないといけない。

**デフォルトの名無しさん** · 2020/10/11(日) 23:56:48.98

タブ文字が複数あったら？とかダブルクォートが含まれてたら？とか、不安もいろいろ。
いわゆるExcelCSVなら、置換一発とはイカンやろな。

CSVモジュールでも探すか、マジメに自作するかして、セルごとに置換しないと個人的には落ち着かないな。

**デフォルトの名無しさん** · 2021/03/25(木) 23:19:00.52

$_ などの特殊変数に依存したコードを書くと移植性と可読性が著しく低下する。
正規表現にまつわる特殊変数も厄介。別の正規表現が呼ばれて上書きされてしまうからすぐにコピーしないといけない。

**デフォルトの名無しさん** · 2021/04/28(水) 14:52:38.35

ビットシフト演算の挙動の違いが表面化した
32bitと64bitのビルドの違いにより、1 << 32の結果が変わる

32bitのperlが2^32以上の整数を扱えない訳ではないので、
ビットシフト演算子を使わずにビットシフト演算子と同じことをやらないといけない
何か抜け道は無いもんか

**デフォルトの名無しさん** · 2021/04/30(金) 18:29:08.85

>>955
シフトするだけなら2倍したり2で割ってintにすれば良いのでは?
もっと大きなビットを扱いたい場合は Math::BigInt かな。

**デフォルトの名無しさん** · 2021/04/30(金) 19:23:07.21

もっそい遅いんだっけ

**デフォルトの名無しさん** · 2021/04/30(金) 19:31:00.11

use bigint だと透過的にできることがわかった。
こんなのできたし。

$ perl -e 'use bigint; my $x = 1; $x <<= 256; print "$x\n"; if ($x & (1 << 256)){print "OK\n";}'
115792089237316195423570985008687907853269984665640564039457584007913129639936
OK
$

日本語訳された bigint のマニュアル
https://perldoc.jp/docs/modules/bignum-0.23/bigint.pod

**デフォルトの名無しさん** · 2021/04/30(金) 19:43:01.50

何をしたいかというと、8byte単位の送信データがあって、
実際にはそれを64bitと見ていて、あるレコードは何bit目から何bit長、みたいに詰め込まれている
byte間とか平気でまたぐ
そういう64bitにデータをセットしたり取り出したり、という操作をしようと思うと、
1変数が64bitになっている方が楽に書ける
でも32bitの処理系だとできない

**デフォルトの名無しさん** · 2021/05/01(土) 05:00:07.50

ネットワークの通信データの取り出しなら unpack でフォーマットを N2 で配列または変数2個に取り出してからやれば楽なのでは?

**デフォルトの名無しさん** · 2021/05/01(土) 09:00:30.12

やれるとすっきりするけど、バイトオーダーやエンディアンがころころ変わるから、
何か落とし穴がありそう

**デフォルトの名無しさん** · 2021/05/01(土) 09:21:38.72

Perl の仕様が邪魔してるということなら Inline::C とかが役に立つかも。

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

pack, unpack は互換性重視していると思うが? 少なくともフォーマットの N 等は同じ4バイトだよ。
その辺どうしても信用できないなら自分専用の pack, unpack を作れば良いんじゃないかな。
そうすると pack, unpack と同じ形式である必要もないわけだが。

**デフォルトの名無しさん** · 2021/05/01(土) 18:01:49.35

そんなようなことをしてるのが現状の実装

**デフォルトの名無しさん** · 2021/05/02(日) 17:15:11.59

そういえば Perl のネイティブな整数のサイズって C のどれなのかな。
perlnumber には「perl をビルドする際に使われた C コンパイラが対応している形式」と
書かれてるけど。
ちなみに今使ってる環境では int ではなく long , long long と同じ 8 バイトのようだ。

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

Perl5のビルドはやった事ないので知らないが、多分デフォルトがCのintと同じで指定すれば変えられるって感じなのではないかな。
perl -V で実行するとそういう設定値が沢山出てくるよね。その中に intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
のようなものが出てくる。

そういや前に整数のバイト数でハマったことあったな。 fcntl() の F_SETLKW の時に渡す flock 構造体のバイナリで
pack('s2l3', F_WRLCK, SEEK_SET, 0, 0, 0) ってやっててうまく行ってたプログラムが別の環境に持って行って動かしたら
ロックが掛かったり掛からなかったりするようになり、良く調べてみたら pack の l は64bit環境でも 32bit 固定だが
struct flock の方は l_start, l_len が32bit OS では 4 バイト、64bit 環境では 8 バイトになっていた。
そもそも pack してバイナリにしなければいけないような引数の渡し方がいけないだけだとは思うが、結局どちらの
環境でも動くプログラムにするために pack('s2l5', F_WRLCK, SEEK_SET, 0, 0, 0, 0, 0) で誤魔化した。
やっぱこういうのは本来ならモジュール作ってそこで吸収した方が良いんだろうな。

と思ったらあった。
https://metacpan.org/pod/File::FcntlLock

是非デフォルトでこういうモジュールも perl と一緒にインストールされて欲しいものだな。

**デフォルトの名無しさん** · 2021/05/04(火) 07:28:36.10

ありがとう。たまたま Perl のソースコードをダウンロードしてあるから
INSTALL を読んでみたら (いや、先に読んどけという話だが)
C コンパイラがサポートしてなくても use64bitint というオプションを使えば
整数のサイズが 64 ビットになるらしい。
Debian のパッケージでもこれを使ってるようだ。

C コンパイラの仕様は Config モジュールで得られるから
それを使って環境に合わせた処理が可能になる場合もあるが
Linux の flock 構造体はメンバの順番すら保証されてないようだから無理そう。

**デフォルトの名無しさん** · 2021/05/04(火) 11:47:57.60

間違えた。「C コンパイラが」じゃなくて「CPU が」だ。
Configure を見た限りでは、8 バイト整数の型として採用する優先順位は
int, long, long long, int64_t の順で
8 バイトの型が無ければ Configure が失敗するようだ。
あっても CPU が対応してなくてライブラリで実現してるような環境だと
速度のためにあえて使わないという選択もあるかと思うが
long が 8 バイトだと強制的に使わされるようだ。
試せる環境が無いから勘違いしてるかもしれないが。

**デフォルトの名無しさん** · 2021/05/04(火) 16:45:05.36

さいですか

**デフォルトの名無しさん** · 2021/05/04(火) 16:56:22.60

きりんです

**デフォルトの名無しさん** · 2021/05/04(火) 16:58:56.75

なんできりんなんだよ
そこはラクダだろ

**デフォルトの名無しさん** · 2021/05/04(火) 17:08:17.38

でも象さんのほうがもっと好きです

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

テーブルがあってインデックスで取り扱いたい
でもテーブルを作る時にカウンタとか意識したくない

配列なら
push @table, $data;
で済むけど、ハッシュにしたい
$table[$i]->data1 = $data1;
あるいは
$table->[$i]->data1 = $data1;

そんなことできたっけ

**デフォルトの名無しさん** · 2021/05/05(水) 15:53:07.29

日本語でおｋ

**デフォルトの名無しさん** · 2021/05/05(水) 16:00:54.87

全部一度に判ってるなら、無名ハッシュをpushすればいいんだけど
ちょびちょび追加していきたい

**デフォルトの名無しさん** · 2021/05/06(木) 21:44:26.70

君が何をしたいのかよくわからない。

**デフォルトの名無しさん** · 2021/05/06(木) 21:49:53.54

->data1は->{data1}の間違い

**デフォルトの名無しさん** · 2021/05/16(日) 14:19:41.36

pontiffがprintfに見える

**デフォルトの名無しさん** · 2021/05/24(月) 07:52:58.62

親の方は無限ループにしておいて、適宜forkしてメインの処理をさせる
終わったら子はexitする

という作りで基本的にうまくいってるのに、たまに親が子だと思ってexitしとる
$pid = fork;
if (!$pid) {
exec($command);
exit;
}
この書き方に何か問題が?

**デフォルトの名無しさん** · 2021/05/24(月) 08:16:28.74

親プロセスがwait $pid しないとゾンビが蓄積される。
それが続くと0ではなくundefを返すと思う。思うとしか言えないのはperldocに書かれてないから。
defined $pid でundefと0を区別する必要あり。
$!にResource temporarily unavailableのようなエラーが渡されるのでたぶんそう。
なのでちゃんと親プロセスがwait $pidすれば回避できる。

**デフォルトの名無しさん** · 2021/05/24(月) 08:19:17.40

訂正。
perldoc -f forkにfork失敗時にundefを返すことが書かれてたわ

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

やっぱり失敗してるんだよな
リトライするように直して試してみてるとこ

どういう理由で失敗するんだ?
activeperl

**デフォルトの名無しさん** · 2021/05/24(月) 13:11:06.83

windows版のforkもどきだからじゃないの？

**デフォルトの名無しさん** · 2021/05/24(月) 13:35:57.27

macOSでも起きるよ

**デフォルトの名無しさん** · 2021/05/24(月) 13:56:03.81

今たまたま何かのリソースが全部埋まってて、一瞬待ってくれたら準備できるよ
なんだったら、リトライは隠蔽してくれて良さそうなもんなのに
IO関係はみんなそうなってる

**デフォルトの名無しさん** · 2021/05/24(月) 16:23:07.38

Perlはかなりの低レイヤーでも使われることがあるからな。
そんな冗長にはできんやろ。

そもそも、ぜんぜんwaitpid()しなかったらいずれ困るんだから、早くエラーになったほうがまし。

**デフォルトの名無しさん** · 2021/05/25(火) 22:10:30.48

activeperlで
forkで返るpidがマイナスの値なんだけど、
Win32::Process::List で GetProcesses して得られるものとは別物なの?

**デフォルトの名無しさん** · 2021/05/25(火) 22:38:53.48

>>987
かもね。
聞く前にドキュメントを読め！

https://docs.activestate.com/activeperl/5.28/perl/perlfork.html

**デフォルトの名無しさん** · 2021/05/25(火) 22:59:31.10

疑似プロセスIDは、OSのプロセスIDとは別物なのか

要は、forkで分岐したプロセスがまだ生きてるかどうか親から周期的に監視したいんだけど
waitすると親が止まってしまうのでどうしたもんか

**デフォルトの名無しさん** · 2021/05/25(火) 23:54:54.75

別スレッドでsystem()ではアカンのか？

**デフォルトの名無しさん** · 2021/05/26(水) 07:17:11.86

スレッド使ったことない

**デフォルトの名無しさん** · 2021/05/26(水) 08:32:40.50

perlのスレッドは標準IOやパイプの取り扱いが難しい、というか動きが怪しい

**デフォルトの名無しさん** · 2021/05/26(水) 09:53:00.68

シェルスクリプトではkill -0 PIDでプロセスが生きてるか調べられる！
そういう用途にはシェルスクリプトを使うべき！

**デフォルトの名無しさん** · 2021/05/26(水) 09:53:29.06

ユーチューバーのKENTとかも言ってる！

**デフォルトの名無しさん** · 2021/05/26(水) 10:20:29.11

GetProcessesでpython.exeを見つければだいたい目的は達成するんだけど、
他に使ってる人がいると間違う

**デフォルトの名無しさん** · 2021/05/26(水) 10:37:03.92

実行バイナリやシェルコマンドをP言語スクリプトから呼び出すソリューションが最も汎用性が高い
古事記にもそう書いてある

**デフォルトの名無しさん** · 2021/05/26(水) 10:40:21.49

そこもちゃんとユーチューバーのKANTのサロンで言ってる！って
語尾に付けないと

**デフォルトの名無しさん** · 2021/05/26(水) 10:48:36.67

このスレ、消費に9年以上かかってるとか盛者必衰の理をあらわしてて草

**デフォルトの名無しさん** · 2021/05/26(水) 11:00:06.47

9年か・・・。Perlもずいぶんと長生きだね。

次スレ

【古典的モダン】Perlについての質問箱 51箱目
https://mevius.5ch.net/test/read.cgi/tech/1621994129/

**デフォルトの名無しさん** · 2021/05/26(水) 11:35:56.72

質問してもええか? ええのんか?

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 3413日 0時間 39分 17秒