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

1 ：2013/10/12 〜 最終レス ：2013/10/27

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.net/php/）
このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
PHP厨も荒らしに沸きますがスルーしましょう。
スレで何か質問するとその質問者を複数の書き込みの連投で叩き粘着します、それがPHP厨です。
このスレ住人のPerl使いがそういう態度の連中というわけではありませんが、
スレ初心者にそのような錯誤を抱かせて居づらくさせることをPHP厨は狙っています。
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.1)
▼前スレ
Perlについての質問箱 60箱目
http://toro.2ch.net/test/read.cgi/tech/1379783114/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4

2 ：

【本】
初めてのPerl 第6版（リャマ）[2012年07月 発行]
http://www.oreilly.co.jp/books/9784873115672/
続・初めてのPerl 改訂第2版 [2013年08月 発行]
http://www.oreilly.co.jp/books/9784873116280/
マスタリングPerl [2009年03月 発行]
http://www.oreilly.co.jp/books/9784873113975/
もっと自在にサーバを使い倒す 業務に役立つPerl [2012年4月11日発売]
http://gihyo.jp/book/2012/978-4-7741-5025-3
モダンPerl入門 [2009/2/10]
http://www.amazon.co.jp/exec/obidos/ASIN/4798119172/secodezine-22/
モダンPerl入門 増補改訂版（仮）[2014年1月予定]
http://codezine.jp/book/modernperl2
Perl CPANモジュールガイド [2011/4/8]
http://www.amazon.co.jp/dp/486267108X
【オンラインマニュアル】
最新のドキュメント: http://search.cpan.org/dist/perl/
perldoc.jp: http://perldoc.jp/
perldoc.perl.org: http://perldoc.perl.org/

3 ：

[少し古めの良書]
プログラミングPerl 第3版 VOLUME 1,2（駱駝）[2002年09月 発行]
http://www.oreilly.co.jp/books/4873110963/
http://www.oreilly.co.jp/books/4873110971/
Perlクックブック 第2版 VOLUME 1,2 [2004年09月 発行]
http://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス [2006年08月 発行]
http://www.oreilly.co.jp/books/4873113008/
Perl Hacks [2007年01月 発行]
http://www.oreilly.co.jp/books/9784873113142/
実用 Perlプログラミング 第2版 [2006年03月 発行]
http://www.oreilly.co.jp/books/487311280X/

4 ：

【日本語、Unicode関連】
Encodeモジュール
http://search.cpan.org/dist/Encode/
第31回　encoding：いつまでもjperlから抜け出せない方に
http://gihyo.jp/dev/serial/01/modern-perl/0031
第32回　Encode：日本語だけ扱えればよいのではなく
http://gihyo.jp/dev/serial/01/modern-perl/0032
perlunifaq - Perl Unicode FAQ
http://perldoc.jp/docs/perl/5.18.1/perlunifaq.pod
perlunicode - Perl における Unicode サポート
http://perldoc.jp/docs/perl/5.12.1/perlunicode.pod
http://www.rwds.net/kuroita/program/Perl_unicode.html
【モジュール】
CPAN.com: http://search.cpan.org/
【Perl環境構築】
plenv
https://github.com/tokuhirom/plenv
cpanm
http://search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm
http://perldoc.jp/docs/modules/App-cpanminus-1.7001/lib/App/cpanminus/fatscript.pod

5 ：

■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■

6 ：

#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。

7 ：

ファイル名は文字列として扱えないので
・シェルのリダイレクトを利用する
・コマンドラインパラメータで渡す
・環境変数に設定しておきそれを使う
のようにするとよい

8 ：

【日本語関連追加】
Shift-JISテキストを正しく扱う
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
utf8-flag considered harmful.
http://lestrrat.ldblog.jp/archives/23208332.html

9 ：

前スレが200以上残ってるのに乱立するな
■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■

10 ：

30年後の日付を取得する方法
($year,$month,$day) = (localtime)[5,4,3];
$after30years = sprintf('%04d-%02d-%02d',1900+$year+30,$month+1,$day);
1000日後の日付を取得する方法
($year,$month,$day) = (localtime(time+1000*24*60*60))[5,4,3];
$after1000days = sprintf('%04d-%02d-%02d',1900+$year,$month+1,$day);

11 ：

>>10
東京オリンピック開会式まで後何日かを計算するプログラムを教えて！

12 ：

1964年10月10日との差を求めればいい
use Time::Local;
print "あと、",(timelocal(0, 0, 0, 10, 10-1, 1964-1900) - time) / (24*3600);
print " 日";

13 ：

>>10
間違ってるぞｗ

14 ：

30年後の日付の計算に、うるう年をどうするかって話ならともかく。
$month+1って・・・
13月とかでてくるじゃんかｗ

15 ：

Time::Piece版
1000日後の日付を取得する方法
my $t = localtime;
$t += ONE_DAY * 1000;
print $t->ymd;
30年後は仕様を確定してからでないと書けないな。
2/29日の1年後はどうするかとかあるし。

16 ：

ONE_DAYって何？ってことになるから即値の方が分かりやすいよ
ONEを1と定義しても何も分かりやすくならないからさ

17 ：

ONE_DAYって一日だろ？

18 ：

即値というのはこういうこと
my $t = localtime;
$t += 1 * 60 * 60 * 24 * 1000;
print $t->ymd;

19 ：

>>18
1 * は不要だろう

20 ：

>>16
ソースのあちこちに3.141592653189793と書く人？

21 ：

ONE_DAYのONEなわけだからこの1は重要。ソースに1回しか出てこないから
これは何だ？ということになる。PIが円周率を表しているのはPerlを超えても
コンセンサスがとれていると思うけどな。

22 ：

>>17
ある日、かもしれない

23 ：

向こうのスレ使いきってもないのに何でこっちのスレ伸ばしてんの？

24 ：

Perl厨は人に迷惑かけるために生きてるからね
糞スレ乱立でも何でも人に迷惑かけることができればそれでいいんだろ
言語が腐ってれば使ってる奴の人間性も腐ってるって良い例

25 ：

>>23
Perl忍者にボコされた負け犬荒らしが悔しくて
こっちにスレ立てちゃった感じ

26 ：

早く立てすぎでもはや重複スレレベル

27 ：

>>24
だよな、Perl自体がオワコンだもんな。

28 ：

C言語がオワコンじゃないようにPerlも使われ続けるだろ。でも文字列の扱い
だとか無駄にあれこれ付けて、数年でEOLみたいな機能・モジュールはさすが
に無理だ。
ユーザーもバカじゃないからそれに気づくはず。オライリーJあたりなんかは
とっくに気づいていると思う。

29 ：

C言語は代替言語がないからね
C言語ほどの簡単さであれだけの実行速度を誇る言語は他にない
C言語より難しくて速いのや、簡単で遅いのはあるけど
一方PerlはPHPに全面的に負けている

30 ：

データベースの中身が\ばっかりになっちゃうけど、Perlじゃないんだしそれは
簡易言語として仕方ないと思うんだ

31 ：

PHPって産廃だよね


それでもPerlよりはマシだけど

32 ：

どっちも間違い

33 ：

Perlはオワコン言語の代名詞

34 ：

PHPが駄目な理由をまとめたサイトってないですか？

35 ：

>>34
あるけどPerlよりは少ないよ

36 ：

>>35
例えばどれ？

37 ：

■■□■■■■□■■■■□■■■■■■■■■■□■■■■■■■■
■■□□□□■■□■■■□■■□□□□□■■■□■■■■■■■■
■■□■■□■■□■■■□■■■■■■□■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■■■■■■
■□■■■□■■■■■□■■■■■■□■■■■□■■■□■■■■
■■■■■□■■■■■□■■■■■□■■■■■□■■■□■■■■
■■■■□■■■■■□■■■■■■□□■■■■□■■□■■■■■
■■■■□■■■■■□■■■■■□■■□■■■□■■□■■■■■
■■■□■■■■■□■■■■■□■■■■□■■□■□■■■■■■
■■□■■■■■□■■■■■□■■■■■■■■□□■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■□■■■■■□■■■■■■■■■■■■■■■■■■■■■
■■■□□■■■■■□■■■■■■■□□□□□□□□□□□□■■
■■□□■■■■■□□□□□□■■■■■■■■■■■■■□□■■
■□□■■□■■■□■■■■□■■■■■■■■■■■■□□■■■
■■□■□□■■□□□■■□□■■■■■■■■■■■□□■■■■
■■■□□■■□□■□□□□■■■■■■■■■■■□□■■■■■
■■□□■■■■■■■□□■■■■■■■■■■■□□■■■■■■
■■□■■■□■■■□□□□■■■■■■■■■■□■■■■■■■
■□□□□□□■■□□■■□□■■■■■■■■■□■■■■■■■
■■■■□■■■□□■■■■□□■■■■■■■■□■■■■■■■
■■□■□■□■■■■□□■■■■■■■■■■■□■■■■■■■
■■□■□■□■■■■■□□■■■■■■■■■■□■■■■■■■
■□□■□■□■■■■■■■■■■■■■■■■■□■■■■■■■
■□■■□■■■■□□□■■■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■□□□■■■■■■■■■■□■■■■■■■
■■■■□■■■■■■■■□□■■■■■■□□□□■■■■■■■

38 ：

>>29
JSはCの二倍速いよ。

39 ：

http://ss.bokete.jp/6916057.jpg
http://ss.bokete.jp/12553487.jpg
http://ss.bokete.jp/6587314.jpg
http://ss.bokete.jp/5306246.jpg
http://ss.bokete.jp/12466945.jpg

40 ：

>>38
コンパイルもしないスクリプトが速いわけがないだろ
それにベンチも出さずに言われましてね

41 ：

JSみたいに型のない言語はマジで糞。
型のない言語でまともな言語は見たことがない。

42 ：

※ ただしJPerlは除く。

43 ：

Perlは型云々以前に言語設計からオワコン
正規表現だらけで可読性の低い欠陥言語

44 ：

意味不明

45 ：

globで取得できるファイルの一覧って、必ずソート済みなの？

46 ：

>>45
前スレも使い切ってないのにageる屑は消えろよ

47 ：

配列を歩いていって、条件を満たした要素を配列から削除したいんだけど
どうしたらいい？

48 ：

foreach中に今の要素を削除する方法でもよい

49 ：

>47-48
なんで本も読まずに質問すんの？
ウザいよ。

50 ：

>>49
PERLの本なら30冊ほど読んでいるよ

51 ：

それだけ読んでも分からないなら資質がないから諦めろ。

52 ：

>>50
前スレ使い終わってからこっち使えや知恵遅れ
すげー頭悪そうこいつ

53 ：

Perlユーザってチョンや親チョンが多いから
どうせチョン産のGOMPlayerとか使ってるんだろ？

54 ：

>>45
通常はそうなります
>>47
grepを使いましょう
my @new_array = grep { !条件 } @array;

55 ：

>>54みたいにロクにマニュアルも読んだことない奴が被害者を増やすんだな

56 ：

>>54
ありがとう grepか 簡易的なことならこれでいけそうだ

57 ：

>>56
そんなことも分からないようならいけるわけないだろ
諦めろ

58 ：

>>56
まあ、これからもがんばれよ。
しかし本は読めよ。
基礎知識を質問で解決しようとしたら激しく馬鹿になるからな。

59 ：

>>58
>>56はもう手遅れ
質問するのに適切なコミュニティすら見つけられない

60 ：

>>56
気にせずここで連日質問しろ
荒らしが意味不明な難癖付けるだろうけど完全に無視しろ
答えが手に入りさえすればお前の勝ちだ
さあ勝負してみろ

61 ：

答えが手に入れば勝ちなんだろうけど。
嘘回答やセキュホ回答が高頻度で提示されるスレで質問者がどうやって性格な答えを手に入れるんだろう。
しかも嘘とは言っても完全な嘘じゃないから後々原因不明のバグで悩まされるんだろうし。
質問するのは勝手だけど、
わざわざまともな回答がこないほうの掲示板で質問するメリットは何だろう。

62 ：

>>61
お前はなぜ正しい答えを出してあげないの？

63 ：

>>61
お前＝PHP厨のスレ違い脳がバグってる件について

64 ：

>>61=63
自演乙
文章が馬鹿っぽいからすぐバレるよ
phpに対するネガキャンの一環？

65 ：

>>64
また相変わらずお前は自分で自演して他人に転嫁する手口か

66 ：

>>65
一人芝居と妄想はブログでやったら？

67 ：

>>65
往生際悪すぎwばればれなんだよw

68 ：

>>65
>>65
>>65

69 ：

以上、PHP厨のワンパターン3連投ですた

70 ：

以上、PHP厨を演じてる奴の自演でした

71 ：

>>70
>>65

72 ：

PHPの吸いすぎで脳をおかしくしちゃった厨のいるスレはこちらでつか

73 ：

>>69
>>65-69の5連投の間違いだろ？
完全にバレてんのに往生際の悪い奴だな

74 ：

>>69
荒らすなって言ってもどうせ荒らし続けるだろうからもう言わないが、その代わり教えて欲しいことがある。
何でPerlスレをターゲットにしたの？Perlかスレ住人に恨みでもあるの？住み着いてもう1年近くになるよね、何がそこまでアンタを突き動かすの？

75 ：

>>74
PHP厨に言えよ。
ま、言わないのはお前が他ならぬPHP厨だからなんだけどな。
バレてるのはここでの行状だけだと思っていい気になってるがいいよ。
(・∀・)ﾆﾔﾆﾔ

76 ：

ここまでのまとめ
29 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/21(月) 02:50:28.42
一方PerlはPHPに全面的に負けている
31 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/22(火) 01:06:11.25
PHPって産廃だよね
それでもPerlよりはマシだけど
34 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/22(火) 16:08:12.26
PHPが駄目な理由をまとめたサイトってないですか？
63 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/25(金) 00:14:43.21
>>61
お前＝PHP厨のスレ違い脳がバグってる件について
64 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/25(金) 00:55:52.93
>>61=63
自演乙
文章が馬鹿っぽいからすぐバレるよ
phpに対するネガキャンの一環？
69 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/25(金) 15:16:36.82
以上、PHP厨のワンパターン3連投ですた
70 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/25(金) 16:58:58.15
以上、PHP厨を演じてる奴の自演でした
72 名前：デフォルトの名無しさん[sage] 投稿日：2013/10/25(金) 17:37:12.22
PHPの吸いすぎで脳をおかしくしちゃった厨のいるスレはこちらでつか

77 ：

PHPはスレ違いを通り越して板違いだぞ？
板違いの意味分かるか？
「おまえ、それ酪農板行けよ」
と同じくらい場違いなんだぞ

78 ：

みんながいじってくれるからここが居場所だと思っちゃうんだろ
別にお前がPHP得意ってわけじゃないんだから

79 ：

Perlの質問いつでも待ってます(・ω<)

80 ：

>>75
>>65

81 ：

他の人が書いたスクリプトをメンテすることができず職を失ってから１年。
PHPの勉強始め、次の仕事を探すもなかなか見つからない。自分の不遇はPerl
の存在のせい。それを誰かに分かって欲しくて書き込みを続けている。
分かってもらえれば成仏できる。

82 ：

>>81
責任転嫁すると楽になれますか？本当に楽になれますか？

83 ：

>>81
>>75

84 ：

>>82
Perlの糞っぷりを棚に上げると楽になれますか？
本当に楽になれますか？

85 ：

>>83はアンカーミス
>>80
>>75

86 ：

ﾀﾞｯｾw

87 ：

向いてないな

88 ：

アンカーミスする荒らし
そんなことだから自演ってバレるんだよ

89 ：

責任転嫁によって楽になるわけではなくて、同情してもらうことによって
楽になるのです。それで荒らし氏は楽土に向かうことができるのでしょう。

90 ：

>>85
結局>>74の質問には答えないわけか、ばれてるんだからそれくらい答えてくれても良さそうなものだが。

91 ：

>>77
だから何？
◆cTNQBKkO8kだってCGIの話してただろ
自分ルールで好きな内容を書いていいんだよこのスレは

92 ：

そんなルールは決めてないよ

93 ：

このスレの大半がPHP厨の自演・ﾌﾞﾂﾌﾞﾂの独り言で、
その内容が、
たまに投下されるPerlerの書き込み者を自演と決めつけたり、責任転嫁と言ったりと。
まあ、○違いの気持ちなんて俺には理解できんな。

94 ：

>>91
こんなのとか
竹島じゃないが、自分が不法占拠しておいて、それに抗議する正当な所有者に対して、侵略行為と逆ギレして言うような盗人猛々しいのが、
板違い・スレ違いで荒らすPHP厨の性根だから。

95 ：

PHP厨って誰なの？いつごろからスレに粘着したの？Perlerにいじめられたの？

96 ：

いじめられたんじゃなくて、自分が不法占拠しておきながら被害者ぶってさらに盗んだ相手に損害賠償を求めるという、ヤクザマインドなガイキチです。

97 ：

>>81って実話なの？

98 ：

証拠がない限り、嘘だと思え。

99 ：

ちなみにPHP厨ガーって騒いでるアフォも証拠がないから同様。

100 ：

>>99
>>1

101 ：

>>100
証拠じゃなくて妄想じゃんＷ

102 ：2013/10/27

モダンPerlは供給者のエゴだから付き合う必要はない
1月にまた新しい本が出るみたいだけどオレは買わないと思う
ちなみに翔泳社だからよろしくな