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

**デフォルトの名無しさん** · 2014/02/19(水) 23:36:23.29

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.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.18.2)

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

**デフォルトの名無しさん** · 2017/08/27(日) 20:38:24.57

Perl6?

**デフォルトの名無しさん** · 2017/08/27(日) 21:17:36.95

6は別物らしいね

**デフォルトの名無しさん** · 2017/08/27(日) 22:40:07.20

pythonもVBもバージョン上がると別物になる
そして大抵古い方が使いやすい

**デフォルトの名無しさん** · 2017/08/27(日) 22:55:26.24

pythonはそろそろLinuxのデフォルトが3になりそうだけど
Perlはそんな気配全く無いよねｗ

**デフォルトの名無しさん** · 2017/08/27(日) 23:11:43.20

システム付属のスクリプト言語っていう立ち位置がかつてのPerlからPythonに変わったからなあ

**デフォルトの名無しさん** · 2017/08/27(日) 23:14:14.93

過去の資産が多いほどおいそれとは変えられない

**デフォルトの名無しさん** · 2017/08/29(火) 00:32:32.45

Perl は5.005まで。5.6からは別物。

**デフォルトの名無しさん** · 2017/08/29(火) 18:35:08.35

<?=>

**デフォルトの名無しさん** · 2017/08/29(火) 18:35:53.37

>>801
なにそれどうやって書くの？

**デフォルトの名無しさん** · 2017/08/30(水) 09:00:08.40

>>810

Unicode Character 'ATOM SYMBOL' (U+269B)

おいらのＰＣでは、コピペしてもフォントが対応していないので出てが。

**デフォルトの名無しさん** · 2017/08/30(水) 19:42:59.46

環境によってはどうやってもアトミックにならんのでは

**デフォルトの名無しさん** · 2017/08/31(木) 15:10:50.45

$_ って正式名称はなに？

**デフォルトの名無しさん** · 2017/08/31(木) 20:40:54.54

>>813
特に決まっていない
use English した時の名前は ARG
http://perldoc.jp/docs/perl/5.22.1/perlvar.pod#General32Variables
http://perldoc.perl.org/perlvar.html#General-Variables

**デフォルトの名無しさん** · 2017/08/31(木) 21:06:33.50

日本だとparameterもargumentもどっちも引数と訳して区別しないから、
何故ARGなのかピンときにくいな

**デフォルトの名無しさん** · 2017/08/31(木) 22:02:37.51

引数は単に引数ってだけ。その使われ方は決まっていない。

例えば言語によっては関数の引数で戻り値を返すことだってできる。
つまり引数＝パラメータではない

また関数の引数の多くはパラメータになるが、
引数だけがパラメータではない。
環境変数でパラメータを渡すことも有る

つまり「この関数の引数はすべてパラメータであり、引数以外のパラメータは取らない」
のような使い方をする

**デフォルトの名無しさん** · 2017/08/31(木) 22:05:02.71

なぜ $_ が ARGなのかというと
正式名称が「デフォルトの引数」だからである。

**デフォルトの名無しさん** · 2017/08/31(木) 22:17:16.68

そういう理解なんだねとは思うけど、何も正しくない

パラメータは、数学の媒介変数から借りてきた言葉で、
それを変化させると結果がいろいろ変わる変数

argumentは訳語が無いのでアーギュメントとするけど、
これは仮引数とも訳されて、関数を定義する時に便宜的に使われる名前

y = f(a)
と使うけど、定義では
f(x) = x*x
みたいに違う名前で書く

ここで、aがパラメータで、xがアーギュメント

**デフォルトの名無しさん** · 2017/08/31(木) 22:45:26.64

それは数学での定義でしかない

**デフォルトの名無しさん** · 2017/09/01(金) 15:00:43.14

引数として使ってるものが引数
パレメータとして使ってる物がパラメータ

**デフォルトの名無しさん** · 2017/09/02(土) 10:40:48.32

パレパレ

**デフォルトの名無しさん** · 2017/09/02(土) 12:32:02.45

パレメータでぐぐると600件くらいヒットするから、
それなりに認知された用語だ

**デフォルトの名無しさん** · 2017/09/03(日) 01:01:13.45

ネイティヴ風の発音だね

**デフォルトの名無しさん** · 2017/09/03(日) 11:11:45.08

たまにいるよな。
大抵のカタカナ英語は日本語風に書いているのに
特定の単語だけネイティブ風に書くやつ

より正確な英語の発音にこだわってるんだー風を
だしていながら、その他のよく知られたカタカナ英語は
そうやってないから、ものすごく恥ずかしい

**デフォルトの名無しさん** · 2017/09/03(日) 12:13:05.99

何言ってんだかさっぱりわかんないな。
これじゃ駄目なん？　普通にパラメータに聞こえますけど。
http://ejje.weblio.jp/content/parameter

元凶は日本のマスゴミなんだから逆らって
アイフォーンをアイフォンとかは全然いいんじゃない？

**デフォルトの名無しさん** · 2017/09/03(日) 17:26:43.87

そして突然迷い込む馬鹿二人（うち一人が発狂）

**デフォルトの名無しさん** · 2017/09/04(月) 02:55:51.13

パリミラァ

**デフォルトの名無しさん** · 2017/09/04(月) 05:58:32.53

なんてネイティヴな発音！

**デフォルトの名無しさん** · 2017/09/06(水) 01:01:55.01

アイフォーンはアイフォーンだろうがゴミ
日本企業の商標を無視するとか朝鮮人かよ

**デフォルトの名無しさん** · 2017/09/06(水) 19:33:55.21

先にアイホンがあったから、アイフォンって名乗れないだけだけどな

**デフォルトの名無しさん** · 2017/09/07(木) 01:22:55.82

>>825
おれには「フラメトル」としか聞こえん

**デフォルトの名無しさん** · 2017/09/07(木) 07:54:03.77

disableをディセーブルだと判ってるのに、どうしてもディザブルと読んでしまう

**デフォルトの名無しさん** · 2017/09/10(日) 19:11:13.56

ディスエイブル

**デフォルトの名無しさん** · 2017/09/10(日) 19:11:55.89

deny はデニーではなくディナイ

**デフォルトの名無しさん** · 2017/09/10(日) 19:13:03.02

alias はアリアスではなくエイリアス

**デフォルトの名無しさん** · 2017/09/10(日) 21:23:32.99

dosは土座

**デフォルトの名無しさん** · 2017/09/12(火) 21:58:39.86

>>836
お前PCニュース板で荒らしって叩かれてるやつだろｗ

**デフォルトの名無しさん** · 2017/09/15(金) 23:16:27.00

質問ですが required.plをtest.plからrequire './required.pl'としたとき、
required.plの中でuse strict;と書いてもtest.plがstrictにならないのに
required.plの中でuse CGI;と書くとtest.plでmy $q = new CGI;できてしまうのは何で？
use xxxx;にスコープの違いがあるとして、何読んだらﾜｶﾙ？
ちなPerl 5 (v5.16.1)

**デフォルトの名無しさん** · 2017/09/15(金) 23:33:11.49

>>838=ゴミ言語に合理性や整合性を求める知恵遅れ

社会のお荷物だよお前

**デフォルトの名無しさん** · 2017/09/15(金) 23:43:23.66

訳: わかりません

**デフォルトの名無しさん** · 2017/09/16(土) 00:35:28.29

>>838
http://perldoc.jp/docs/perl/5.16.1/perlmod.pod
プラグマは大体ブロックスコープだけどものによるから個別に調べて
http://perldoc.jp/index/core

**デフォルトの名無しさん** · 2017/09/16(土) 10:28:48.29

>>841
レス㌧くすあり～

Perl 4時代のCGIをメンテ中なう、、
new CGI;すると何かページの挙動が変わってしまうので結局CGI使わずに調査することにすた、

**デフォルトの名無しさん** · 2017/09/16(土) 10:40:43.15

>>838
そもそも概念が全く違うな
CGI->new が呼び出せるように strict->importは呼び出せるようになっているし

パッケージの定義がグローバルな名前空間に行われてるのは同じ
strictの有効化はコンパイル時のperl内部のスイッチの切り替え
同じ use でもやりたいことが違うからスコープの違いという視点で整理しようとすると混乱しそう

**デフォルトの名無しさん** · 2017/09/21(木) 20:27:42.42

文字列$str2から文字列$str1に含まれている文字以外を全て削除する
例えば$str2="あaかbさcたdなe";$str1="あかさたな";ならば
absdeが残るということです
モジュール使えない環境なのでモジュールなしのやりかたで

**デフォルトの名無しさん** · 2017/09/21(木) 20:29:23.07

間違えたabcdeが残るではなくあかさたなが残る

**デフォルトの名無しさん** · 2017/09/21(木) 21:26:21.38

$str2="あaかbさcたdなe";
$str1="あかさたな";

$str2 =~ s/[^$str1]//g;
print $str2; # あかさたな

**デフォルトの名無しさん** · 2017/09/21(木) 23:33:40.68

正規表現は書けても実行しようとするとむちゃくちゃ遅くなったり
メモリ足りなくなったりして、結局ループに開いたりする

**デフォルトの名無しさん** · 2017/09/22(金) 05:44:52.27

あああああああああまははあああああああああああああああああああああなやたはあああああああああああああああなはわたはなたかかなななななああああああああああああああああああああああああああああかかかかあああああああああああああかささやなさはななけなわまややゆか

**デフォルトの名無しさん** · 2017/09/22(金) 09:19:14.94

>>846
そのやり方だと
$str2="あaかbさcたdなe";が
$str2="あaかbさcたdなはe";
だったら結果が文字化けする

**デフォルトの名無しさん** · 2017/09/22(金) 09:42:25.43

utf8に変換して処理しなさい

**デフォルトの名無しさん** · 2017/09/22(金) 09:45:38.48

常識ですな

**デフォルトの名無しさん** · 2017/09/22(金) 12:47:50.13

>>847
それは大抵バックトラックのせいだからバックトラックを減らしなさい。
たとえば、単に \s* ではなく (?>\s*) と書く。

**デフォルトの名無しさん** · 2017/09/23(土) 15:14:55.50

Perlは正則言語を最左導出に変換していないとか一体…
まあ一般に状態数が増えてメモリ食うけど

**デフォルトの名無しさん** · 2017/09/30(土) 21:35:00.65

ファイルロック用のファイルを使ってロックしている最中に
他プロセスでそのロック用ファイルを削除すると
ロック解除されてしまうの？

**デフォルトの名無しさん** · 2017/10/01(日) 00:30:05.86

す、す、すみません、どなたか教えてくららい。

**デフォルトの名無しさん** · 2017/10/01(日) 02:02:03.44

ロックしているファイルを、他のプロセスは削除できないだろ

試してみれば？

**デフォルトの名無しさん** · 2017/10/01(日) 04:19:01.01

見事にヴァカが釣れたｗ
腹痛いｗｗｗｗｗｗｗｗｗｗｗ

**デフォルトの名無しさん** · 2017/10/01(日) 06:50:57.38

10/1は裏エイプリルフール
何をしても許される

**デフォルトの名無しさん** · 2017/10/01(日) 23:10:23.34

試してみたけどwindowsサーバーだとロック中のファイルは削除できないけど
unixサーバーだと削除できてしまってロックが解除される
だからロック用ファイルは削除しないでそのまんまの方がいい

**デフォルトの名無しさん** · 2017/10/02(月) 13:19:40.10

>>859
unixでファイル削除してもロックは解放されない

**デフォルトの名無しさん** · 2017/10/02(月) 13:31:28.69

>>860
それどころか同名のロックファイルを作れるから面倒なバグを生むよな

初心者がほんとによく作るバグが
「ロックを解放したらロックファイルも削除する」

**デフォルトの名無しさん** · 2017/10/02(月) 18:11:00.25

perl6についてスレすらないけどみんな無関心なの？

**デフォルトの名無しさん** · 2017/10/02(月) 19:15:38.66

違う言語だからなあ
そんなんに慣れるくらいなら別の言語やる

**デフォルトの名無しさん** · 2017/10/02(月) 19:19:54.66

とんくす
やっぱそういう認識なんやね

**デフォルトの名無しさん** · 2017/10/02(月) 19:54:37.34

使えるとこではPerl使いたいけど
いよいよとなったら次はpythonかなぁ

**デフォルトの名無しさん** · 2017/10/02(月) 20:13:00.81

（lock_test1.cgi）
test.lockを排他ロック
sleep(10);
ロック解除

（lock_test2.cgi）
test.lockを削除
test.lockを排他ロック
ロック解除

lock_test1.cgiを実行した３秒後にlock_test2.cgiを実行して試したら
lock_test2.cgiの方はロック待ちにならなかった
test.lockを削除しない場合はロック待ちになった
だからロック用ファイルを削除するとロックが解除される

**デフォルトの名無しさん** · 2017/10/02(月) 20:14:57.29

pythonも新バージョンへに移行したくない同じ現象になってて、
次の言語が待たれている

perlからpythonはいろいろ新しいアイディアが追加されて、
より面白い言語になったけど、
次の言語では何が追加されるんだろう

**デフォルトの名無しさん** · 2017/10/02(月) 20:19:16.81

>>867
個人的にpythonは3から入ったから、
早く移行完了して欲しいw

**デフォルトの名無しさん** · 2017/10/03(火) 13:20:15.84

>>866
それはロック解除されてない
それは、毎回新しくロックファイル作ってロックする方法なら
常にロック出来るというだけ

**デフォルトの名無しさん** · 2017/10/05(木) 23:33:51.09

ロック状態を示すファイルを削除したら、その擬似的なロックが、解放されるのは当たり前だとおもうのだけど、結局何がしたいんだ？

**デフォルトの名無しさん** · 2017/10/07(土) 08:15:23.63

基本的なことだったと思うのですが、忘れてしまって調べても見つけられなかったので質問させてください。

print関数のFHのようなスペースを伴わずに渡す第一引数って
* なんていう名前でしたっけ
* どうやって定義するんでしたっけ

**デフォルトの名無しさん** · 2017/10/07(土) 11:13:34.60

＞print関数のFHのようなスペースを伴わずに渡す第一引数
？？？
何を指しているのかよくわからないし、定義するってどういうことだ？

print FH "hoge", "fuga";
print "hoge", "fuga";

**デフォルトの名無しさん** · 2017/10/07(土) 12:02:43.75

>>872
自分で定義する関数にprintのFHような渡し方をする引数を定義するということです。
スロットとかいう名前だった気がしたのですが、どうも違うようで

**デフォルトの名無しさん** · 2017/10/07(土) 12:05:55.88

あ、スペースを伴わずに、じゃない
カンマを伴わずに…

**デフォルトの名無しさん** · 2017/10/07(土) 12:33:54.72

間接オブジェクト構文
ttp://perldoc.jp/docs/perl/5.8.8/perlobj.pod#Indirect32Object32Syntax

new Hoge 'foo', 'bar';
Hoge->new('foo', 'bar');

普通にメソッドを定義すればよく、呼び出す時の書き方が違うだけ

**デフォルトの名無しさん** · 2017/10/07(土) 13:02:49.57

>>875
そうだったー!!
ありがとうございます!!!

**デフォルトの名無しさん** · 2017/10/09(月) 21:30:40.03

で、何をしたのかね?

**デフォルトの名無しさん** · 2017/10/09(月) 21:33:56.63

うう。リロード忘れ。

**デフォルトの名無しさん** · 2017/10/12(木) 16:28:32.59

WWW-Curl-4.17.をインストールしたいと思っています。
perl Makefile.PLを実行して以下のエラーが出力されました。
原因と対応方法が分かる方、ご教示ください。

Locating required external dependency bin:curl-config... found at /usr/local/bin/curl-config.
The version is libcurl 7.19.6
Found curl.h in /usr/local/include/curl/curl.h
No working cpp (ファイルもディレクトリもありません。). Parsing curl.h in Perl at Makefile.PL line 105.
Building curlopt-constants.c for your libcurl version
Building Easy.pm constants for your libcurl version
Building Share.pm constants for your libcurl version
Generating a Unix-style Makefile
Writing Makefile for WWW::Curl
Writing MYMETA.yml and MYMETA.jso

**デフォルトの名無しさん** · 2017/10/12(木) 22:11:19.78

そのモジュールのことは知らないけど、とりあえず「cpp が無い」と言ってるようだね。
make と C をインストールすればいいと思うよ。

**デフォルトの名無しさん** · 2017/10/12(木) 22:58:50.94

makeがちゃんとした文法になる日は来るんだろうか

**デフォルトの名無しさん** · 2017/10/13(金) 09:46:32.50

880さん、ありがとうございます。
ｃｐｐがインストールされていないのですね。。

pkginfoでみるとそれらしいものが入っているのですが、下記とは違うものでしょうか。
# pkginfo -i |grep cpp
system SUNWcpp Solaris cpp
GNOME2 SUNWsigcpp Libsigc++ - a library that implements typesafe callback system for standard
C++
GNOME2 SUNWsigcpp-devel Libsigc++ - a library that implements typesafe callback system for standard
C++ - development files

**880** · 2017/10/13(金) 21:28:27.18

問題は解決しましたか? Solaris のことは分からないのでこれ以上お役に立てそうにありません。
まだ解決していないのなら perlsolaris というマニュアルがあるはずですから読んでみてください。
その上で、Solaris のことをよく知っている人に聞くのがよろしいかと思います。

**デフォルトの名無しさん** · 2017/10/14(土) 22:03:44.55

ダメですね。。
もうちょっとネットで調べてみます。

**デフォルトの名無しさん** · 2017/10/20(金) 15:42:18.30

流れを切ってすみません。
半角カタカナを全角カタカナにしてファイルに書き込みたいです。
Cannot decode string with wide characters at...
のエラーになります。どこをどう修正すればよいでしょうか。
use utf8; use Encode; use Encode::JP::H2Z;
open(IN, "<:encoding(cp932)", "src.txt");
open(OUT, ">:encoding(cp932)", "dst.txt");
...
#$strはファイルから読み込んだ文字列
Encode::from_to($str, "utf8", "euc-jp"); #どうもここでひっかかる
Encode::JP::H2Z::h2z(\$str);
Encode::from_to($str, "euc-jp", "utf8");
...
といったコードなのですが・・・。
Shift-JISのコードだと上手く動くのですが・・・。
utf8で標準モジュールの利用で行いたいです。どなたかよろしくお願いします。

**デフォルトの名無しさん** · 2017/10/20(金) 17:53:57.14

目的がそれだけなら、こんな感じになるかな。

open( IN,'<','src.txt')
open( OUT,'>','dst.txt')

Encode::from_to( $str,'cp932','euc-jp');
Encode::JP::H2Z::h2z(\$str);
Encode::from_to( $str,'euc-jp','cp932');

どうしてかというと、from_to に渡すのは Perl の用語で言うなら文字列ではなくバイト列。
だから入力時にデコードする必要は無い。
日本語でのパターンマッチなどのためにデコードしてある場合は
from_to ではなく encode を使う。
Encode のマニュアルを読んでください。
標準モジュールしか使えないわけじゃないのなら Unicode::Japanese を使ってみてはどうでしょう。

**885** · 2017/10/21(土) 02:31:17.21

>886
返信ありがとうございます。
他に日本語の処理があるのでencoding(cp932)としています。
$str=Encode::encode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::decode('utf-8',$str);
としても
#$str=Encode::encode('utf-8',$str);#これの有無に関わらず
$str=Unicode::Japanese->new($str)->h2zKana->get;
(ためしにUnicode::Japaneseを使ってみましたが、標準モジュールで行いたいです）
"\x{xxxx}" does not map to cp932 at ....
とワーニングだらけで>:encoding(cp932)がうまくいっていないというか
それ以前の変換がうまくいっていないようです・・・。

**855** · 2017/10/21(土) 02:40:01.52

連投すみません。encodeとdecode間違ってるなと思い
$str=Encode::decode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::encode('euc-jp',$str);
とすると、
Wide character in subroutine entry at...
で出力が0バイトとなってしまいます・・・。

**885** · 2017/10/21(土) 03:03:22.99

何度もすみません。できました。
$str=Encode::encode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::decode('euc-jp',$str);
でした。
> 886
encodeを使うアドバイスありがとうございました。助かりました。

**デフォルトの名無しさん** · 2017/10/28(土) 14:12:24.45

#!/usr/local/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
print <<"EOM";
Content-tyoe: text/html; charset=shift_jis\n\n
<html><body>
EOM

eval {require DBI;};
if($@) {
print "DBI NG<br>\n";
} else {
print "DBI OK<br>\n";
}

undef $@;
eval {require DBD::SQLite; }
if($@) {
print "DBD::SQLite NG<br>\n";
} else {
print "DBD::SQLite OK<br>\n";
}

print "</body></html>";

sqlchk.cgiの19行目の構文エラー。 "）{"
と出るんですが何が原因か分かりません。もしよろしければ教えていただけないでしょうか？

**デフォルトの名無しさん** · 2017/10/28(土) 14:36:19.07

>>890
eval {require DBD::SQLite; }
の最後に ; が無い

**デフォルトの名無しさん** · 2017/10/28(土) 15:04:21.68

助かりました。ありがとうございました＾－＾

**デフォルトの名無しさん** · 2017/11/01(水) 19:40:06.83

＾－＾

**デフォルトの名無しさん** · 2017/11/01(水) 21:59:57.34

(^_^;

**デフォルトの名無しさん** · 2017/11/22(水) 19:37:11.64

（＾────────────＾）

**デフォルトの名無しさん** · 2017/11/22(水) 22:55:47.27

(^＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿^;

**デフォルトの名無しさん** · 2017/11/23(木) 00:10:28.02

:-)

**デフォルトの名無しさん** · 2017/11/23(木) 18:54:17.85

:────────────)

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

APIアクセスでのレスポンスをDumperしたら下みたいに返ってきたんだけど
'https://hogehoge.hoge/'を取得するにはどうアクセスしたらいいです？

$VAR1 = bless( {
'url' => bless( do{\(my $o = 'https://hogehoge.hoge/')}, 'URI::https' )
}, 'Entity::Tag' );

**デフォルトの名無しさん** · 2017/12/07(木) 10:28:22.13

ファイルに書くときに、closeをせず明示的にフラッシュしたいんだけど
どうしたらいいの？

selectやautoflushは明示的ではないのでできれば使いたくない

**デフォルトの名無しさん** · 2017/12/07(木) 10:57:31.26

>>900
http://perldoc.jp/docs/perl/perlfaq5.pod#How32do32I32flush47unbuffer32an32output32filehandle63-32Why32must32I32do32this63
> IO::Handle オブジェクトには flush メソッドもあります。

#!/usr/bin/perl -w
use strict;
for (1..10) {
　　print '.';
　　sleep 2;
　　STDOUT->flush;
}
print "!\n";