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/

**デフォルトの名無しさん** · 2016/12/19(月) 18:32:42.82

スマホかどうか判別するには
if(
$ENV{'HTTP_USER_AGENT'} =~ /iPhone/ ||
$ENV{'HTTP_USER_AGENT'} =~ /iPad/ ||
$ENV{'HTTP_USER_AGENT'} =~ /iPod/ ||
$ENV{'HTTP_USER_AGENT''} =~ /Android/
){
print "スマホだよ";
}

これでいいんですか？

**デフォルトの名無しさん** · 2016/12/19(月) 21:42:52.71

push,popは一般的なCPU命令のpush.popと同じだね。スタック末尾に積んだり取り出したり。
shift,unshiftは直感的とは言いがたいけど、まあ覚えるしかない

**デフォルトの名無しさん** · 2016/12/19(月) 23:41:08.79

対にして使うならば、push-pop、ないしpush-shift、unshiftはいったん忘れたほうがいい

**デフォルトの名無しさん** · 2016/12/19(月) 23:58:59.01

>>531,533-534
ありがとうございます。
pushは何とかそれで覚えられそうです。
何とかpush-shiftで覚えてみます。

>>530
レスしたいだけのゴミクズはさっさと消えろ。
まともに回答もできないクセに自己顕示欲だけは人一倍。
お前みたいな奴が社会のお荷物なんだよ。
お荷物=捨てるに捨てられないゴミ、だからな。
本当はさっさと処分したほうが社会のためだが憲法と法律によって処分できないだけ。

**デフォルトの名無しさん** · 2016/12/20(火) 01:30:38.17

>>535
自己紹介乙
簡単なことも覚えられない記憶障害者か？それとも統合失調症か？

**デフォルトの名無しさん** · 2016/12/20(火) 01:58:29.63

一行レスにこれだけの長文で応えるのは愛があるからだと思うの

**デフォルトの名無しさん** · 2016/12/20(火) 02:47:43.15

無理のある例えだが、配列がロケット鉛筆だとしたら
＜0[1][2][3]

ケツに押し込むのが push
＜0[1][2][3] ← [4]

ケツから飛び出ちゃうのが pop
＜0[1][2] → [3]

芯を引っこ抜くのが shift
＜0 ← ＜0[1][2]

先から無理矢理突っ込んじゃうのが unshift
→ ＜0[1][2][3][4]

**デフォルトの名無しさん** · 2016/12/20(火) 03:25:48.63

まあどうせすぐ忘れるだろ
結局は染み付くまで調べるのを繰り返すしかない

**デフォルトの名無しさん** · 2016/12/20(火) 04:26:14.23

>>535
いやいや、毎回調べるのも十分ありだと思うぞ。
俺はそのうちになんとなく覚えちゃったことけっこうあるよ。

**デフォルトの名無しさん** · 2016/12/20(火) 05:58:50.42

うろ覚えで使うとバグの発見に苦しむんで
ほんのちょっとでも不安を覚える感じがしたら大丈夫だとは思ってても
必ず調べる方が良いよね

**デフォルトの名無しさん** · 2016/12/20(火) 14:29:43.74

俺も毎回調べてることは色々ある
同じことを100回調べた疑いすらある

**デフォルトの名無しさん** · 2016/12/20(火) 18:25:40.76

そんなこと言ってるとまた精神障害者の>>536に記憶障害とか言われるぞｗ

**デフォルトの名無しさん** · 2016/12/21(水) 00:24:41.66

毎日のように使ってりゃそりゃ忘れることは無いだろうけど
数ヵ月とか間を空けると忘れてて調べなおすことはままある
記憶障害って言われるのはちょっときつい

**デフォルトの名無しさん** · 2016/12/21(水) 00:30:32.60

記憶障害じゃなくてゆとり世代なのか？

**デフォルトの名無しさん** · 2016/12/21(水) 09:29:14.01

覚えにくいことは自分で一覧表を作ると良い
C#の宣言一覧とか目につく所にファイルしてある

**デフォルトの名無しさん** · 2016/12/23(金) 10:11:56.10

shiftは考えてみたけど、底の抜けた箱に物が詰まってて、箱自体を上にシフトすると一番下の物がまろび出てくるってイメージかな

**デフォルトの名無しさん** · 2016/12/24(土) 05:45:04.23

干草プッシュだけ覚えときゃなんとかなる気がするが、ロケットペンシル記憶術も捨てがたい

**デフォルトの名無しさん** · 2017/01/01(日) 16:43:08.52

配列のスライスとリストのスライスは微妙に仕様が違うんだな。最近まで気づかなかったよ。

**デフォルトの名無しさん** · 2017/01/04(水) 00:26:26.84

モジュールのインストールすらできないPerlはマジでゴミ
膨大な依存関係を調べて手作業でインストールすればできないことはないのかもしれないが、
そんな暇があるのはニートくらいだろ

ゴミニート専用言語Perl

**デフォルトの名無しさん** · 2017/01/04(水) 01:41:34.64

>>829
今ケツの穴が痛くてそれどころじゃない

**デフォルトの名無しさん** · 2017/01/04(水) 01:41:41.45

>>829
今ケツの穴が痛くてそれどころじゃない

**デフォルトの名無しさん** · 2017/01/04(水) 02:01:46.64

菊初めか
お大事に

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

今ケツの穴が痛くてモジュールのインストールができない

・・・まで読んだ

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

HTTP::Liteモジュール使うのと、ソケットでガチアクセスするのと、systemでwgetを実行するのではどれが一番速いですか？

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

HTTP::Liteは余計な処理がある分遅い、wgetはネイティブだがforkする分遅い。よってsocketかな

**555** · 2017/01/07(土) 04:12:05.32

>>556
ありがとうございます。
それではソケットでガチアクセスします。

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

ネトゲで寄生してくる香具師まじでウザい
レベルも装備も明らかに足りてないくせにパーティー入ってくるんじゃねーよ

前半はやる気を見せるためか最前線で敵に突っ込んでいって何度も即死
蘇生スキル持ちの職がいるとはいえMPも有限だし、死ぬと分かってるのに突っ込んで手間かけさせるな

後半は後ろからついてくるだけ
パーティーの人数によって敵の強さが変わるから、攻撃も回復もしない寄生虫一匹分、敵が強くなってるんだよ
まじでお荷物なんだが

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

そういう糞雑魚がパーティーに入れない(入ったとしてもデメリットが大きい)MMORPG作りたいんだけど、
PerlでMMOサーバー作れる？
そうした寄生のできないちゃんとしたMMORPGを作りたい

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

君には無理

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

誰とは質問言わないが、明後日の方向向いたレスしてる知的障がい者がいるな
Perlで作れるかどうかという質問なんだがな
Perl使ってると日本語すら理解できなくなるのか、それとももともと日本語を理解できない朝鮮人が紛れ込んでいるのか

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

どっちにしろ君には無理

**デフォルトの名無しさん** · 2017/01/09(月) 08:24:01.83

自分にできないものだから、それをこじらせて
自分以外の人間全員できないと思うようになったのか
ここまでくると哀れだな

**デフォルトの名無しさん** · 2017/01/10(火) 05:46:20.71

ID:Ba0Z9f3i

俺もこいつには無理って意見に全面的に賛成するわ。
そもそもPerlで作るって発想が馬鹿。

**デフォルトの名無しさん** · 2017/01/10(火) 08:17:16.04

それ以前にそもそもPerlなんてゴミを使おうと思う時点で馬鹿。
使い物にならない時代遅れの言語が候補に出てくる時点でプログラマとして致命的。

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

サーバーサイドをPerlで作ってるところはそこそこあるだろう

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

mmoでか？
インタプリタを？

**デフォルトの名無しさん** · 2017/01/11(水) 18:54:09.92

だから君には無理だって
perlでmmoサーバ作れないどころか想像すらできないみたいだし

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

俺は作れるかどうかを疑問視してるんでは無いと思うんだがな
＞インタプリタを？
これをどういう風な意味に受け取ってるのかだろう

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

言語としてはPerlはチューリング完全を満たしています
最初に調べることだと思われますが

**デフォルトの名無しさん** · 2017/01/12(木) 16:15:10.55

mmoサーバも作れないゴミ乙
言語がゴミなのか、perl厨がゴミなのか、それとも両方か

**デフォルトの名無しさん** · 2017/01/12(木) 18:08:05.48

　　　　 (´･ω･｀)
　　　／　　　　｀ヽ.　　　お薬増やしておきますねー
　 __/　 ┃)) ＿_i　|
／　ヽ,,⌒)＿__（,,ノ＼

　　　　 (´･ω･) ﾁﾗｯ
　　　／　　　　｀ヽ.　　　
　 __/　 ┃　＿_i　|
／　ヽ,,⌒)＿__（,,ノ＼

　　　　 (´･ω･｀)
　　　／　　　　｀ヽ.　　　今度カウンセリングも受けましょうねー
　 __/　 ┃)) ＿_i　|
／　ヽ,,⌒)＿__（,,ノ＼

**デフォルトの名無しさん** · 2017/01/13(金) 01:30:45.41

オンラインゲームを支える技術、中嶋謙互、2011、技術評論社

サーバの構築・運営、通信量など、
オンラインゲームのほぼ全工程を、説明した本です
大人数用MMOと少人数用P2Pの、両方について書いてある

確か言語は、C++ だったかな？

**デフォルトの名無しさん** · 2017/01/13(金) 11:59:30.05

そらそうだろ、Perlなんて電子産廃なんだからC系とかPHPになるだろうよ。
Perlで何かを作ろうってほうがおかしい。

**デフォルトの名無しさん** · 2017/01/13(金) 16:26:16.86

PHPに代えたって意味無いじゃん
同様の理由でPythonも却下

**デフォルトの名無しさん** · 2017/01/13(金) 17:31:55.77

下らないことにはレス率が増えるこのレベルの低さよ

**デフォルトの名無しさん** · 2017/01/14(土) 01:50:24.44

ウザいゴミ

**デフォルトの名無しさん** · 2017/01/16(月) 14:17:17.64

>>573
大規模なオンラインゲームだと
むしろJavaを使うんじゃないかな？
人集めしやすいし

**デフォルトの名無しさん** · 2017/01/16(月) 18:16:40.64

そんな重いことまずしない

**デフォルトの名無しさん** · 2017/01/21(土) 22:44:51.61

>>559
おれなら作れる

**デフォルトの名無しさん** · 2017/01/22(日) 21:26:40.74

寄生できないmmoとか簡単そうだけどな

(1)死ぬたびに獲得経験値1/10
(2)3回死亡でダンジョンから強制排出＆所持金半減＆獲得経験値ゼロ
(3)経験値はパーティーメンバーの敵に与えたダメージ比率

(3)があれば身の丈に合ってないダンジョンの時点で経験値はほぼゼロ
ほぼゼロなところへ(1)があるから限りなくゼロに近くなる
寄生でダンジョンクリアだけしようにも(2)のハイリスクがある

**デフォルトの名無しさん** · 2017/01/24(火) 18:17:56.63

>>581
回復職やサポート職の経験値もなしということでしょうか。

**デフォルトの名無しさん** · 2017/01/24(火) 18:48:47.54

昔はこれでアラーにならなかったのですが、perl5.8でこれを実行すると @{$_[2]}が原因でこけてるらしいです。
どのように変えればよいでしょうか
my ( @WdayArr ) = ( $_[2] )? @{$_[2]} : ( 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' );

**デフォルトの名無しさん** · 2017/01/24(火) 22:39:27.02

>>583
# http://perldoc.perl.org/5.8.9/Scalar/Util.html
use Scalar::Util qw(reftype);

my @WdayArr = reftype($_[2]) eq 'ARRAY' ? @{$_[2]} : qw(Sun Mon Tue Wed Thu Fri Sat);

**デフォルトの名無しさん** · 2017/01/24(火) 23:38:20.96

>>583
$_[2]には何が入ってんだよ

**デフォルトの名無しさん** · 2017/01/25(水) 08:15:46.34

>>584
ありがとうございます。やってみます。

>>585
曜日の文字を配列に指定する部分です。なければ、英語の曜日が入ります

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

違う、そうじゃない

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

>>586
Perl 5.16.3 だが、下のスクリプトで１行目を入れても
消しても、きちんと動くぞ。
$_[2]に配列のリファレンス以外のものを入れたのだろう。
（エラーメッセージにそう書いてあるはずなんだが）
-----------------------------------------

$_[2] = [qw(a b c d e f g)];
my ( @WdayArr ) = ( $_[2] )? @{$_[2]} : ( 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' );
print @WdayArr;

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

>>588
use strict;を指定すると参照ダメみたいなエラーが出るので
とりあえずuse strict;を外して応急処置しています。

参照渡しができなくなったんでしょうか

**デフォルトの名無しさん** · 2017/01/25(水) 10:03:41.94

こういう時はエラーメッセージをそのまま貼るのが正解

**デフォルトの名無しさん** · 2017/01/25(水) 10:20:22.46

このようなエラーが
Can't use string ("ARRAY(0x10b0458)") as an ARRAY ref while "strict refs" in use at obj.cgi

**デフォルトの名無しさん** · 2017/01/25(水) 10:29:15.16

ARRAY(0x10b0458) というのは配列リファレンスを文字列として評価した時に出てくる
関数の呼び出し元で配列をそのまま渡さずにダブルクォートで囲うなどして文字列化してしまっているのだろう

**デフォルトの名無しさん** · 2017/01/25(水) 10:31:24.85

ありがとうございます。関数の実行側のほうを確認します。

**デフォルトの名無しさん** · 2017/01/28(土) 20:27:36.04

Perlはマジで糞だな
リファレンスはリファレンスで同じじゃねーの？
バックスラッシュ付けたリファレンスでも種類によって違うとか意味不明

**デフォルトの名無しさん** · 2017/01/28(土) 20:37:05.87

・・・？

**デフォルトの名無しさん** · 2017/01/30(月) 08:35:21.14

Ｃの共用体のようなことしなければ、
ある「型」のリファレンスは
その「型」のリファレンスのままでよい。
それ以外の使い方をすれば、「間違っている」として
エラーを吐いてくれるのが有難いではないか。

ただ、リストのリファレンスをハッシュの
リファレンスとして使いたい時（またはその逆）
がたまにあるが、それは可能にしてほしいと思う。

**デフォルトの名無しさん** · 2017/01/30(月) 15:21:11.69

# こういうのじゃいかんか?

my $ref_to_hash0 = +{ @{ $ref_to_array0 } };
my $ref_to_array1 = [ %{ $ref_to_hash1 } ];

**デフォルトの名無しさん** · 2017/01/30(月) 21:42:50.47

>>597
無駄なものがあって読みづらい

my $ref_to_hash0 = { @$ref_to_array0 };
my $ref_to_array1 = [ %$ref_to_hash1 ];

何がしたいのかわからん。
キーと値が交互に出てくるものを
ハッシュかリストに変換したいのか？

**デフォルトの名無しさん** · 2017/01/30(月) 23:42:02.11

my $ref_to_hash0 = { $ref_to_array0->@* };
my $ref_to_array1 = [ $ref_to_hash1->%* ];

**デフォルトの名無しさん** · 2017/02/04(土) 21:52:52.06

Javaのクラス周りに慣れるとPerlのクラス周りは本当に不自由だと気付く

**デフォルトの名無しさん** · 2017/02/04(土) 22:07:55.97

比較例に出すのにJavaのクラスなんぞを持ち出すのもどうかと

**デフォルトの名無しさん** · 2017/02/06(月) 09:40:35.12

xp　32bit

xp対応のアクティブパール（ActivePerl）がダウンロードできないです

旧バージョンはどこからダウンロードできますか？

**デフォルトの名無しさん** · 2017/02/06(月) 12:24:16.94

>>602
active perl old version
でググると、色々出てくるぞ。
実際、どれが使えるのかは知らんが。

**デフォルトの名無しさん** · 2017/02/06(月) 14:58:39.49

$str = "LIST( '2016123456','2015123456','2017987654',…)

という$strがあった時に、シングルクオートに囲まれた部分だけを取り出して
@listに突っ込みたいんだけどどう書いたらいい？
splitの正規表現でいけるかと思ったけどどう書いていいかわからない。

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

>>602
5.16なら間違いなく使えてる
5.18と5,20はファイル名に64intがくっついてて動くかどうかはわからない

**デフォルトの名無しさん** · 2017/02/06(月) 20:08:36.65

今activesite見てきたら、まあ流し読みしかしてないけど、古いバージョンは有料で提供してやるよって買いてあった

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

Need Perl on production servers or access to Perl 5.6, 5.8, 5.10, 5.12, 5.14, 5.16, 5.18 or 5.20?
Learn more about ActivePerl Business Edition

--------------------------------------------------------------------------------------------------------------------------

Get the language version you need on the platform you want. The following versions are available for purchase with Business Edition+:

ActivePerl 5.8, 5.10, 5.12, 5.14, 5.16, 5.18, 5.20, 5.22, 5.24
ActivePython 2.5, 2.6, 2.7, 3.2, 3.3, 3.4, 3.5
ActiveTcl 8.4, 8.5, 8.6

**デフォルトの名無しさん** · 2017/02/06(月) 20:41:32.21

>>604
push @list, $1 while $str =~ /'([0-9]+)'/g;

**デフォルトの名無しさん** · 2017/02/06(月) 20:55:17.22

>>604
$str = "LIST( '2016123456','2015123456','2017987654',…)

$str =~ s/LIST/@list=/;
eval($str);

でいいんじゃね？

**デフォルトの名無しさん** · 2017/02/06(月) 23:15:15.61

eval 怖ひ

**デフォルトの名無しさん** · 2017/02/07(火) 00:35:10.28

>>608
> push @list, $1 while $str =~ /'([0-9]+)'/g;

惜しいね。それやるならこうだよ

@list = $str =~ /'([0-9]+)'/g;

**デフォルトの名無しさん** · 2017/02/07(火) 08:04:04.27

>>611
読みやすさなら上の方が良くね?

新人に引き継ぐ時の事考えると

**デフォルトの名無しさん** · 2017/02/07(火) 08:39:30.86

>>602
2014年にダウンロードした
ActivePerl-5.16.3.1604-MSWin32-x86-298023.msi
を持っている。

ただ、Active State が古いバージョンを有償でのみ提供
しているのに、勝手に古いバージョンをうｐしていいものか解らん。
そのあたり、クリアにしたら、どこかにうｐしてやってもいいが。

**デフォルトの名無しさん** · 2017/02/07(火) 10:26:02.92

m//g の形式でグローバルマッチの意味がないように思うが

**デフォルトの名無しさん** · 2017/02/07(火) 12:23:47.76

>>614
m//g をリストコンテキストで使うと、
全てのマッチ部分のリストが返される。

**デフォルトの名無しさん** · 2017/02/07(火) 16:36:45.75

あると高速化できるようなrecommendsだけどインストールされていないモジュールを一覧出来る方法を教えて下さい

**デフォルトの名無しさん** · 2017/02/07(火) 17:46:12.43

>>602
googleでググったらすぐに見つかったけど？
https://xray-engine.org/index.php?title=ActivePerl
（このサイトは開くとき継続しますかって警告が出たんで
　ルート証明の認証に問題があるかも知れない
　一応Java ScriptとActiveXの実行は切ってアクセスしたほうがいいだろう）
一応俺が使ってる(XP 32bit)
ActivePerl-5.20.3.2003-MSWin32-x86-64int-299574.msi
をダウンロードして保存していたファイルと比較してみたけど一致したから問題ないと思う
あと、5.22.1も試してPerlとしては動いたので
現行ダウンロードできる5.22.3も大丈夫じゃないかな？
（インストーラがexeに変わってるけど）
あと俺が使えると言った5.22.1を何故使ってないかと言うと
WSHから何故か正常に使えなかったので、使える5.20.3を使ってる

**デフォルトの名無しさん** · 2017/02/07(火) 20:35:38.79

https://amaten.com/
こんなサイトの情報をテキストか何かで取得したい
LWP::Simple とかでは取ってこれない
何を使うと一番簡単にできる?

**デフォルトの名無しさん** · 2017/02/07(火) 20:58:27.25

use IO::Socket;

**デフォルトの名無しさん** · 2017/02/08(水) 01:47:50.85

>>602
XPで動くかは試してないけど、Strawberry Perlっていうのもあるよ
どうしてもActivePerlじゃないとだめなの？

**デフォルトの名無しさん** · 2017/02/09(木) 00:36:47.60

おれ XP で Strawberry Perl つかってる
ActivePerl はモジュールの対応が遅いから乗り換えた

**デフォルトの名無しさん** · 2017/02/09(木) 00:50:56.06

むしろなぜXPを使ってるのか知りたい

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

>>617のところでActive Perlの古いのから最新まで全部ダウンロードできるじゃん
それで解決だろ

**デフォルトの名無しさん** · 2017/02/09(木) 12:20:55.28

>>622
M$に金を払うのが嫌だからだろう。

**デフォルトの名無しさん** · 2017/02/09(木) 22:13:19.02

>>624
それだけだったらLinuxやFreeBSDなどを使うって方法もあるだろ？

だからM$に金を払うのがいやだけど、MSのOSが好きという理由であるはずだ
もしくはMS以外のOSがクソだっていう可能性もあるけど

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

>>618
perlはもう進化が止まってるので、あんまり新しいことは出来ない
自分で作るなら別だけど

rubyやpythonなら整ってる筈

**デフォルトの名無しさん** · 2017/02/09(木) 23:43:38.97

進化が止まっている #とは

**デフォルトの名無しさん** · 2017/02/10(金) 07:05:20.49

>>618
もう見てないだろうけど
HTML::TreeBuilder
HTTP::Daemon
LWP::UserAgent
WWW::Scripter
くらいでなんとかなると思うよ。簡単かどうかは知らんけど大体なんとかなってる。

**デフォルトの名無しさん** · 2017/02/10(金) 10:48:54.81

最近はperlは余り聞かないな
中学生の時にはブームだったけど……。（何十年も前）

学校ではpython とかだと思う。C#　java　が主力？

とにかく、滅多に聞かないな

**デフォルトの名無しさん** · 2017/02/10(金) 15:05:42.76

Perlを罵倒したい人は、こちらにどうぞ

Perlについての罵倒スレ 63箱目
http://echo.2ch.net/test/read.cgi/tech/1392639772/

**デフォルトの名無しさん** · 2017/02/10(金) 22:06:13.34

Perlは全然進化しないからな
一年ちょっと前に6がでて音沙汰なし
7はいつ出るんだ？って状態