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

Perlについての質問箱 ..

2:デフォルトの名無しさん
19/02/01 09:44:58.17 1/Kr4Qjk.net
【本】
初めてのPerl 第7版（リャマ）[2018年01月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
続・初めてのPerl 改訂第2版 [2013年08月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
マスタリングPerl [2009年03月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
Effective Perl 第2版 [発売日：2015年02月16日]
URLﾘﾝｸ(www.shoeisha.co.jp)
もっと自在にサーバを使い倒す業務に役立つPerl [2012年4月11日発売]
URLﾘﾝｸ(gihyo.jp)
モダンPerl入門 [2009/2/10]
URLﾘﾝｸ(www.amazon.co.jp)
モダンPerl入門増補改訂版（仮）[2014年1月予定]
URLﾘﾝｸ(codezine.jp)
Perl CPANモジュールガイド [2011/4/8]
URLﾘﾝｸ(www.amazon.co.jp)
【オンラインマニュアル】
最新のドキュメント: URLﾘﾝｸ(metacpan.org)
perldoc.jp: URLﾘﾝｸ(perldoc.jp)
perldoc.perl.org: URLﾘﾝｸ(perldoc.perl.org)

3:デフォルトの名無しさん
19/02/01 09:45:16.42 1/Kr4Qjk.net
[少し古めの良書]
プログラミングPerl 第3版 VOLUME 1,2（駱駝）[2002年09月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
URLﾘﾝｸ(www.oreilly.co.jp)
Perlクックブック第2版 VOLUME 1,2 [2004年09月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
Perl ベストプラクティス [2006年08月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
Perl Hacks [2007年01月発行]
URLﾘﾝｸ(www.oreilly.co.jp)
実用 Perlプログラミング第2版 [2006年03月発行]
URLﾘﾝｸ(www.oreilly.co.jp)

4:デフォルトの名無しさん
19/02/01 09:45:35.14 1/Kr4Qjk.net
【日本語、Unicode関連】
Encodeモジュール
URLﾘﾝｸ(metacpan.org)
第31回　encoding：いつまでもjperlから抜け出せない方に
URLﾘﾝｸ(gihyo.jp)
第32回　Encode：日本語だけ扱えればよいのではなく
URLﾘﾝｸ(gihyo.jp)
perlunifaq - Perl Unicode FAQ
URLﾘﾝｸ(perldoc.jp)
perlunicode - Perl における Unicode サポート
URLﾘﾝｸ(perldoc.jp)
【モジュール】
Search the CPAN - metacpan.org: URLﾘﾝｸ(metacpan.org)
【Perl環境構築】
plenv
URLﾘﾝｸ(github.com)
cpanm
URLﾘﾝｸ(metacpan.org)
URLﾘﾝｸ(perldoc.jp)

5:デフォルトの名無しさん
19/02/01 09:45:51.24 1/Kr4Qjk.net
#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
#　ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
#　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
#　この例のように cp932 でエンコードする必要があります。

6:デフォルトの名無しさん
19/02/01 23:49:26.97 sNV+JFAU.net
今更だがCGIとPerlの区別ってなんだよｗ

7:デフォルトの名無しさん
19/02/02 01:13:45.25 ZgweYnRo.net
Common Gateway Interface
URLﾘﾝｸ(ja.wikipedia.org)
Common Gateway Interface（コモン・ゲートウェイ・インタフェース、CGI）は、
ウェブサーバ上でユーザプログラムを動作させるための仕組み。
現存する多くのウェブサーバプログラムはCGIの機能を利用することができる。
CGI は環境変数や標準入出力の扱えるプログラミング言語で扱うことができる。

8:デフォルトの名無しさん
19/02/02 10:20:47.06 ZgweYnRo.net
(洋書) Mastering Perl: Creating Professional Programs with Perl 2nd Edition [2014/1/27]
URLﾘﾝｸ(www.amazon.co.jp)
マスタリングPerlの第2版
(洋書) Programming Perl: Unmatched power for text processing and scripting 4th Edition [2012/3/9]
URLﾘﾝｸ(www.amazon.co.jp)
プログラミングPerlの第4版

9:デフォルトの名無しさん
19/02/03 01:42:34.74 72eosYJ+.net
>>7 perl で書けばperl そのものじゃん。
しかし、perl は終わったな。 python に取って代わられた。

10:デフォルトの名無しさん
19/02/03 23:38:34.25 DVXBklBr.net
単にCGIで使われるという流行が沈静化しただけだよ。使われている所では使われている。
元からCGI専用言語でもなんでもなくなんでもできるからな。
Python は機械学習で現在流行っているが、それもやがては沈静化するだろう。
かといってなくなることはない。

11:デフォルトの名無しさん
19/02/15 14:42:35.23 bVEZ7wIc.net
>>6
どういうレベルの質問？

12:デフォルトの名無しさん
19/02/18 00:23:21.60 pGUSPpE4.net
けっこう大きめのEUCで出来たプログラムを全部utf8に直す作業が始まるんだが、面倒くさいんだが
構成ファイルもたくさんあるし、読み書きしてるようなファイルもたくさんあるし、プラグイン方式みたいに作られてて、既存のプラグイン的なのも全部EUCでutf8に直さなきゃならないんだが
めんどくさいと言うか、正常に動くのかどうか不安なんだが
一応表面上は正常に動いたように見えても、俺にはそれはまやかしに感じるんだが

13:デフォルトの名無しさん
19/02/18 00:58:26.57 pGUSPpE4.net
はいやっぱりバグったファイルの読み込みが出来なくなった

14:デフォルトの名無しさん
19/02/18 13:29:31.02 trvxFZJG.net
そういやUTF8だとprintfとかで幅を揃えるのができなくなったりして大変だな。
%-10sとかやっても漢字が入るとそこが出力時に3バイトになったりしてずれて役に立たない。
こういう幅とか考慮してフォーマットしてくれるモジュールあるんだろうか？perlだから誰かが作ってそうではあるが。

15:デフォルトの名無しさん
19/02/18 15:02:51.14 +OgI4mQP.net
Unicode::GCStringでカラム数とれるっぽいから空白いくつ詰めるかは計算できそう

16:デフォルトの名無しさん
19/02/18 18:04:58.85 pGUSPpE4.net
かなり頑張ったがUTF8にするのは無理だということになって諦めた
sjisとEUCとutf8が無駄に入り乱れる結果になった
ファイル名はプログラム内部ではEUCで扱ってたり、実際のファイル名はsjisだったり、ファイルの中身はEUCだったり、通信はsjisだったり、
そもそも文字単位じゃなくてバイト単位でデータを管理する記述がめっちゃあったり、
ゴミかよ！

17:デフォルトの名無しさん
19/02/18 20:51:52.45 trvxFZJG.net
一生を掛けて修復するプログラムになったようだな。

18:デフォルトの名無しさん
19/02/18 20:52:30.58 trvxFZJG.net
>>15
おお。ありがとう。やはりあったか。

19:デフォルトの名無しさん
19/02/26 09:36:37.24 DhIH/rsp.net
$str = "abcdefg"; open( $fh,"<",\$str); open( $fh2,"<&",$fh);
はできるけど
open( \*STDIN,"<",\$str)
open( \*STDIN,"<&",$fh)
はできないんだな。知らなかった。"Bad file descriptor" って言われた。
どこかに書いてあったっけ?

20:デフォルトの名無しさん
19/02/26 18:47:18.00 vB+znWqX.net
ちょっとマジで聞きたいことがあるんだが、cgiからブラウザに対してCP932でHTMLが出力されている。
もちろんヘッダも正しく指定されている。
んで、そのHTMLの中に、
<IMG SRC="あいうえお.jpg"> などと言う日本語のファイルが指定されているわけだ。
その日本語のファイル名も、CP932だ。
んで、ご丁寧にブラウザが自動でURLエンコードしてくれるようなのだが、
%E3%81%82%E3%81%84%E3%81%86%E3%81%88%E3%81%8A.jpg
となるのだ。これは "あいうえお.jpg" をUTF-8として解釈した時の文字コードだ。
俺としては %82%A0%82%A2%82%A4%82%A6%82%A8,jpg (CP932の文字コード)となってもらわなくては困る。
聞きたいことは2つで、これを解決するにはどうしたら良いか？
もう一つは、ブラウザごとの仕様によりこの挙動は違うのか？
の二点だ
よろしく頼む

21:デフォルトの名無しさん
19/02/26 20:23:51.98 c2o2e7e/.net
>>20
自分でファイル名をそういう風にエンコードすれば？

22:デフォルトの名無しさん
19/02/26 20:30:51.25 vB+znWqX.net
>>21
すまんが読めなくなるから駄目
あと、断定はしてないが、ブラウザやHTTPDのソフトごとに、エンコードやデコードの扱いの違いがある疑いがある
開発環境のwindowsでANHTTPDってやつ使ってるが、こいつはたぶんファイル名をデコードしてないくさい
でも運用環境（有料で借りてる）のApacheさんはパスをURLデコードしてる模様
俺の予想だと、ブラウザも古いのだと絶対自動でUTF-8なんかにはデコードしないと思う。
もしかしたら間違ってるかもしれないけど

困る
統一して欲しい

23:デフォルトの名無しさん
19/02/26 20:42:22.45 RjPoX3nV.net
perl関係ある？

24:デフォルトの名無しさん
19/02/26 20:51:34.33 vB+znWqX.net
>>23
ほぼない
けどWeb制作板に行くとエンコードどころか文字コードも理解してなかったから絶対回答こない

25:デフォルトの名無しさん
19/02/26 21:02:05.63 c2o2e7e/.net
どうしてもすぐになんとかしたいなら全てをUTF8にする。

26:デフォルトの名無しさん
19/02/26 21:32:12.63 tHWhBgwU.net
ほんとにcp932なのか？
実はUTF-8で出力されてて、ヘッダはただ無視されてたりしないのか？
まず、クライアントでデータを保存して、バイナリエディタで確認してみたら？

27:デフォルトの名無しさん
19/02/26 22:01:28.20 DhIH/rsp.net
そのような不正な URL がどのように扱われるかを問うのはあまり有意義とは思えない。
適切に扱ってほしいなら適切にエンコードするしかないと思うのだが。
HTML::Element とか URI を使えば簡単だよ。

28:デフォルトの名無しさん
19/02/27 00:05:17.07 7T/MRSXz.net
>>26
ほんとにcp932
なのにutf8でエンコードされる
 >>27
cgiは、どっかにあるHTMLが書いてあるテキストファイルを読み込んで出力してるだけだから、<IMG SRC="あいうえお.jpg">のあいうえおの部分を見つけ出してエンコードするのは無理がある。
さらにエンコード下として、それをデコードしてパスを通すhttpdと通さないhttpdがあるようなので仕様を知りたい

29:デフォルトの名無しさん
19/02/27 02:26:58.26 Hcodp8Vt.net
ホントにそうなら、やっぱブラウザのせいなんかね。
データをデコードしたテキストをそのままURLにしたら、たしかにそうなりそうな気はする。
どうしてもあちこちいじらずに簡単に対処するなら、サーバーのほうはどう？
プロキシとかRewriteとか使って、とにかくURLを受けてしまってから、受けたURLを動的に解釈したら？

30:デフォルトの名無しさん
19/02/27 03:01:51.84 7T/MRSXz.net
>>29
もうcp932のファイル名はやめて全部アルファベットにしようと思うのだが、
Rewriteってなんだろう
アニメが出てきたんだが
まあおまえらありがとうな
utf8ならまだしもcp932のファイル名をそのまま使おうとした俺が悪かったんだよきっと
でもwindowsがcp932のファイル名だからしょうがないんだよ

31:デフォルトの名無しさん
19/02/27 09:17:13.93 MitD/HmJ.net
>>20
ブラウザがUTF-8 と解釈するのは、HTML のheader に、言語の指定をしていないからじゃないの？
ただし、sjis を指定しても、そのPC がsjis に対応していないかも？
>>22
>運用環境（有料で借りてる）のApacheさんはパスを、URLデコードしてる模様
URLデコードするかどうかを、設定ファイルで指定できないの？
>>30
web 系は、すべてのファイルを、BOM 無しUTF-8(UTF-8N)に統一すべき！
他の言語を使うと、PC・スマホがその言語に対応していない場合に、バグる

32:デフォルトの名無しさん
19/02/27 10:18:43.12 HuFKesk6.net
バグる、ですか

33:31
19/02/27 12:43:30.58 MitD/HmJ.net
漏れは、web 系の本を、軽く数十冊は読んでるけど、
sjis のファイルを使う本は、見たことがない
それに、パス・ファイル名などのシステムの構成物に、全角を使う本も見たことがない。
パス・ファイル名は、ファイル内容のテキストじゃない。
あくまでもシステムの構成物だから、半角英数字が基本
Linux・Windows 共用のパス・ファイル名には、半角英数字と、_ (アンダーバー)だけを使う。
半角空白もバグるので、すごく嫌われる
さらに、大文字小文字だけが異なる、パス・ファイル名も使ってはいけない。
例えば、Ab, aB がLinuxでは使えるけど、Windowsでは共存できないから
だから、このシステムは、sjis・全角の2つを使う、違反を起こしている！
こういうやり方を書いた本は、絶対に無いはず
sjis を使っているのは、ロートルの5ch ぐらいw
だから少しでも、5chのシステムをいじるとバグるから、システムを修正できない！

34:デフォルトの名無しさん
19/02/27 13:14:56.19 FWLYBGBg.net
>>30
「RewriteRule」。
# 「httpd」とかいうから、Apacheに詳しいんかと思ってた。
要はとにかく、サーバーがURLを受けてから、それをランタイムで変換して実際のアクセス先を決めることはできるはず、という提案。

35:デフォルトの名無しさん
19/02/27 13:19:18.71 FWLYBGBg.net
>>31
URLデコードを禁止できるか？
URLの仕様なのに。
それに、もししたとしたら、CGIの引数とかどうなるんだ？

36:デフォルトの名無しさん
19/02/27 14:29:50.58 7T/MRSXz.net
>言語の指定をしていないからじゃないの？
してる
>$print_code .= q[Content-Type: text/html;charset=Shift_JIS] . qq[\n];
>$print_code .= q[<META http-equiv="content-type" charset="Shift_JIS">];
>URLデコードするかどうかを、設定ファイルで指定できないの？
金払って借りてるマシンなのでたぶん無理なんじゃね？
いやApacheさんの使い方とか仕様とか全然知らないから知らんけど
>UTF-8(UTF-8N)に統一すべき！
cgiが古いんだよ
作り直したいけど簡単そうじゃないので放置してる
気持ち的には全部utf8にしたい
 >>34
俺のサーバーじゃないけどそんなこと出来るのか？

37:31
19/02/27 15:05:26.60 MitD/HmJ.net
>>36
>$print_code .= q[Content-Type: text/html;charset=Shift_JIS] . qq[\n];
>$print_code .= q[<META http-equiv="content-type" charset="Shift_JIS">];
「html sjis meta」で検索すると、以下が見つかる。
上とは、ちょっと違う
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
他には、PHP で作ったそのファイルが、UTF-8 で保存されているとか？
「html sjis 文字化け」で検索すれば？
文字化けを防ぐ&解消する方法
URLﾘﾝｸ(www.be-webdesigner.com)

38:デフォルトの名無しさん
19/02/27 20:57:58.02 Hcodp8Vt.net
>>36
レンサバでも、管理者だったらいろいろできる。
しかし、もしそうだったとしても、どうやらたぶんおまえにはムリぽなので、もうあきらめろん。

39:デフォルトの名無しさん
19/03/02 02:33:03.15 LJe83Rmr.net
>>20-21
ブラウザごとにURLエンコードは統一は取れてなかったと思うよ
まず開発環境としてANHTTPDの使用をやめることをお勧めする
IISかApacheをインストールして使った方がいいと思う

40:デフォルトの名無しさん
19/03/04 18:44:25.85 G/cMwSEz.net
ｽﾚﾘﾝｸ(airline板)
このツールが使えない
誰か使い方を教えてくれ
ソースを拡張子.plにして保存、perl実行環境はインストール
ここまでは出来てる
ソースの改造の仕方が分からない

41:デフォルトの名無しさん
19/03/04 19:13:42.66 Y5viPS4k.net
連投ツールとか名前が穏やかじゃないから教えない

42:デフォルトの名無しさん
19/03/04 19:18:59.22 TpCWsYE8.net
今の5chではスクリプトによる連投はできないのでは？
試したことないのでわからんが。
しかしそのツールなんでわざわざforkして子プロセスに同じことさせてんだろ？その辺がワザなのか？よくわからんね。

43:デフォルトの名無しさん
19/03/04 20:43:15.61 q6ai/7VO.net
Perl は初めてかい? まず、Perl の勉強からだね。
何をするプログラムかは後回しにして、何が書かれているかを理解できるようになろう。
書かれていることを理解できるようになったら、使われているモジュールを理解しよう。
LWP を使ってみよう。勉強しなければならないことがたくさんあると気付くだろう。
最低でも HTTP の仕様書くらいは読まないと話にならない。
ここまでできれば最初のソースコードを理解して改造だってできるかも。

44:デフォルトの名無しさん
19/03/04 20:47:32.38 Y5viPS4k.net
彼はインストール方法を知りにきただけであってPerlを知りにきたわけではないだろう

45:デフォルトの名無しさん
19/03/04 21:07:10.36 9d3FcJ2N.net
メッセージ固定だなんて連投というより荒しツールだな

46:デフォルトの名無しさん
19/03/04 21:19:56.49 W5B7ie4G.net
今の2ちゃんは決まったツールでしか投稿できない

47:デフォルトの名無しさん
19/03/04 23:55:42.18 TpCWsYE8.net
だよなあ。そのせいでお気に入りの専ブラ使えなくなったし。

48:デフォルトの名無しさん
19/03/05 15:13:16.59 opbbmC0J.net
もうC++/Qtで書く気がしない。
Perl/Qtで事足りる。
Perlの開発者が「PCの速度が上ればCである必要はないだろう」みたいな事言ってたけど、
まさにその通りだな。

49:
19/03/06 19:01:29.83 pvc8mHD3.net
>>48
その perl は perl6 ですか？

50:デフォルトの名無しさん
19/03/06 21:27:34.75 USxtxcs5.net
なんかのはずみで処理が終わらなかったとき、自殺するようにしたいんだけど、
eval {
alarm 5;
$SIG{ALRM} = sub { exit; };
};
これでいいんだっけ？

51:デフォルトの名無しさん
19/03/06 21:55:14.52 /3I9LNWz.net
いいんじゃないすか　それだけだとevalはいらないと思うけど
あと慣例ならハンドラ設定が先かな　exitじゃなくdieとか

52:デフォルトの名無しさん
19/03/06 22:26:52.53 USxtxcs5.net
ありがとう
>evalはいらないと思うけど
よく覚えてないけど、evalはシグナルに対応してないシステムだとエラーで落ちる気がした

53:デフォルトの名無しさん
19/03/07 00:21:03.62 pkHUcH4A.net
perlipc を読むといいかも。
URLﾘﾝｸ(perldoc.jp)

54:デフォルトの名無しさん
19/04/26 17:48:05.44 T3sMMsV1.net
Perl News に "Fork yeah!" というのがあってちょっと驚いた。
URLﾘﾝｸ(www.perl.com)

55:デフォルトの名無しさん
19/04/29 00:48:49.16 OgUfT4lW.net
メアド用にさくらインターネットのライトプラン（sslログインなし）借りてるんだけど
そこにちょっとしたcgi作って置こうとしてて
ものすごい久々にuse CGIとかやってます。
で、corelist CGIってやると
> Data for 2018-01-20
> CGI was first released with perl 5.004, deprecated (will be CPAN-only) in v5.19.7 and removed from v5.21.0
と出るんだけど
CGIが標準モジュールから削除された理由とか、
代替となるモジュールって知ってる人いませんか。
Perlはweb用の言語じゃないから標準モジュールからは消した　とか
そんな理由ならいいんだけどさ。。

56:デフォルトの名無しさん
19/04/29 01:34:45.78 EAhXUlQz.net
「core は出来るだけ小さく」
「CGI はもはや Web の主流ではない」
かな。必要になった者のみが追加でインストールすればよい
標準で代替になるようなものはないと思うが pure perl だろうし最悪 CGI モジュールも一緒にアップロードとかでも動くでしょ
そもそもさくらレンタルサーバーで使える perl って 5.8 ～ 5.14 ぽいけど
URLﾘﾝｸ(help.sakura.ad.jp)

57:デフォルトの名無しさん
19/04/29 01:57:14.83 OgUfT4lW.net
>>56
どもども
その理由なら安心ですわ
perlのバージョンは確認したんだけど、消えた理由によっちゃ使うの気持ち悪いなーと思ったので
どもでした。

58:デフォルトの名無しさん
19/05/21 19:09:48.73 ItBIHcGN.net
5.30が出るのかと思ってたら、出てねー
やる気ねーのかよ

59:デフォルトの名無しさん
19/05/21 21:00:16.28 BVi2WQ22.net
ていうかこんなに長くアップデートが続いていることだけでもかなり凄い事だと思う。

60:デフォルトの名無しさん
19/05/21 22:12:45.42 vpg4l/5q.net
5.30.0 RC2までは出てるからそのうち出るだろ

61:デフォルトの名無しさん
19/06/01 02:23:48.95 4bbBO9Ct.net
$str =~ /$pattern/
みたいなことはできるけど、
$str =~ /$pattern/$opt
みたいにして大文字小文字を同一視するかどうかを動的に指定したい
if文で処理行を分けるしか無理?

62:デフォルトの名無しさん
19/06/01 04:41:47.86 uuPo6pHP.net
>>61
eval 使えばいいのでは？

63:デフォルトの名無しさん
19/06/01 08:47:17.23 GQlgchjf.net
Ruby では、Regexp オブジェクトで、動的に作れる
str = "aB"
opt = Regexp::IGNORECASE
p re = Regexp.new( str, opt )
#=> /aB/i

64:デフォルトの名無しさん
19/06/01 10:32:32.69 uuPo6pHP.net
パターンマッチの直前で比較対象の文字列を uc() 使って小文字を全て大文字に変換しておく、または lc() で大文字を全て小文字にしておく事でも実現できるな。
パターンの方にも変換必要になるかも知れないが、それについては予め大文字または小文字でパターン作っておけば回避できる。

65:デフォルトの名無しさん
19/06/01 10:33:06.85 4bbBO9Ct.net
ただ、どう考えても遅くなるよな
素直に切り替えよう

66:デフォルトの名無しさん
19/06/01 11:42:41.31 UESmRH3l.net
>>61
# URLﾘﾝｸ(perldoc.jp)
my $subject = 'FooBar';
my $search = 'foobar';
my $pattern = qr/$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";
$pattern = qr/(?i)$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";

67:デフォルトの名無しさん
19/06/01 11:49:39.64 4bbBO9Ct.net
(?i)と書いておけばいいだけか
じゃあもう実装済みで、使う側でどうにでもできる

68:デフォルトの名無しさん
19/06/01 13:34:35.95 zyIO0HLx.net
Python ってダサいよね。

69:デフォルトの名無しさん
19/06/13 09:38:18.19 8EHJsjb3.net
Pythonはほどほどの長さのスクリプト言語としてならアリなんだが
ツールとしては良くも悪くも電卓だなぁ

70:デフォルトの名無しさん
19/06/14 01:28:05.42 TwyiKBjF.net
バッチは使いやすさでperl、サーバだと今はパフォーマンスで選んでgolangやろうとしてるわ

71:デフォルトの名無しさん
19/06/14 21:23:40.01 GJHBGGzo.net
URLﾘﾝｸ(tech.nikkeibp.co.jp)
Pythonはコードが書きやすい？ご冗談でしょう

72:デフォルトの名無しさん
19/06/14 23:12:24.97 oN4k2Se6.net
>>71
読んだけど、実際にはタイトルほどPythonを悪くいってないな。ｗ

73:デフォルトの名無しさん
19/06/16 10:31:31.41 Q48cejx2.net
windowsでreaddirするとcp932で読めてくる
それだと面倒なので、opendirする時か、ハンドラに対して、
decoding(cp932) みたいに指定するにはどうすればいい?

74:デフォルトの名無しさん
19/06/16 14:26:37.09 bI4lsVP6.net
URLﾘﾝｸ(www.javadrive.jp)

75:perltidy バグってない？
19/06/28 03:27:32.11 yOZUOG90.net
perltidy -pbp -nola perl_file
この -pbp は perl best practices にする設定になっている
という仕様が書かれているが
sub {
:LABEL
for ....................
のようなラベルが本の通りにならない。たとえば 103ページなど
ラベル調整を諦めて -nola をつけ、手動で正しくすることにした
これバグだよな？

76:バグもういっこ
19/06/28 03:37:53.64 yOZUOG90.net
URLﾘﾝｸ(i.imgur.com)
左のように綺麗にまっすぐ整えろが本の通りなのに
右のように変なところにいく

77:デフォルトの名無しさん
19/06/28 05:48:53.09 MYNfkfjj.net
何語?

78:デフォルトの名無しさん
19/06/28 14:53:22.61 oMWPNRS2.net
perl にインデントを求めるな。

79:デフォルトの名無しさん
19/06/29 00:24:21.75 YzN8MsSb.net
＼(^o^)／

80:デフォルトの名無しさん
19/06/29 05:53:24.17 3U68S2mZ.net
どうでもインデント

81:デフォルトの名無しさん
19/06/29 15:13:13.34 3U68S2mZ.net
sjisでローマ数字のⅡが書いてあるのをutf8にすると、どうやっても化けるな

82:デフォルトの名無しさん
19/06/29 15:18:34.74 3U68S2mZ.net
一旦生で読んでcp932でデコードすればいいのか
LWP:Simpleだとそのへんに手が出せない

83:デフォルトの名無しさん
19/06/29 17:02:36.85 o1VtcfU0.net
MySQLもそうだけど、sjisは使っちゃイカンやろ。
細かいところで文字の置き換えルールがメチャクチャだったような。
いわゆるシフトJISはとにかくcp932で。

84:デフォルトの名無しさん
19/06/29 17:53:32.74 3U68S2mZ.net
多分htmlに俺はsjisだと書いてあると、LWPが勝手にsjisでデコードするんだろう

85:デフォルトの名無しさん
19/07/06 10:10:18.37 oMEfEQKE.net
元がeuc-jpだと、
$str =~ s/\x{301c}/～/g;
みたいなことを明示的に書かないと、回避できないみたい
同じものやがな

86:デフォルトの名無しさん
19/07/12 02:22:50.96 AjCqo1Mf.net
下記のコードですがダブルクォートを介さずに$testから'フ'を表示させる方法はありますか？
#!/bin/env perl
use strict;
use warnings;
use utf8;
my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";
print "$test\n\n";
print "$test2\n\n";

87:デフォルトの名無しさん
19/07/12 02:35:11.65 gPQuYcbX.net
my $test3 = $test;
$test3 =~ s/\\x([0-9A-Fa-f]{2})/pack('H2', $1)/eg;
print "$test3\n";

88:デフォルトの名無しさん
19/07/12 04:04:28.94 yXcDIkyu.net
print eval qq/"$test\n\n"/;

89:86
19/07/12 07:58:26.24 AjCqo1Mf.net
ありがとうございます！

90:デフォルトの名無しさん
19/08/11 05:06:35.55 GTeyRs5o.net
こんな書きかたあったか？
DB<27> printf "%s\n", ('Fizz')[$_%3] . ('Buzz')[$_%5] || $_ for (1..15)
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz

()[]が見おぼえがない

91:デフォルトの名無しさん
19/08/11 05:17:44.88 GTeyRs5o.net
()で配列とみなしたとき
()[0]は定義されていると考えて
()[1]などは未定義で無しというトリックか

92:デフォルトの名無しさん
19/08/11 05:42:32.38 GTeyRs5o.net
DB<25> print "$_ cup", ("s")[$_ < 2] , " of coffee\n" for (1..3)
1 cup of coffee
2 cups of coffee
3 cups of coffee

93:デフォルトの名無しさん
19/08/11 10:17:48.54 GTeyRs5o.net
DB<23> printf "%s\n", "$_ cup" . ("s")x!!($_ != 1) . " of coffee" for (0..3)
0 cups of coffee
1 cup of coffee
2 cups of coffee
3 cups of coffee
DB<24> printf "%s\n", "$_ butterfl" . ("y","ies")[($_ != 1)] for (0..3)
0 butterflies
1 butterfly
2 butterflies
3 butterflies

94:デフォルトの名無しさん
19/08/12 10:00:54.45 1t9yEA1l.net
今はもう (1)[1] が空リストにならないんだな。perl5220delta に書いてあった。
リストコンテキストでの問題を避けるために
[split( /::/ , $class)]->[4]
みたいな書き方をしていたんだが。
いや、これは変えなくていいのか。

95:デフォルトの名無しさん
19/08/12 10:16:24.43 BBJuWfXI.net
undefは省力とかフェールセーフ的に有効にするんじゃなくて、
厳密に仕様化して積極的に使うべきだよな
初期化されてないものを使うのが気持ち悪いと感じるのは、
auto変数が本当に領域確保するだけだった頃の名残り

96:デフォルトの名無しさん
19/09/14 11:56:42.38 MMNKizJk.net
簡単なシェルスクリプトしか書けない素人ですがPerlの利点ってどこです？
grep -Pやperl -peで世話にはなっていますが目当てはあくまで正規表現だけですし
比較演算子はbashと逆だし変数は記号で使い分けなきゃならんしなんだこいつってなって

97:デフォルトの名無しさん
19/09/14 12:00:19.76 JUmWdv2U.net
どこでも使える

98:デフォルトの名無しさん
19/09/14 23:46:33.57 n7pzU9md.net
テキスト処理に特化されているところ
そのおかげで "," や " " とかの部分を q(,) q( ) などと書けたり
perl コードが正規表現と一体化していて再帰も扱えたりなど色々あるが
全部特化したことによる利点

99:デフォルトの名無しさん
19/09/14 23:58:57.25 SgsUVSB1.net
Perl6使ってる香具師さんいますか？

100:デフォルトの名無しさん
19/09/15 00:02:41.49 epz106Yo.net
bashで凝ったことを書くことを考えたら、Perlのほうがはるかに簡単。
bashは所詮シェルなので、クォートとかエスケープとか変数とか関数とか、いちいちワナが多いからな。

101:デフォルトの名無しさん
19/09/15 17:56:28.72 riyG3w3b.net
Perlの利点？
他の言語と同様になんでもできることかな。モジュール色々使うと作るの楽だしOSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
シェルスクリプトも外部コマンド動かせば何でもできるとは言えるが、起動のオーバーヘッドの問題や起動しているコマンドの仕様が変わったときに個別に対応しなければいけないなど面倒な事がある。

102:デフォルトの名無しさん
19/10/23 15:22:28.55 Q75cL8J3.net
>>101
> OSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
これでとんでもない目に遭ったぞ。
perlの\nは、内部的にはLF のみだが、OSがWindowsなら、出力する際に
CR＋LF に自動的に変換してくれる。
しかし、出力文字コードがutf16le だと、特殊な宣言文を書かない限り、
LF (0x000a)は「0x000a000d」ではなく、「0x000a0d」に変換され、
ぐちゃぐちゃに文字化けする。
文字化けの原因を特定し、回避方法を見つけるために、ずいぶん時間を取られた。

103:デフォルトの名無しさん
19/10/23 15:31:23.16 7+59i/z7.net
chcp 1200でいけそうな気がするんだけど

104:デフォルトの名無しさん
19/10/23 17:37:45.28 azQS8Nqn.net
>>102
\n は他の言語でも気を付けた方が良い。
例えC言語だったとしても歴史的な事情でライブラリが勝手に変換するかも知れない。
この頃はそれにまつわるバグは減ってるとは思うけどね。
ま、少なくとも \n を \x0a だと信じ込んで使うのは止めた方がいいだろうな。
\x0a はあくまでも \x0a と書いた方が良い。
Javaとかでは改行は System.out.println() を使って改行させるようにして \n を埋め込んでの改行は極力避けた方が良い。

105:デフォルトの名無しさん
19/10/24 00:15:31.72 dNYiTPCj.net
>>102
いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
open 関数や binmode 関数の説明にも「PerlIO を読め」って書いてあるよ。

106:デフォルトの名無しさん
19/10/24 00:54:14.51 NQorbS3o.net
s/\n//g;
s/\r//g;
俺は常にこうしてる

107:デフォルトの名無しさん
19/10/24 06:24:46 rCe9ez9s.net
\nを埋め込んだ箇所が一つでもあったらアウト
みたいな作り方は絶対失敗する

108:デフォルトの名無しさん
19/10/24 08:28:21.30 wmDm31X8.net
>>106
s/\R//g;
じゃないのか？

109:デフォルトの名無しさん
19/10/24 09:04:15.10 LjTGtkP8.net
>>105
> いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
結論としては、下のように書けばいいのだが、これはネットで色々探して
見つけてきたもので、PerlIO の man 読んで自分で見い出すことは、
私にはできなかった。それが出来る人は凄いと思う。
binmode STDOUT => ":raw:encoding(utf16le):crlf";

110:デフォルトの名無しさん
19/10/24 22:37:27.00 rCe9ez9s.net
右から読むんだよ

111:デフォルトの名無しさん
19/11/06 01:45:01.50 yvB3xxPc.net
消費税計算(10%)しようとしました。税込550円を消費税と本体価格にする。
$a = 550;
$b = 1.1;
$c = $a / $b;
$d = $a - $c;
$e = int($c);
$f = int ($d);
print すると、
$c は 500
$d は 50.000000000001(0の数はだいたい)
$e は 499
$d は 50
とうやら550 / 1.1 が内部的に割り切れていない様子(おそらく実際は内部的に499.99999999999999になってるのでintすると499に)
ロジックの変更で回避したけど、このバグ聞いたことありますか？

112:デフォルトの名無しさん
19/11/06 02:54:03.98 normnvJW.net
>>111
バグじゃなくて仕様やろ。
Perlの数値型はdoubleなので、1.1が正確に表現できてないんちゃう？
浮動小数点数の誤差についてぐぐれ。

113:デフォルトの名無しさん
19/11/06 03:29:15.89 normnvJW.net
>>111
おせっかいかもだがもうひとつ。
その手の誤差を回避するのは、ロジックでなんとかできることもあるが、実際にはなかなか難しいはず。
たまたま誤差が見えなくなってるだけの可能性もありそうなので、動作確認は慎重にな。
ちゃんとやるなら、decimal的なモジュールを使ったほうが。
あるかどうかは知らんけど。

114:デフォルトの名無しさん
19/11/06 03:46:51.16 QwLiS9cf.net
>>111
バクではなく仕様。
ちなみにPython,Tclで確認してみましたが同じ出力結果になりました。
どんな言語でも金額の計算や小数点の桁を調整をする場合、
int(切り捨て)、round(四捨五入)、ceil(切り上げ)などで処理するか、
出力時に、printfやsprintfを使って、"%.0f"などを指定して桁を合わせる
必要があると思います。

115:デフォルトの名無しさん
19/11/06 03:51:32.22 ZoqI13Ph.net
あるよ
use bigrat;
my %ISO_number = (
100 => 0,
125 => 1/3,
160 => 2/3,
200 => 1,
250 => 4/3,
320 => 5/3,
400 => 2,
500 => 7/3,
640 => 8/3,
800 => 3,
1000 => 10/3,
1250 => 11/3,
1600 => 4,
2000 => 13/3,
2500 => 14/3,
3200 => 5,
4000 => 16/3,
5000 => 17/3,
6400 => 6,
8000 => 19/3,
10000 => 20/3,
12800 => 7,
);
# dirty hack: 0/1 force rational type
# warning: if it locate last, sum goes WRONG!
printf "%s\n", 0/1 + $shutter_speed{$ss} + $F_number{$F} - $ISO_number{$ISO};

116:デフォルトの名無しさん
19/11/06 09:06:26.53 dfSHCt1W.net
浮動小数点の問題は知っていたが、こうなる事は初めて知った。危ないもんだな。
$c = $a / $b; # $c = 500
$e = int($c); # $e = 499

117:デフォルトの名無しさん
19/11/06 09:28:51.28 i85ttsqs.net
>>111
それはバグではないし、昔々からある超有名な仕様。知らないのはお前だけ。

118:デフォルトの名無しさん
19/11/06 10:08:35.95 yvB3xxPc.net
>>112
>>113
>>114
>>117
仕様で他の言語でもあるのですね。Perlで明示的な型指定とかはほぼ考えたことが無かった(1.08の時は意図した結果が得られていた)ので、勉強してみます。
ありがとうございます。

119:デフォルトの名無しさん
19/11/06 10:29:25.24 i85ttsqs.net
言語というよりはライブラリやCPUの問題だ。
しかしだいたいのメジャーな言語が採用しちゃってるので言語に関係なく出ると思って良い。

120:デフォルトの名無しさん
19/11/06 17:59:53.94 j94j+HrP.net
言語仕様っていうと違和感あるね
意図してこうしてますって感じで
IEEE 754の仕様といえばそうなのかもしれんがあれは規格であって
仕様とはまたニュアンスが違う　なんつーか実数扱うときはそんなもんという感覚

121:デフォルトの名無しさん
19/11/06 18:58:09.30 yvB3xxPc.net
>>111
一応、取った対応策です(消費税計算なので精度は不要)
除算解は有効桁数以下が切り捨てになり表示などで見える値以下になると想定しました
$a = 550;
$b = 1.1;
$c = ;
$tax= int($a - $a / $b); # $tax = 50
$net = $a - $tax; # $net = 500

端数を残したまま税込から除算解を引いてintして税とし、税込から税を引いて本体としました
とりあえず期待した結果は得られています
ありがとうございました。

122:デフォルトの名無しさん
19/11/06 18:59:08.05 yvB3xxPc.net
$c = ;
この行余計でした

123:デフォルトの名無しさん
19/11/06 19:44:41.92 mEOqpT9o.net
>>120
C/C++なら規格が精密なのでそういう違和感もわかるが、Perlの場合は逆におかしいやろ。ｗ

124:デフォルトの名無しさん
19/11/06 19:52:26.69 mEOqpT9o.net
>>121
税率によってはきっとアカン場合がありそう。。。
単純な切り捨てはヤバいような。
まあ、そこまでの精度はイランのやろけども。
ちなみに、今回のケースなら、$x/1.1とするのではなく、$x*100/110としたほうが安定しそう？

125:デフォルトの名無しさん
19/11/06 20:39:05.70 yvB3xxPc.net
>>124
うちは税込ものを分離する時は消費税側で小数点以下切り捨てなのでOKなのです
四捨五入とか会計方針によっては稀に問題が出るかもしれませんね

126:デフォルトの名無しさん
19/11/06 21:15:49.18 i85ttsqs.net
1.1を掛けるなら11を掛けてから10で割った方が良いかもな。そうすると正数計算でやれる。
切り上げや四捨五入をしたい場合は10で割る前に一桁目を見て10を足したり足さなかったりすれば良い。

127:デフォルトの名無しさん
19/11/06 21:18:49.26 i85ttsqs.net
ああ。逆か。税込みから本体と税を求めるのか。でも考え方は同じだな。

128:デフォルトの名無しさん
19/11/07 00:06:59.16 gr4VkOsJ.net
>>125
違うぞ。今回の問題点をちゃんとわかってるか？
1.1と書いたリテラルが、実際の値は1.10...となっていて、1.1よりも大きかったことだぞ。
誤差の具合によっては、正確には切り捨てが不要な値でも、除数が大きいせいで計算結果が実際よりも小さい値になってしまって、してはいけない切り捨てが発生してしまう可能性はないんかね。

129:デフォルトの名無しさん
19/11/07 00:07:26.65 gr4VkOsJ.net
>>126
>>124

130:デフォルトの名無しさん
19/11/07 01:08:34.48 q6f07NqD.net
>>128
消費税は小数点を使わず整数計算で
10 /110
8 / 108
で計算するようにします
アドバイスありがとうございます

131:デフォルトの名無しさん
19/11/07 01:12:13.17 q6f07NqD.net
>>128
うちの会社ではあんなに国家予算並みにたくさん「0」が出てくる消費税計算は無いのでとりあえずの回避でも大丈夫です
とはいえ先ほどのように整数計算に修正しようと思います

132:デフォルトの名無しさん
19/11/09 10:00:40.69 q+fGPpet.net
どちらにせよ、小数点以下をどう扱うかは仕様で決めないとダメだな。

133:デフォルトの名無しさん
19/11/14 22:54:58.33 cMIrVE8k.net
ファイルハンドル($fh)からファイル名を取得する方法ってありますか？
・stat $fhでinode取得してシェルのfindで見つけるってのはコストかかるのでやりたくない。
*{$fh}{IO}辿ってIO::Fileから得られないかなって調べたんですけど分かりませんでした。
基本的にそういう思想がないってことかも知れません。

134:デフォルトの名無しさん
19/11/15 00:28:22.57 WAwhq9DE.net
ムリやろ。
ファイル名のないファイルハンドルも少なくないしな。

135:デフォルトの名無しさん
19/11/15 12:49:10.35 qkK0C17l.net
ファイルハンドルからファイル名を求めるシステムコールとかもないしな。
ハードリンクされてて1つのi-nodeで複数のファイル名を持ってたらどうすんのっていう問題もある。
自分の作ったプログラムの中だけでいいならそのプログラム内だけの独自のopen,close作ってそこでファイル名を保持しとけば良いんじゃないかな。

136:デフォルトの名無しさん
19/11/15 22:37:17.80 9LSwivmi.net
お二方ありがとう
そもそもそういう使い方をするものではないって理解しました

137:デフォルトの名無しさん
19/11/17 00:22:07.56 +/PgA3gU.net
そもそもファイルをopenした時点で、ファイル名は自明だろ、、、
<>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、
while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof }
他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの
話だし。

138:デフォルトの名無しさん
19/11/17 00:47:01.26 7P3Fm4Oa.net
>>137
ファイルハンドルだけもらうクラスかもよ

139:デフォルトの名無しさん
19/11/17 01:44:18.01 cO7DNsZu.net
いや、気持ちはわかるやろ。
ファイルハンドルは、しょせんハンドルでしかないと納得するのは、事情がある程度わかってからなんだから。

140:デフォルトの名無しさん
19/11/17 07:47:40.51 bNRHw2eJ.net
ファイルハンドルをインクリメントすると次のファイルを指すハンドルになることはあまり知られていない。

141:デフォルトの名無しさん
19/11/17 12:07:49.00 Ew4nGi4g.net
>>140
それは、Perlのファイルハンドルの話か？
Cのファイルポインタではなく？

142:デフォルトの名無しさん
19/11/18 08:50:22.41 4tmHvePg.net
ActivePerl 5.22 から 5.28 にアップデートしたのだが、
次のものがなくなってしまって、とても不便になった気がする。
・PerlEz.dll
・ppm（perlパッケージマネージャー）
・htmlドキュメント
他の２点はいいとしても、PerlEz.dllが無いと生きていけないので、
5.22 に戻した。もう一生5.22 を使い続けることになるのかな。
なぜ、こんな事をするのだろうか？

143:デフォルトの名無しさん
19/11/18 20:45:39.28 2uYwgX87.net
Strawberry Perl 使えよ

144:デフォルトの名無しさん
19/11/22 22:32:44.69 G0qxcoi/.net
そういやみんな最新の安定版使ってんの？
うちは5.20で止めてる。特に意味はないんだけどこれが安定してるってどこかで見たから。

145:デフォルトの名無しさん
19/11/22 23:56:39.64 0hNsLKVA.net
5.16.3だな
多分意味は無い

146:デフォルトの名無しさん
19/11/23 00:04:49.15 pA1s2lMR.net
俺もCentOSのデフォルトだわ
5.16.x
もう枯れてるしね

147:デフォルトの名無しさん
19/11/23 00:20:10.52 FBMqwUlj.net
ずっと5.8.9のままだわ
とにかく安定している

148:デフォルトの名無しさん
19/11/23 01:08:20.02 uP8OeUg3.net
perlのワンライナーについて質問です。
cat /home/xxx/aaa.txt | perl -spe 's/AA/$var/; END{print "complated.\n"}' -- -var="BB" > bbb.txt
上記のようにすると、END部分の終了メッセージもbbb.txtに保存されてしまいます。
そこで下記のようにしてみたのですが、入力ファイルの指定と"--"以降の引数がうまく与えられずエラーになります。
perl -i -spe 's/AA/$var/; END{print "complated.\n"}' /home/xxx/aaa.txt -- -var="BB"
どのようにすれば入力ファイルの指定と変数渡しを一緒にできますか？

149:デフォルトの名無しさん
19/11/23 01:52:51.48 0LKgjFg3.net
5.30.0
なるべく最新の安定版を追っかけてる

次ページ