Perlについて

210別人だが
垢版 |
2011/09/16(金) 11:07:01.31
>>205
UTF8の2byte文字、3byte文字の途中で文字列が終了していても、
malformed byteとして扱わずに残りはほっといて終了する。
何度もバッファリングしながら読む時に便利。
HTMLやXML等のパーザ書いてる人は結構使ってる。

encode.c:process_utf8(dst, s, e, check, encode, strict, stop_at_partial);
が本体。
2011/09/16(金) 14:07:43.91
>>210
ありがとん。
気になるのは、次のコードを走らせると、STOP_AT_PARTIALが有っても無くても
結果が変わらないところ。何か勘違いしてる所ある？

use PerlIO::encoding;
use Encode;
use IO::File;

my %type = (
"PERLQQ|STOP_AT_PERTIAL" => Encode::PERLQQ|Encode::STOP_AT_PARTIAL,
"PERLQQ" => Encode::PERLQQ,
);

while(my ($title, $value) = each %type){
$PerlIO::encoding::fallback = $value;
print "fallback: $title\n";
foreach my $in (
"\xe3\x81\x82",
"\xe3\x81\x82\xe3\x82\x81",
"\xe3\x81\x82\xe3",
){
open(my $fh, '<', \$in) or die $!;
binmode($fh, ":encoding(UTF-8)");
$fh->read(my $string, 5);
$fh->close;

printf("%0*v4x\n", ",", $string);
}
print "\n";
}
2011/09/16(金) 15:19:06.40
>>209
なんだラストマンて
英語のlast manとは意味が違うようだが
2011/09/16(金) 23:09:31.24
>>205
それってundocumentedなフラグらしいじゃん。
なんでそんなマイナーなのを持ってくるの？

お前の基準がわからんｗ
2011/09/16(金) 23:17:27.21
>>207
別に初心者はPerlを使うなとは言ってないから安心しろｗ

Perlのすべてを知ってからPerl使う人はいないだろ。
何も知らない初心者から、どんどんPerlを知って成長していく。
だから全部知る必要はないが、Perlを使えるという最低条件の一つがutf8フラグ。

ワイン好きなら美味しいワイン、まずいワインそれぐらいわかる。
いろんな種類を飲んで自称ワイン好きというのは構わない。
もちろんワインを飲んで構わない。

だがソムリエと言いたいなら、最低限のレベルってものがある。
Perlもそういうことだよ。プロの間で「Perlを使える」と言っていいのは
utf8程度、当然知っているべき最低限の知識だ。

お前はPerlを触ってるだけ。
2011/09/16(金) 23:38:35.12
>>214
> Perlもそういうことだよ。プロの間で「Perlを使える」と言っていいのは
> お前はPerlを触ってるだけ。

俺基準炸裂乙

> プロの間で

何度読んでも笑えるわ
2011/09/16(金) 23:41:04.56
はて？ utf8知らないんだよね？

知らないのに、Perl使えるって自慢したいの？ｗ
2011/09/16(金) 23:41:36.72
レベル低いのが、俺は低くないんだ！って言ってるのか？ｗ
2011/09/17(土) 01:19:55.00
>>189
まあ、
> > 今の時代に合わない、ネットの書き込みを
> > 全部排除してくれ。
> > 世の中モダンPerlだけでいい。
なんてことを本気で言ってる奴はただのバカなんで単に放っておけばいいでしょ。
Perl使いはTMTOWTDIなところが好きで使っている人も多いと思うんで、
一律にオレの理想のPerlしか認めんみたいなバカは2chの匿名板以外にはきっとあまりいないでしょ。
昔書かれた古い情報ならそれがいつ書かれたのか確認できるようにすればいいだけの話で、排除までする必要もないし。
モダンじゃない書き方を示されたらモダンに書くならこうですよ、と別途提示すればいいんだし。
モダンな書き方のメリットも強調したいならどうしてその方がメリットばあるのかも含めてね。
2011/09/17(土) 09:34:31.83
>>218
やり方は一つじゃないのと、
やり方を一つしか知らない のは
全然意味が違うぞｗ

自分一人でやってるなら自分のやり方だけ知ってればいいだろうが、
他人のコードを読んだり修正するのであれば、別のやり方を知らないといけない。
自分が使わなくとも、やり方を知らないといけない。

マイナーなモジュールならともかく、Perlに標準機能として搭載されている
文字コード関連技術ぐらい知ってるのが当たり前だろう。
2011/09/17(土) 20:11:09.82
>>219
> やり方は一つじゃないのと、
> やり方を一つしか知らない のは
> 全然意味が違うぞｗ

当たり前だ。
>>189 のどこをどう読めば「やり方を一つしか知らなくてもいい」と言ってるように読めるんだ？
貴様は文盲か。
2011/09/17(土) 22:51:35.16
UTF8というコードの扱い方も一応複数あるんだよなそう言えば
2011/09/18(日) 00:01:40.58
そもそも文字列なのかバイト列なのかというのは二者択一
ではなくて、おいらの頭の中でいいあんばいで処理して
いる。

それを処理系でマネをしようとしてutf8フラグなるもの
をこさえたんだけど、おいらの頭の中をうまいこと再現
してくれるわけじゃなくて、ギャップにぷぎゃーって
なるんだよな。

わかる？ぷぎゃーって？

コンピュータにはそれが分からない。
2011/09/18(日) 01:55:12.80
だから普段はuse utf8しないで、substrとか文字数カウントとかしたいときだけフラグ付けりゃいいじゃん
2011/09/18(日) 04:55:59.29
>>222
抽象化能力がかけてるの？

文字は文字であって、それがどんなバイト列なのか
意識したらダメだよ。そんなものを意識すると
バイト列が変わっただけで混乱してくるでしょ？

ぷぎゃーってなってるのは、文字とそれを構成するバイト列。
つまり、文字集合と符号化方式を頭の中で切り離せてないからだよ。

Unicode と UTF8・UTF16・UTF32などの違いをしっかりと学習しようね。
2011/09/18(日) 05:31:33.97
>>224
>>199
2011/09/18(日) 06:45:11.54
>>225
それはお前ｗ、Unicode時代の正規表現を知らないだけじゃないか。
自分が無知だってことを知らせてどうするよ。もっといろんな言語をだなぁ。

■[Ruby][鬼車]UTF8で\dが全角数字にマッチ
http://d.hatena.ne.jp/gengar/20091019/1255888893

http://vbnmkyoto.blogspot.com/2010/12/d-javacommons-validatorperl.html
> 罠なのは、Javaでも commons-validator を使っていると、
> commons-validator の正規表現は perl と同等であること！

.NET Frameworkの正規表現
http://smdn.jp/programming/netfx/regex/0_abstract/
> \dは10進表記の数字に使用されるUnicode文字1文字
> \Dは\d以外の任意の1文字
>
> (\dには半角数字だけでなく、全角数字も含まれる)

そのまま使える正規表現集 for regExp (javascript)
http://befine.jugem.jp/?eid=29
> ・全て数値かどうか（全角でも半角でもOK）
> /^\d+$/

pythonの正規表現で日本語を扱う
http://taichino.com/programming/1272
[0-9]を表す\dですが、unicodeフラグを指定すると[0-9０-９]と等しくなるようです。
2011/09/18(日) 09:24:45.51
RubyもJavaもpythonも関係なくて、関係あるのは今まで
使い続けたPerlなわけで、別に Unicode 時代をお招きした
つもりもないんだよね。

で、\d はこれまで [0-9] と同じってドキュメントに
書かれていたわけだから、Unicode に対応したからって
それが勝手に変わってしまうのは困る。
なぜかというと \d でマッチした内容は、テキストデータ
に埋め込む数字の文字列としても使うし、数値として計算
対象としても使うから。

そこんところをいいあんばいに混ぜて使っていたのが、
Unicode 対応という理由によって使いにくくなってし
まった。一体、何のための Unicode 対応なのか。

>文字は文字であって、それがどんなバイト列なのか
>意識したらダメだよ。そんなものを意識すると
>バイト列が変わっただけで混乱してくるでしょ？

いや、してこない。
（混乱するあなたをどうこう言うつもりはないけど）

処理系のために切り離さないといけないのは、設計思想
としてうまくないと思う。
2011/09/18(日) 09:34:53.65
文字列として見たら５も5も同じ。
そうゆう意味ではフラグが立ってる時の\dは全角半角関係ないのは分かる。

が、227の言い分もわからんでもない。

そんな自分は [0-9] って書いてる。
2011/09/18(日) 09:39:52.67
バイト列はうそをつかないけど
utf8フラグはうそをつくから使いづらい
2011/09/18(日) 09:42:09.24
> で、\d はこれまで [0-9] と同じってドキュメントに
> 書かれていたわけだから、Unicode に対応したからって

初心者かお前ｗ
ちゃんとドキュメントは読みましょう。

http://perldoc.jp/docs/perl/5.10.0/perlretut.pod
> \d は数字にマッチします; 単に [0-9] だけではなく、非ローマ字スクリプトからの 数字もマッチします
2011/09/18(日) 09:46:24.15
ちゃんと勉強を続けている人なら
\dは非ASCIIの数字にもマッチすると知ってる。

なぜ知らないの？ そっちの方が不思議だ。
2011/09/18(日) 09:49:51.72
だから変えるなって
2011/09/18(日) 09:55:45.19
変わってないよ。昔から\dは”数字”にマッチする文字クラスだ。

数字ではなく、特定のバイナリ列だと勘違いしているから
そういう間違いを犯すハメになる。
2011/09/18(日) 09:58:11.72
他にも、 . （ピリオド）は一バイトではなく一文字にマッチするものだからな。
しっかり正規表現が扱うのは文字だとわかっていれば当然の結果だが、
お前の場合、日本語で.を使った場合、どうマッチするんだよ？
日本語が3バイトEUCだったらどうするんだよ。とか悩むんだろうな。
2011/09/18(日) 10:51:09.14
>>233
> 変わってないよ。昔から\dは”数字”にマッチする文字クラスだ。

変わってないよ、じゃないだろ。処理対象次第で実際に振舞いが変わる。
現実世界では「変わってないよ」では何も解決せんのじゃ。
まあ高度な抽象化能力によって実際のコーディングとは無縁な
非現実の世界に生きている者にはなんの問題もないのかもしれんがな。
2011/09/18(日) 10:56:07.76
>>227
Unicodeの処理系は何をしなければいけないかかっちり決まってる。
全角半角の区別は明示的に指定した時以外はしない。
どの言語、どの正規表現ライブラリにいっても変わらない。
perlだけ流儀変えたらバカ言語確定。
>>227みたいな駄々こねるバカも同様。
2011/09/18(日) 12:29:22.88
> 変わってないよ、じゃないだろ。処理対象次第で実際に振舞いが変わる。

といわれてもなぁ。
Unicode非対応からUnicode対応になったんだから、
そりゃUnicodeを認識できるようになるわｗ

Unicode文字をちゃんと文字として認識させたかったんだからさ。
いつまでもASCIIのみ、まともに対応じゃだめでしょｗ
.を一バイトにマッチさせても意味ないんだし。
2011/09/18(日) 12:36:14.71
まあ、とにかくやりずらくなったってことだ。
2011/09/18(日) 12:45:26.37
ぷぎゃーがギャップの逆の綴りだと誰も指摘してくれない件
2011/09/18(日) 12:52:08.48
>お前の場合、日本語で.を使った場合、どうマッチするんだよ？
>日本語が3バイトEUCだったらどうするんだよ。とか悩むんだろうな。

悩まない
. は1文字を表現するんだから。もちろん3バイトEUCにマッチする
2011/09/18(日) 14:27:13.49
一体何を悩むんだろうな
他の選択肢を聞いてみたい
2011/09/18(日) 15:16:18.57
\d の代わりに $d を使う
$d はあらかじめ qr/[0-9]/ として用意しておく

うん、おれいいこと言った
2011/09/18(日) 15:35:58.93
結局実力が劣る奴が
utf8フラグを理解できずに
ファビョってただけか。
2011/09/18(日) 16:07:16.86
モダンPerlしかかくな！のようなレスが発端

参考書にjcode.pl >>190
昔書かれた古い情報。モダンな書き方のメリット>>218
2011/09/18(日) 16:12:39.25
発端

IO::File->new_tmpfile が「ファイルハンドルを返すもの」と理解してれば、
今の時代にこんな書き方はしない。

世の中モダンPerlだけでいい
http://hibari.2ch.net/test/read.cgi/tech/1313840197/327-333 Perlについての質問箱 48箱目
2011/09/18(日) 16:16:54.04
モダンPerlもPerlの一部だよ。

Perl使えなくて、Perl使いは名乗らないでください。
Perlちょっと触ってる程度にしてね。
2011/09/18(日) 17:15:14.64
モダンPerlしか使えないおれは負け組みってことっすか。
分かりました。
これからは jcode.pl を使って書くようにします。
2011/09/18(日) 17:46:34.60
>>247
そんなようだから負け組といわれる
～を使って、ではなくて、
～も使って、といえる奴じゃないと「使えない奴」と判定される
2011/09/18(日) 17:58:14.96
>>245
perldocの子プロセス→ファイルの動作が、
327のは子プロセス→パイプ→ファイルに変更されてる。
2011/09/18(日) 22:20:58.07
>>247
古いものは必要ない限り、勉強する必要はないと思うよ
どうせ使わないんだし。

それよりか新しいものを知っていると、
古いものしか使えない奴の先を行くことができる。
2011/09/19(月) 00:01:45.42
>>250
> 古いものは必要ない限り、勉強する必要はないと思うよ
> どうせ使わないんだし。

おいおい。モダン派(w)な >>219 は

> 自分一人でやってるなら自分のやり方だけ知ってればいいだろうが、
> 他人のコードを読んだり修正するのであれば、別のやり方を知らないといけない。
> 自分が使わなくとも、やり方を知らないといけない。

って言ってるようだけど?
2011/09/19(月) 01:33:23.03
>>251
「古いものは必要ない限り」って言ったよ。
2011/09/19(月) 02:05:07.40
>>252
てことはつまり、「新しいものも必要ない限り」勉強しなくていい、ってことになるな。
2011/09/19(月) 02:47:00.05
今後も新しいものが必要ないならｗ

そこで成長ストップだよ。
2011/09/19(月) 07:34:09.27
まあ今まで知らなかった「古いもの」を新たに知るのも成長のうちだからな。

古いものは「必要ない限り」勉強しなくていい、という時点でやはり成長ストップだな。
2011/09/19(月) 08:47:55.20
その通り。
そしてPerlの世界では、古いものはいつか必要になってくる。
KENT先生もそう言っている。
2011/09/19(月) 09:23:04.37
使える道具は多いに越したことはないという話だな。
Perlやプログラミングに限った話でもなし。
2011/09/19(月) 10:36:17.40
必要もないのに押し付けるための押売り文句として
「モダンPerl」なる用語ができたわけだ。

必要性があって作られたのなら、そんな言葉がなく
てもちゃんと広まる。今まで出てきた新機能は
そうだったんだから。
2011/09/19(月) 10:43:19.36
モダンPerlは広まってるよ。
2011/09/19(月) 12:01:04.69
なるほど、モダンPerlはLarryが使ってないからPerlは
このところ成長がストップしていたわけか。

今Perlの新バージョンをリリースしてるのは他の人らし
いしな。
2011/09/19(月) 12:13:15.47
こいつ、そこまでPerlの進化を拒絶してるのを見ると、
Perl6に対応できるのか疑問になるな。技術力的に。
2011/09/19(月) 12:18:06.49
どこからLarryが使ってる使ってないって話が湧いてきたんだ
2011/09/19(月) 12:20:02.18
こいつが、誰も使ってない。
Larryぐらいしかな！って
思いたいんだろ。
2011/09/19(月) 12:21:38.42
どこの世界にも、新しいものを拒絶する奴はいるもんさ。

そいつは技術者としてそこで終わりの人間ってだけだ。
卒業おめでとう。そしてさようなら。
2011/09/19(月) 12:29:12.72
しょうがない、管理職になるかw
管理職スレに行きます。
2011/09/19(月) 12:46:19.39
どさくさにまぎれて、Perlの進化とモダンPerlを一緒にすんな！
2011/09/19(月) 12:46:29.23
>>265
それも人生の一つだよ。きっと給料も上がるよ。
よかったじゃないかｗ

あと、管理職になったら、技術に口出しすんなよ。
お前のせいで古いもののを押し付けられると、
技術者が腐っていきます。
2011/09/19(月) 12:48:45.34
>>266
Perlの進化ってのは、たとえばEncodeモジュールとか
Mooseの影響を大きく受けたPerl6とか。

モダンPerlといって別に特殊なものではなく、
本来ならPerl とオールドPerlというべきだ。

モダンというのは、日本語で未来・・・ではない。
現在という意味だ。
2011/09/19(月) 12:51:32.65
今度から、モダンPerlではなく
現在のPerlと言おうかなｗ

現在のPerlではこのようにするんだよとか言えば、
現在のPerlは不要！とか反論するんだろう。

想像するとなんか楽しいな。現在のPerlを否定する姿を。
2011/09/19(月) 12:57:07.23
どこの世界にも、新しいことは何でも正義だと思い込んでる奴はいるもんさ。

そいつには技術が手段じゃなく目的にすりかわっちまってるんだ。
自縄自縛おめでとう。そして御愁傷様。
2011/09/19(月) 12:58:02.65
Perlの進化を否定したことはないし、古いPerlを押し付けたこともない。
何かを押し付けようとも思ってない。ただ腐った部分を取り除こうとしてるだけだ。
ちゃんと読め、現役の技術者。
2011/09/19(月) 13:02:06.93
腐った部分にモダンPerlという名前を付け分離可能にしたのは、人間として
多少なりとも良心が残っていた証なのだろう。
2011/09/19(月) 13:03:07.70
>>270
新しくないですよ。

今のPerlですよ。
2011/09/19(月) 13:03:35.26
今のPerlが使えないって、
もはやPerl使いじゃないだろｗ
2011/09/19(月) 13:05:36.97
Perlを長年使っていたのに、
お前はPerlを使えないって言われたら
どんな気分なんだろうなｗ

実際今のPerlを使えないのは事実だから
反論できないだろうしね。
2011/09/19(月) 13:07:10.54
モダンPerlはモダンPerlによってとって変わることを忘れるな。
過去を否定するものは自分も未来から否定されるということに
気づけ。おれが言いたいのはそれだけだ。
2011/09/19(月) 13:10:05.34
モダン Perl の次はポストモダン Perl
2011/09/19(月) 13:21:49.07
> モダンPerlはモダンPerlによってとって変わることを忘れるな。

当たり前だろ。それが進化ってものなんだし、
新しいものをどんどん吸収して行かないと
この業界で生きて行けないよ。

気がつくとすぐに普通の技術（モダン）に
なっているからな。
2011/09/19(月) 13:25:01.09
なんかモダンPerlが嫌いになりそうだ(´-｀)
2011/09/19(月) 13:26:20.86
それは勉強することが嫌いなだけ。

さようなら。
2011/09/19(月) 13:29:48.00
まあ自分が嫌われてるってことは認めたくないよね…(´-｀)
2011/09/19(月) 13:31:24.53
嫌うとかなんの話だｗ
283Perl忍者
垢版 |
2011/09/19(月) 13:31:41.79
どうも　スレが盛り上がってた　と思ったら
今日は祝日
2011/09/19(月) 13:31:56.16
>>281が>>282のことを嫌いってことだろｗ
Perlとは全く関係ない話だが。
2011/09/19(月) 13:33:09.34
正論を言うと嫌われることが多いから気をつけたほうがいいが、
２ちゃんねるだから、そんなこと気にする必要はない。
どんどん正論言うたれｗｗｗ
2011/09/19(月) 13:35:06.48
ノーサイドにしましょう、もう。
2011/09/19(月) 13:48:22.37
モダン派にちょっかいを出すと反応が大きくておもしろいので
ちょっといじってみた今日は祝日ｗｗｗ
2011/09/19(月) 13:52:20.89
まあPerlユーザーが、それも詳しい人達が中心になって切り拓いた到達点の一つが
モダンPerlなわけだから、Perlを使うならモダンPerlの学習は推奨されるべき

…で、確かに論理的にはモダンPerlの学習を奨めているんだが
なんか逆効果にみえるんだよなあ…(´-｀)と、ね
2011/09/19(月) 13:58:46.84
モダン焼きだってできたのは昭和25年だ。モダンPerlってな一体、いつ生まれだっけ？
2011/09/19(月) 14:07:56.22
perl6がいつまでたってもでてこないのが全部悪い。
2011/09/19(月) 14:15:36.38
言い換えて実体が変わるなら苦労しないけどな。
2011/09/19(月) 14:43:28.21
>>277
http://search.cpan.org/dist/Moose/lib/Moose.pm
> Moose - A postmodern object system for Perl 5
2011/09/19(月) 14:46:20.38
モダンPerl、終わったな
2011/09/19(月) 15:01:42.17
> 今の時代に合わない、ネットの書き込みを
> 全部排除してくれ。
> 世の中モダンPerlだけでいい。

っていうのも、時代が進むにつれて、自身がモダンでは
なくなり削除対象になりかけたわけだが、これで永遠に
保存されることになりました。

おしまい。
2011/09/19(月) 15:18:39.91
>>294
馬鹿か？

今モダンなのが廃れてきたら、
次が流行ってるってことで、
それを使うだけの話だよ。

常に勉強し続けるというのはそういうこと。
2011/09/19(月) 15:23:52.33
これからプログラマになろうとするときに goto 文を知る過程を
省くことはできない。過去を削除するなとはそういうこと。
削除してしまうと技術の発達の過程が見えないので、新しいひと
にとって魔法のように見えてしまう。
2011/09/19(月) 15:25:26.52
それともネットからは排除するけど、紙の本には書き記しておけ、
ってことを言ってる？
2011/09/19(月) 15:27:46.61
あ、それと勉強するな、進化するななんて一度もおれは言ってないから。
（他のひとが言ったかもしれないけど）
2011/09/19(月) 15:37:27.91
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
　　　過去を削除するから車輪を再発明しちゃうんだろが
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
300277
垢版 |
2011/09/19(月) 18:17:35.72
>>292
既にあったのか……。

モダンといっても Moose とかは遅いこともあるんだろうし、適材適所なものもあるよね。
2011/09/19(月) 18:26:32.34
Mooseは遅いだろうな
Moose Moose 亀よ 亀さんよ
って歌にもある
2011/09/19(月) 19:51:42.66
>>296
だから、goto文の悪さを世間に広めて、
そして新たにはgoto文を使ったコードを書かないようにする。

ようするに古いPerlは、昔は面倒だったんですよって
教えるだけで、さっさと今のPerlに映るべき。

老害は死ね
2011/09/19(月) 20:34:13.49
真のプログラマはPascalを使わない、ってね
2011/09/19(月) 21:33:48.09
utf8フラグが原因で原子炉が暴走することを
想像できないようじゃ技術者の風上にはおいて
おけないな。
2011/09/19(月) 21:35:06.57
goto文は乱用すべきではない、には同意だが
ガチガチに禁止してもねえ…

脱出判定変数を山のようにこさえられるよりは
gotoのほうがマシでした、なんて事態も…
2011/09/19(月) 21:44:13.47
今の時代に合わない、モダンPerlの書き込みを
全部排除してくれ。
世の中現在のPerlだけでいい。

そしてPerlの進化はすべて禁止！
常に勉強し続けるのも禁止！
2011/09/19(月) 21:58:22.58
>>305
そのへんはgoto文が悪いんじゃなくて
goto文を使うと見通しの悪いプログラムになりやすい、だから～
って事だからねえ
見通しの悪いプログラム作るなってのも、デバックしやすいように
バグが出にくいように、ってことだし
要は保守が楽でバグの無いプログラミングなら、その辺はどうでもいいわけで
2011/09/19(月) 22:04:13.04
そもそもPerlからモダンじゃない部分を取り除いたら
かなりの部分がなくなっちゃうぞ、どうやってプログラム
を組むんだ？
2011/09/19(月) 22:09:01.77
>>268
>Mooseの影響を大きく受けたPerl6とか。
は？

Mooseなんざ、Pugsよりもずっと後の
リリースじゃねーか。
2011/09/19(月) 22:21:24.46
>>308
えっと、モダンってのは今のって意味だから
今使われてるのは（モダンな方法で置き換わってないものは）
それもまたモダンですよ。

古いPerlは取り除いて問題ない部分。
2011/09/19(月) 22:23:18.95
調子のいいこと言うな、この！
2011/09/19(月) 22:25:02.02
>>307
Perlもモダンじゃないやり方は
見通しが悪くなるからねぇ。

何度も同じ事を書かないといけないnewとかアクセッサ
年、月、日、ばらばらで取ることしかできない日付関数
（今はTime::Pieceがモダンかつ標準モジュール）
日本語にしか対応できないjcode.pl
2011/09/19(月) 22:26:49.52
モダンってのがなんか未来みたいなイメージを
抱いてるのかもしれないけど、モダンっていうのは現在のって意味だからね。

今のPerlぐらいしっとけ間抜け。というのが
多くの人の共通意見。
2011/09/19(月) 22:29:33.86
またロワイヤルWeのお前がきたか
2011/09/19(月) 22:55:01.79
争点の整理
A) モダンPerlだけで済むのでそれ以外はネットから排除しろ
B) 過去のものは発達の過程が分かるようにするために必要だから削除するな
2011/09/20(火) 01:27:55.11
>>312
もしかして、それが見通しの悪い例なのか・・・

いや、俺は趣味でいじっているだけだけどさあ・・・
構造化プログラミングとかとっくに死語だろうけどさあ・・・
2011/09/20(火) 02:30:51.91
>>313
> 多くの人の共通意見。

詭弁の特徴の5.資料を示さず持論が支持されていると思わせる
「世界では、犬は哺乳類ではないという見方が一般的だ」
2011/09/21(水) 01:10:53.35
モダンPerlerに関する中間報告書
・自分のやり方を他人に押し付けようとする
・他人の意見を聞く耳を持たない
・絶滅危惧種であることを自覚しているためか、被害妄想の傾向にある
・論点が分かっておらず、あさってな方向の議論をしがちである
・言葉の言い換えによって自己満足するが、他人には伝わらない
2011/09/21(水) 01:17:47.61
モダン派の主張は争点と無関係で、軍配は徐々に B) に上がりつつある
2011/09/21(水) 02:17:11.41
>>319

詭弁の特徴の5.資料を示さず持論が支持されていると思わせる
「世界では、犬は哺乳類ではないという見方が一般的だ」
2011/09/21(水) 02:19:33.91
"モダンPerl" という言葉を "モダン(=現在の)"＋"Perl" と考える
のか「モダンPerl」という固有の言葉と考えるかで、話がすれ違っ
てしまうよ。

固有の言葉の「モダンPerl」は(ただの)Perlではないからこそ
「モダンPerl」なんであって、例えばKENTさんが作成したCGIスク
リプトのように世の中に普及し、広く使われるようになってしま
うと特別なものではなくなり「モダンPerl」とは呼ばれない。

それは単に現在の「Perl」ということだろう。
2011/09/21(水) 02:58:58.27
モダンPerlerに関する中間報告書-2
・ロイヤルWeを使いたがる
・長期的な視点でものごとを考えることができない
・グローバルであるかのように語るが、単に個人的な意見に過ぎない
・過去の情報を参照しないため、何度も車輪を再発明する
2011/09/21(水) 03:02:52.85
モダン限定か非限定かに関わらず、Perl自体の使用を止めるか…
2011/09/21(水) 03:14:55.02
すみません。モダンPerlって一体、何のことなのですか？

Perlのほんの一部分であるようなコメントもあるし、逆に
大部分がモダンPerlで、そうでない部分は少しであるかの
ようなコメントもあります。あるいは特定のモジュール
を使う／使わないということですか？

モダンPerlとPerlは両立しないものなのですか？
例えばモダンPerlとPerlの中間というものはあるのですか？

ここで話されているモダンPerlはモダンPerl入門という書籍
と関係していますか？
2011/09/21(水) 03:19:31.57
喪男の使うPerlのこと。
2011/09/21(水) 03:28:18.71
喪男(=モダン)ですね。わかります。
2011/09/21(水) 03:37:16.22
Mojoというミドルウェアも聞いたことがあります。
2011/09/21(水) 03:42:42.96
喪男も喪女もカバーしているのか。さすがPerlはなんでもありだな。
2011/09/22(木) 04:22:23.96
モダンPerlerに関する中間報告書-3
・モダンPerlと非モダンPerlは両立しないと考えている
・「過去の情報を削除するな」が「モダンPerlを排除しろ」と聞こえているらしい
2011/09/22(木) 04:39:50.81
軍配は B) に上がっているように見えるが、もちろんこれはモダンPerlの否定を意味しない
2011/09/22(木) 22:00:06.44
過去の情報は「過去の情報」と書いて残しておけばいい。
メンテナンスもせずに放置するな。
それやるぐらいなら消したほうがいい。
2011/09/22(木) 22:25:58.47
>>261
> Perl6に対応できるのか疑問になるな。技術力的に。

ﾜﾛﾀ
2011/09/22(木) 23:27:39.20
使いにくくなることを道具の進化と考える馬鹿には
困ったものだが、所詮、固定レコード長のファイル
を扱ったことがないような連中だから相手にするのも
なあ
2011/09/22(木) 23:49:34.14
Perl6はなー、いっそRubyへ行こうかと思わせるほどカオスな仕様だからなー。
2011/09/22(木) 23:58:34.13
Perl6は普及した頃に改めて使うかどうか考えるわ。
それで別に遅過ぎるこたあない。
2011/09/23(金) 00:25:51.06
手段と目的の区別がつかなくなっているのは、需要をもとに
開発されたわけではなくて、供給者側の技術的挑戦によって
開発されているからだと思う。

そして、それに気がついていない供給者は、本末転倒な議論
をしてしまう。

俺たちの時代にはゆとりなんてなかった訳で、基本的に需要
ベースで動いていたから、こんな時代がくるなんて悔しい
けど思いつかなかったな。

なにもPerlに限った話ではないが。
2011/09/23(金) 01:25:50.56
# utf8 source
my $str = "あいうえお";
print $str.length; # 5
print $str.bytes; # 15

とか出来なきゃ perl6 なんか使いたくない。
perl5 で十分だな。

ソースに許される言語は utf8 のみにしちゃえばいいのに。
英語圏も例外なくさ。
utf-8 読み書きできないエディタ使ってるやつなんかそうそう居ないっしょ？ｗ
338デフォルトの名無しさん
垢版 |
2011/09/23(金) 05:26:08.38
Perl6はCPANを一から作り直しでしょ？
おそらくちょっとした作業の使い捨てスクリプトしか需要がないような。
Parrotの出来のほうが重要なのかな？
2011/09/23(金) 05:46:34.38
>>337
> ソースに許される言語は utf8 のみにしちゃえばいいのに。
> 英語圏も例外なくさ。

なんかお前utf8わかってない気がするなｗ

ASCIIコード（文字コード127以下）だけで書かれたコードは
utf8でもあるんだぜ。
340デフォルトの名無しさん
垢版 |
2011/09/23(金) 06:32:18.61
ISO 8859-1でなくUTF-8を使えって意味にとらえた
2011/09/23(金) 06:51:03.66
まあ普通に互換性切れってことだな。
ソースからEUCとか排除するっていうのは。


普通に考えればデフォルト互換性あり。
use utf8すれば、utf8のみ許されるってするのが妥当だが。
2011/09/23(金) 14:48:00.43
つうか、１つのスクリプトの中でISO 8859-1とUTF-8を混在して
使って、use utf8;とno utf8;を使って切り替えようとするのが
そもそも無理なんじゃね？
JPerlのときみたく素直にUPerlを作れば解決すんじゃね？

ロイヤルWEを使うわけじゃないけどISO 8859-1とUTF-8を混在さ
せて使いたい！なんて需要は少ないと思うけど。
2011/09/23(金) 18:10:02.71
> JPerlのときみたく素直にUPerlを作れば解決すんじゃね？


そしてCPANすべてをUPerl専用に書き換えるってか
膨大なばかだなお前はｗ
2011/09/23(金) 18:59:36.71
むしろ6は別言語にして、Perlは基本的に5の仕様のまま枯らしたほうがいいと思う
2011/09/23(金) 19:32:39.92
そのためにはPerl6っていう名前をやめてくれるといいんだけどね
2011/09/23(金) 19:38:40.63
UTF-8はASCIIの上位互換だと知らずにばか呼ばわりしてすみませんでした
2011/09/24(土) 01:51:49.79
>>346 自演キモい
2011/09/24(土) 03:07:01.61
小学校でもパソコンを習うけどなぜか文字コードのことは習わないからなぁ
2011/09/24(土) 06:18:01.02
ISO 8859-1とUTF-8を混在できるテキストエディタを自慢しても
意味ないだろうし、例えば文字コード変換プログラムのように
両方を扱う必要があるなら、どちらかを16進エスケープで書けば
すむ話だし、やっぱり供給者がドヤ顔で作っちゃったんだろうな
2011/09/24(土) 09:48:49.31
何言っているか不明のドヤ顔のレスw
2011/09/24(土) 12:28:33.25
CPANを書換える必要がないと読み取れれば小学生卒業。
2011/09/25(日) 14:40:44.09
Larryたん息してない
2011/09/25(日) 15:17:16.90
>>342
Uperlといわずに、use utf8;抜けばマルチバイト文字列で行けないか？
それと、バイナリと文字列は混在する。
2011/09/29(木) 21:02:28.96
ご自由にお使いください、のフリーソフトウェアの文化と
お前らこのモジュール使え！のモダンPerl派のスタンスは
雲泥の差があるのかもしれないなあ
2011/09/29(木) 21:06:27.79
>>354
ようするに、Rails否定なわけね

頭固い旧世代人さんｗ
2011/09/29(木) 21:40:48.43
おい、誰だよ！Larryの呼吸器外したのは！？
2011/09/29(木) 21:43:15.59
>>354
TECO Emacs時代から「お前らこのフリーのモジュール使え！」ですよ。
2011/09/29(木) 21:59:11.51
強制される自由か...そりゃ息も詰まるって話だ。
2011/09/30(金) 01:37:49.87
>>355
否定じゃなくて、適材適所臨機応変。

> 頭固い旧世代人さんｗ

「新」しければ無条件に良い、か。
お前の方がよっぽど頭固いわ。
2011/09/30(金) 03:33:02.23
早くuse featureなしでgiven-when文が使えるようにならないかなあ
2011/09/30(金) 14:53:24.42
Ｐｅｒｌ＼パールの商標登録却下おめでとうございます北畠徹也さん
2011/09/30(金) 17:54:11.07
異議の決定かー。しかし、半分ぐらい雑誌紹介に見えてしょうがない。
2011/09/30(金) 21:34:20.95
結局、"モダンPerl" っていうのはマーケティング用語なわけで、
技術者のおれとしてはあんま興味ないな。
ちゃんとした技術なら飾りの言葉は必要ないはずだし。
2011/09/30(金) 22:14:39.55
>359
> 「新」しければ無条件に良い、か。

はて？ 誰がそんなことを入ったの？

いいものは無条件にいい。
その代表がモダンPerl。
2011/09/30(金) 22:15:36.18
そもそもモダンPerlってのが
良い物を集めたもんだしな。

あ、あくまで技術力が高い人にとって
良い物だから、未だにUTF8フラグがわかんないとか
そういう初心者には、難しいものだろうね（大爆笑）
2011/09/30(金) 22:19:18.76
>>359
> 「新」しければ無条件に良い、か。

つか、モダンPerlを新しいと思っている時点でだめだろ。
新しくはないぞ。

新しくないので、あんたの批判は的はずれだ。
367Perl忍者
垢版 |
2011/09/30(金) 22:26:25.64
結局、"モダンPerl" っていうのはマーケティング用語なわけで、
技術者のおれとしてはあんま興味ないな。
ちゃんとした技術なら飾りの言葉は必要ないはずだし。
2011/09/30(金) 22:33:42.76
マーケッティング用語というのは根拠が無いので>>367が言っていることは意味が無い。
あんま興味がないというのは、ただの>>367の感想なので意味が無い。
ちゃんとした技術なら飾りの言葉は必要ないといってるのも根拠が無いので>>367が言っていることに意味が無い。
>>367は全く参考にならない。

それよりも、有名な人の言うことのほうが信じられる。
2011/09/30(金) 22:49:55.97
376のクソコテは有名だろ。
2011/09/30(金) 22:57:01.33
っで>>367は本物なの？
2011/09/30(金) 23:02:33.67
２ちゃんねるの住民が本物かどうかなんて興味はないよ。

２ちゃんねるは適当に遊んで、
参考にするなら貼られたリンクやキーワードを使って
調べた２ちゃんねるの外の世界だ。
2011/09/30(金) 23:03:22.54
激同
2011/09/30(金) 23:06:06.84
本音は２ちゃんねるでしかきけない。
２ちゃんねるの外はモダンPerlは素晴らしいという
ウソにまみれた良い子ちゃん発言だけだ。
そんな世界の何が信じられるというのか。
2011/09/30(金) 23:28:59.54
1つの問題に対して複数の解決策を持ち、
その中から、最適と思われる解決策を選ぶだけだな。
モダンか関西風かはこだわらない。
2011/09/30(金) 23:31:06.87
名無し派のYappo
Yappoは2chの歴史を知り尽くしてそうであり
2chの文化を守ってそう、彼はこの2chの中で名無しさんを今もやっているだろう
2011/09/30(金) 23:36:15.03
>>374
そんな当たり前のことを言われてもｗ

特に問題は定義されているわけではない場合に
普通に書くとしたら何を選ぶかってので選ばれたのが
モダンなんだろ。

動作環境がPerl 5.6なんですってところで
モダンを使おうなんて言うわけないだろ。

お前が言いたいのはモダンが必ずしも最適解とは限らないって話だろ？
それはモダンの否定にはなってないとみなすよ。
377374
垢版 |
2011/10/01(土) 00:05:09.86
>>376
そりゃモダンPerl自体を否定してないもん。
ただ、一般的な選択をするならPerldocに沿った選択をする。少し古臭くても。

否定したいのは、>>354に出てくる「お前らこのモジュール使え！のモダンPerl派」。
存在するのかどうかは知らないけど。
2011/10/01(土) 00:08:46.04
Perldocはコアモジュール以外を使うことを否定してるのか？

コアモジュールを使うこともPerldocにそったやり方だろ。
それも含めてPerlなんだが。

それにお前こそPerldocにそったやり方を押し付けてるようにしか見えんぞｗ
379374
垢版 |
2011/10/01(土) 00:08:49.47
>>377
ああ、PerldocはPerlfaqとかね。
380374
垢版 |
2011/10/01(土) 00:11:20.12
>>378
自分の流儀で使えばいいだろうに。

何故私の流儀に合わせるのか不明だ。
説明を要求する。
2011/10/01(土) 00:15:33.89
古いやり方ってのは、Perldocに沿ってないやり方だったりするんだけどなｗ

たとえば、Perldocに沿うのであればEncodeモジュールを使うべきだし、
http://perldoc.perl.org/perlunitut.html
382374
垢版 |
2011/10/01(土) 00:24:07.76
それは当たり前だろう。私は私の流儀に従って使ってる。
2011/10/01(土) 00:28:59.07
日付を扱うモジュールはTime::Pieceがモダンだよ。
Perl5.10から標準モジュールだしね。
2011/10/01(土) 00:29:45.16
つか、Perldocに反するなら
モダンにはならないから・・・

モダン＝Perldocに沿ったやり方。
385374
垢版 |
2011/10/01(土) 00:41:41.88
少々古臭いやり方というのは、
たとえば、IPC::Cmdというモジュールが、5.10辺りから標準で入っているが、
perlipcには書かれていない。
この場合はIPC::Open3を選ぶかもしれないし、system()を選ぶかもしれない。
これはきっとモダンじゃない。
2011/10/01(土) 01:22:43.93
IPC::Cmdが5.10に標準モジュールで入っているということは
「お前らこのモジュール使え！」ってことだ。

使ったほうがいいぞｗ
2011/10/01(土) 01:39:18.19
どさくさにお好み焼の話をしてる奴がいたぞ。
おい誰かスルーしないで相手してやれよ。俺はやめとく。
2011/10/01(土) 13:12:27.39
今日はちょっと熱いねwww
2011/10/01(土) 13:29:21.79
どのプログラムだって、書き終わった直後から古くなっていく
わけだし、他にもプログラムは書かないといけないからいつま
でも書き終わったプログラムの面倒を見てはいられない。

そうすると、書いた当時は最新の方法で書いたとしても、時間が
たって読み返して見てみると必ず「古く」見えてしまう。

自分にとってはこれは当たり前のことだと思うし、このこと自体
に対処する必要はないと考えてるんだけど、モダン派のひとには
許せないことなんだろうなあ。
2011/10/01(土) 13:45:05.27
古くからある機能はプリミティブなわけで、それが問題の
解決策(ハック、ソリューション)となる場合は長期的に
利用されることだって多々ある。

その部分も "モダンPerl" に含まれるってコメントを上で
見たけど、そうなってくるとモダン派の主張って一体、
何なの？って思える。

一番最初のコメントの「排除したいもの」って、何なの？
2011/10/01(土) 13:51:46.59
> 一番最初のコメントの「排除したいもの」って、何なの？

今となっては古いものを、古いものだと示さないで広める行為。
2011/10/01(土) 14:03:10.30
その方法が解決策として優れている場合でも、か？
2011/10/01(土) 14:17:54.85
>>392
当然。解決策として優れているとしても、
古いやり方と示されていないと悪でしか無い。

ま、古いやり方が最善の解決策である場合は、
限られた条件下においての話しか無いけどな。

たいていは、新しいやり方があってそっちに移行するのが推奨。
ただし、○○の場合は古いやり方を使ったほうがいい。
まともなサイトならこのような書き方をする。

新しいやり方があるのに、暗黙的に古いやり方を推奨して
そのことを全く書かないのは害にしかならない。
どうせ意図的にやってるんじゃなくて、放置されたサイトなんだろうけね。
2011/10/01(土) 14:20:16.70
例

害サイト

　　文字コードを変換するのにはJcodeを使用します。


正しいサイト

　　文字コードの変換にはPerl標準モジュールであるEncodeモジュールを使用するのが推奨です。
　　ただし、サーバーが古くて乗り換えもできないなどの制約がある場合はJcodeを使用するという方法もあります。
2011/10/01(土) 14:21:59.90
あと、読者を初心者あつかいして
もっといい方法を知っているのに
それを教えないサイトも馬鹿にしてると感じる。

たとえばテンプレートエンジンを使えば楽なのに、
それを知っていながらヒアドキュメントで書く方法しか教えないサイト。
実際には書いている奴が初心者なんだろうなってのが答えなのだろうけど。
2011/10/01(土) 14:28:22.64
アプリケーションがある程度の大きさのものともなれば、
いくつかのシステム、サブシステムを相手にしないとならない。

それらの機能や目的、開発時期もまちまちで、1年前のシステム、
3年前のシステム、10年前、15年、20年前のシステムも当たり前
に混在してくる。

例えば、ネットワーク周りは最新のモジュールが使えた場合
でも、データベース周りは古くからあるシステムに合わせる
ために古いモジュール/ライブラリを使う必要が出てくることが
ある。GUIの部分だって顧客が「どうしてもこれで」というので
あれば技術的な観点、流行、開発者の好みと無関係にその GUI
を使わないとならない。

現実に作られるアプリケーションというのは、開発者が自由に
作れるわけではなくて、現実の制約の中で作らないといけない。
だから仕事でプログラミングする場合は、おれはモダンPerl
しか使わない、なんて小学生みたいなことは言ってられない。

どうも気になるのは、モダン派の話の中には WWW アプリケー
ションの話しか出てこないんだよな。
2011/10/01(土) 15:00:46.36
だれがモダンPerlしか使わないなんて言ってるのだろうか？
なんか勝手に理想通りの敵を作って
そいつと戦ってるみたいだなｗ
2011/10/01(土) 15:05:03.79
戦ってるつもりはないぞw
ところで、モダンPerl以外を排除する話はどうしたんだ？
2011/10/01(土) 15:34:21.57
2011年10月1日、今日はPerlユーザにとって記念すべき日です。

それは "モダンPerl" というマーケティング用語がなくなる日だから
です。

モダンPerlというラベルがなくなっても、ちゃんとした技術は使われ
続けていくでしょうし、反対にこの言葉のおかげだけで存在していた
うそ技術・偽モジュールは廃れていくことでしょう。

それが何なのかは、あえて触れません。
なぜなら時間が(全てのひとに分かる形で)証明してくれるからです。

私たちは "モダンPerl" という言葉の終焉の証人なのです。

さあ、一緒に乾杯しましょう！
2011/10/01(土) 15:54:20.75
必死すぎｗｗ
2011/10/01(土) 17:09:53.45
モダンPerlに一応、区切りがついた。
追われることがなくなったので、ちょっとほっとしている。
2011/10/01(土) 17:21:27.80
これからは関西風ってことか．．．

関西風ってことは、えびが関西弁でしゃべるんだろ？

「わて、ちょっと熱いねん」

なんだか食べづらそうだなあ。
2011/10/01(土) 18:32:37.11
モダンって「現在の」って意味だって知ってるか？

だからモダンPerlは、現在のPerlって意味だよ。
現在のPerlは、当然ちゃんと使えるんだよね？
2011/10/01(土) 19:46:54.15
ニューメディアが新しいメディアではないように、モダンPerlも
忘れられる運命にある。そんなもんだ、仕方がない。
2011/10/01(土) 19:59:28.25
モダンPerl、お疲れ様でした！乾杯！
2011/10/01(土) 20:02:38.59
なんでそんなに必死にモダンPerlを否定してるのだろう？
いくらお前が意見を押し付けようとも、世の中の流れは変えられないのに。
2011/10/01(土) 20:14:18.76
モダン、モダンと押し付けてるのが、亀田・韓流・AKBくさいんだよ
もしくは電通

「HTML Template は古い！これからは、 Templateの時代！」とか。
Template なんざ、データ解析系にとってはデファクトスタンダード。
Web 屋のテメーが知らなかっただけだろーが、何がモダンだ。

良いものは良いで使うけど、モダン廚と同じに見られるのが
非常に気にくわない。
2011/10/01(土) 20:18:01.53
きっと実体がないからだと思います。

決算報告を誤魔化して、赤字なのに「儲かってる」と、嘘を
ついているようなことを連想してしまうからじゃないでしょ
うか？
2011/10/01(土) 20:25:25.20
>>403
正確には「近代的」。
2011/10/01(土) 20:32:15.10
電気通信大学は確かにモダンだけど、オレはあんま押し付けられた
記憶はないなあ。

>>407
健康と命は大事だぞ ^_^)
2011/10/01(土) 23:33:57.48
モダンブラウザも否定するのかな？
2011/10/01(土) 23:37:58.52
否定も何もモダンブラウザという用語を知らない。
勉強不足ですまないけど、ここPerlスレなんでかんべんな。
2011/10/01(土) 23:40:34.42
多分知らないから否定してるんだろうな。
2011/10/01(土) 23:41:46.30
そんなことはない。知らないんで、否定のしようがない。
あ、モダンブラウザの件ね。
2011/10/01(土) 23:43:39.91
本当は知らないんだから否定しようがないはずだが、
なぜかモダンPerlだと知らないものを否定している。
2011/10/01(土) 23:45:11.71
もうモダンPerlの話はどうでもいいから、それらを構成している（という）
個々の技術の話をして欲しいよ。
2011/10/01(土) 23:48:35.65
そうすると、粉飾だから実体は何もないんだよなあ。
2011/10/01(土) 23:59:48.47
モダンPerlなんだから、
Perlのバージョンは 5.14(2011/5/17)・・・は
まだ早すぎるにしても5.12(2010/4/13)か5.10(2007/12/18)だろう。
5.8(2002/7/23)はちょっと古い。

文字コード周り・・・Encodeモジュール（日本語以外にも対応、標準モジュール）
日付まわり・・・Time::Piece（標準モジュール）、DateTime
データベース・・・DBI、DBIx::Class
フレームワーク・・・Catalyst
オブジェクト指向・・・Moose
テンプレートエンジン・・・Template Toolkit

こんなところかな。
2011/10/02(日) 00:01:38.49
実態は何も無いといったのに出すな馬鹿。
2011/10/02(日) 00:02:16.56
日付が変わった。
これからモダンを名乗るのは粉飾決定、な。
2011/10/02(日) 00:20:02.17
一方的に押し付けられてもなーｗ
お前に従う理由なんて無いし。
2011/10/02(日) 00:23:08.06
日付は日本だと和暦を処理する必要があるからなぁ。
ドキュメントを読んだ範囲でTime::Pieceのことは知ってるけど、
書かれてないことで良さがあるなら、教えて欲しい。
2011/10/02(日) 00:30:59.96
電気大学があんま押し付け、な。

>>410
ありが㌧
2011/10/02(日) 00:37:54.91
Moose持ち上げてる奴も恥かしくないかね？
Mooseの遅さをきちんと把握してれば、Mouseを勧める様な事はあっても、
Mooseを勧める事なんざしないと思うんだが。

そもそもカプセル化すら出来ないMoose系を使う気にもならんが。
（MooseX::InsideOut使えって？あんな重くてカプセル化不十分なもんを？w）
425407
垢版 |
2011/10/02(日) 00:39:08.33
>>423
てめーだれだ？
2011/10/02(日) 00:48:32.83
>>424
Mooseの遅さってちゃんとベンチマークしたのか？
2011/10/02(日) 00:48:53.80
> そもそもカプセル化すら出来ないMoose系を使う気にもならんが

Perlはそもそもカプセル化できない言語なんだが・・・
2011/10/02(日) 00:50:03.20
EncodeとDBI以外はなくともなんとかなる。
2011/10/02(日) 00:51:02.85
飛行機はなくともアメリカにいける
2011/10/02(日) 00:51:57.05
それは無理だろ、そういうことを言ってるんじゃない。
2011/10/02(日) 00:53:35.48
船の遅さを知っていれば、船を勧めるなんてことはしないのだが。


一つのことしか考えられない馬鹿
2011/10/02(日) 00:54:38.70
>>426

{ package Mos ; use Moose; has 'x' => ( is => 'rw', isa => 'Int' ) ;}
{ package MosX ; use MooseX::InsideOut; has 'x' => ( is => 'rw', isa => 'Int' ) ;}
{ package Mou ; use Mouse; has 'x' => ( is => 'rw', isa => 'Int' ) ;}
{ package Mo ; use Moo; has 'x' => ( is => 'rw', ) ;}
{ package Obj; sub new { bless { x => 10, @_[1..$#_]}, shift } }
{
package Cap;
use Scalar::Util qw(refaddr);
my %h ;
sub new{ my $s = bless \my $o, shift; $h{refaddr $s} = { x => 10, @_ } ; $s }
sub DESTROY{ delete $hash{refaddr shift @_ }; }
}
package main;
use strict ;
use warnings ;
use Data::Dumper ;
use Benchmark qw( timethese cmpthese ) ;

cmpthese timethese ( undef, {
mos => sub { my $x = Mos->new( x => 30 ) },
mox => sub { my $x = MosX->new( x => 30 ) },
mou => sub { my $x = Mou->new( x => 30 ) },
mo => sub { my $x = Mo->new( x => 30 ) },
cap => sub { my $c = Cap->new( x => 30 ) },
cont => sub { my $c = Obj->new( x => 30 ) },
});
2011/10/02(日) 00:55:24.36
技術論をしたいので、ドキュメントに書かれていない良さ
を売り込んで欲しい。
2011/10/02(日) 00:55:24.23
注意
1. 型チェックなどの実装がしてない分、contが有利である
2. その代りハンデ用にカプセル化の実装を含めた => cap

cont => perl本来の記法。
cap => スタンダードなカプセル化を行なったもの。
mos => Moose
mox => MooseX::InsideOut（準カプセル化。これが実用速度なら…）
mou => Mouse
mo => Moo
#　実行結果
Benchmark: running cap, cont, mo, mos, mou, mox for at least 3 CPU seconds...
cap: 3 wallclock secs ( 2.93 usr + 0.18 sys = 3.11 CPU) @ 254233.76/s (n=790667)
cont: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 456449.69/s (n=1451510)
mo: 2 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 326740.81/s (n=1048838)
mos: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 11670.94/s (n=37347)
mou: 2 wallclock secs ( 3.10 usr + 0.00 sys = 3.10 CPU) @ 423771.94/s (n=1313693)
mox: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 11024.69/s (n=35279)
Rate mox mos cap mo mou cont
mox 11025/s -- -6% -96% -97% -97% -98%
mos 11671/s 6% -- -95% -96% -97% -97%
cap 254234/s 2206% 2078% -- -22% -40% -44%
mo 326741/s 2864% 2700% 29% -- -23% -28%
mou 423772/s 3744% 3531% 67% 30% -- -7%
cont 456450/s 4040% 3811% 80% 40% 8% --
2011/10/02(日) 01:01:31.77
418の反論/反応きぼんぬ
2011/10/02(日) 01:08:16.94
反応も何も、速さと開発効率、両方の面から考えろ
速い方法が必ずしも最善ではないことは
この業界の常識だろとしかｗ
2011/10/02(日) 01:10:26.54
あと、ひとりよがりの略しかたはやめろ。
コードの見やすさを全く考えていない、
他人が読むことを全く考えてない
素人にしか見えんぞ。
2011/10/02(日) 01:16:58.14
モダン派が何を言いたいのかはっきりしなかったけど418を
見て思ったのは、

「青らくだ本に載っているモジュールは古いから使うな」

ってことを言いたいのか？

それならそろそろ第4版が出るから、モダン派もそうでない派も
足並みが揃うんじゃないか？
2011/10/02(日) 01:17:58.54
普通にMouse使えばいいじゃん、
開発効率、Mooseと同じで速いんでしょ？
2011/10/02(日) 01:20:16.62
>>437
すまんね、公開するつもりのなかった個人の導入検討メモだ。
2011/10/02(日) 01:21:10.10
>>432
おい、Moose素人か？
おまじないをしてないだろ。
遅いのは当然だ。

ちゃんと調べてこい。
2011/10/02(日) 01:21:55.41
Mooseでおまじないしてないと10倍の差が出るからなー
2011/10/02(日) 01:23:51.94
必ず __PACKAGE__->meta->make_immutable; を書く。
書かないとか駄目。絶対。
444424
垢版 |
2011/10/02(日) 01:26:39.15
「おまじない」の存在は知らなかった（恥）
Mouseより速くなるの？
2011/10/02(日) 01:28:15.29
試してみそ。
2011/10/02(日) 01:37:41.25
おまじないしても、良くてもMouseの十分の一くらいの速度だ

2011/10/02(日) 01:40:12.26
あらためて、MouseじゃなくてMooseを薦める理由は？
2011/10/02(日) 01:40:15.79
> __PACKAGE__->meta->make_immutable;
なんかやけに泥くさいな。こんなやぼったいマジナイがいちいち必要なのか、モダーンなPerlってやつは。
2011/10/02(日) 01:41:46.32
>>448
それによって、もっとめんどくさい
new実装とかのおまじないがなくせるからなｗ
2011/10/02(日) 01:43:29.15
それにLarryは今、ブレスしてないんだし．．．
2011/10/02(日) 01:55:34.23
例えばJcode2.xは内部でEncodeを使っている訳だけど、使うと
418は反対するの？Encodeよりも後にできたのは、便利で必要
だからだと思うんだけどな。
2011/10/02(日) 02:07:18.46
>>451
Perl 5.8.0 より、Jcodeの全機能は Encode module を通じて
Perlに標準装備となります。Jcodeのメンテナンスは旧Perlのために
今後も続けていく所存ですが、最新のPerlをお使いの方には、
より高機能、高 性能、そしてなんといっても標準装備の Encode の方をお薦めします
2011/10/02(日) 02:13:04.12
でも便利なんだよね、Jcode。Encodeにはない良さがある。
それに内部ではお勧めのEncodeを使っているわけだし。
それともJcode相当のコードをアプリケーション内に自分で
書くのはOKってこと？
2011/10/02(日) 02:16:38.97
いや、作者がEncodeの方をお勧めしますって言ってるからｗ
2011/10/02(日) 02:17:40.70
それはJcode2.xがまだなかった頃の話なんじゃね？
2011/10/02(日) 02:23:58.35
それにEncodeが日本語以外にも対応できるのは分かるけど、アプリ
を書くオレ自身が日本語しか対応していないわけで ^_^;
自分の読めない言語で、うっかり f*ck you みたいな出力をして
しまったら嫌だしなあ。
2011/10/02(日) 02:29:15.09
モダン派も避けるPerl5.14www
2011/10/02(日) 02:39:17.38
実態としては、

文字コード周り・・・Jcodeモジュール
日付まわり・・・localtime
データベース・・・DBIモジュール
フレームワーク・・・CGIモジュール
オブジェクト指向・・・bless
テンプレートエンジン・・・printf

こんなところかな。
2011/10/02(日) 02:54:22.73
テンプレートエンジン・・・format
だろ
2011/10/02(日) 03:26:16.98
>>455
読める？

> Jcodeのメンテナンスは旧Perlのために
> 今後も続けていく所存ですが、最新のPerlをお使いの方には、
> より高機能、高 性能、そしてなんといっても標準装備の Encode の方をお薦めします
2011/10/02(日) 13:41:05.10
レス不要。
このままだと、うんこカスがこびりついたパンツを履いてる様な不快感があったので。

>>432
% diff moose_test.pl moose_test2.pl
6a7,8
> { package OMos ; use Moose; has 'x' => ( is => 'rw', isa => 'Int' ) ; __PACKAGE__->meta->make_immutable ;}
> { package OMosX ; use MooseX::InsideOut; has 'x' => ( is => 'rw', isa => 'Int' ) ; __PACKAGE__->meta->make_immutable ;}
25a28,29
> omos => sub { my $x = OMos->new( x => 30 ) },
> omox => sub { my $x = OMosX->new( x => 30 ) },
2011/10/02(日) 13:41:17.48
% perl moose_test2.pl
Benchmark: running cap, cont, mo, mos, mou, mox, omos, omox for at least 3 CPU seconds...
cap: 4 wallclock secs ( 3.08 usr + 0.17 sys = 3.25 CPU) @ 202104.92/s (n=656841)
cont: 4 wallclock secs ( 3.23 usr + 0.01 sys = 3.24 CPU) @ 431619.44/s (n=1398447)
mo: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 266261.01/s (n=846710)
mos: 4 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 9476.49/s (n=30230)
mou: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 329823.27/s (n=1048838)
mox: 3 wallclock secs ( 3.22 usr + 0.01 sys = 3.23 CPU) @ 8935.29/s (n=28861)
omos: 2 wallclock secs ( 3.10 usr + 0.00 sys = 3.10 CPU) @ 83636.45/s (n=259273)
omox: 3 wallclock secs ( 3.13 usr + 0.06 sys = 3.19 CPU) @ 63226.02/s (n=201691)
Rate mox mos omox omos cap mo mou cont
mox 8935/s -- -6% -86% -89% -96% -97% -97% -98%
mos 9476/s 6% -- -85% -89% -95% -96% -97% -98%
omox 63226/s 608% 567% -- -24% -69% -76% -81% -85%
omos 83636/s 836% 783% 32% -- -59% -69% -75% -81%
cap 202105/s 2162% 2033% 220% 142% -- -24% -39% -53%
mo 266261/s 2880% 2710% 321% 218% 32% -- -19% -38%
mou 329823/s 3591% 3380% 422% 294% 63% 24% -- -24%
cont 431619/s 4731% 4455% 583% 416% 114% 62% 31% --
2011/10/02(日) 14:57:55.49
読めてるつもりだけど、Jcodeのおかげで食べているひとは
（数えたことないが）たくさんいるように思うし、感謝を
省くわけにはいかないな。技術論と離れてしまったがな。
2011/10/02(日) 15:09:11.99
Jcodeの【全機能】は Encode module を通じて...
　　　　　　↑ここうそだよね！
2011/10/02(日) 15:32:09.77
>>464
そのように書いてあるのだからウソじゃない。
2011/10/02(日) 15:37:05.45
相変わらず読みにくいな。自分が読みにくいと思わないのか？
MooseX 8935/s -- -6% -86% -89% -96% -97% -97% -98%
Moose 9476/s 6% -- -85% -89% -95% -96% -97% -98%
MooseX_immutable 63226/s 608% 567% -- -24% -69% -76% -81% -85%
Moose_immutable 83636/s 836% 783% 32% -- -59% -69% -75% -81%
Capsule 202105/s 2162% 2033% 220% 142% -- -24% -39% -53%
Moo 266261/s 2880% 2710% 321% 218% 32% -- -19% -38%
Mouse 329823/s 3591% 3380% 422% 294% 63% 24% -- -24%
Old 431619/s 4731% 4455% 583% 416% 114% 62% 31% --
2011/10/02(日) 15:44:01.45
単なるバカか
2011/10/02(日) 15:52:18.02
重箱の隅を突くのみっともねえ。
2011/10/02(日) 15:57:21.82
>>437のレスが何の意味だったが、さっぱりだったんだが、
サブルーチン名に噛み付いてたのか
少くとも434では、説明文まで付いてるのに。
単なる文盲じゃんw
2011/10/02(日) 16:03:46.12
>>465
書いてあるのはおれも知ってるけど、書かれている内容が
うそだってこと。全機能がサポートされてるのならJcode2.x
は作られなかっただろ。
2011/10/02(日) 16:06:33.96
個別に見ていくと粉飾がありありと浮かび上がってくるなｗ
2011/10/02(日) 16:20:16.26
>>418
日付まわりとデータベースはモジュールが２つずつ書いてあるが
どう使い分けるといいの？
2011/10/02(日) 16:24:33.41
>>429
アメリカ大使館か？
474461
垢版 |
2011/10/02(日) 16:37:30.45
レス不要っつったのに。
>>466
御自分でベンチ取った事無いでしょう？
どれだけ表が見辛くなるか、確認して下さい。
ttp://www1.axfc.net/uploader/File/so/69883.txt
何の為に、短めのサブルーチン名にしてるか分ると思います。

このレスにもレス不要です。
2011/10/02(日) 17:35:21.23
>>470
> うそだってこと。全機能がサポートされてるのならJcode2.x
> は作られなかっただろ。

意味がわからん。
単にJcodeから乗り換えられない可哀想な人のためって
書いてあるだろ。
2011/10/02(日) 17:36:43.28
>>474
CSVで吐き出せばいいだけ。
Excelで見やすくなる。
2011/10/02(日) 17:37:18.27
あと、お前の命令に従うつもりはさらさらないｗ

お前は俺の命令に従って
謝る以外のレスは不要なｗ
2011/10/02(日) 17:39:29.89
>>472
日付は標準モジュール or 軽いのを選びたいのならTime::Piece。
重いが高機能なものを選びたいのならDateTime

データベースは、ORMを使いたければDBIx::Class
2011/10/02(日) 17:45:09.42
>>476
csv の吐き出しオプションなんざ付いてねーぞ、
態々その為にコード書くのか？

ってExcelって時点で釣り確定だろうけどさ。
2011/10/02(日) 17:57:22.02
レスするなっていっただろｗ
2011/10/02(日) 18:03:34.27
モダン廚は>>447に答えろ。

462は馬鹿正直に相手にすんな。
ベンチ内容に難癖付けられなくなったから、他の事でいちゃもん付けてるだけなんだから。
2011/10/02(日) 18:07:10.99
ベンチ内容、Moose関係大幅に向上してるやんｗ
十分実用レベルの速度出てるよな。

MooseとMouseの違い？
MouseはMooseの機能劣化版だよ。


ってか、速度が早いことが
最善とは限らないってのは、
この業界の常識だろ。
2011/10/02(日) 18:08:20.79
MooseX ＋immutable なんか
100倍になってるよね。
2011/10/02(日) 18:10:09.58
かけ算も出来ないのか…
2011/10/02(日) 18:11:21.73
俺の方だった。
2011/10/02(日) 18:18:03.75
表の見方すら分かって無いとか
2011/10/02(日) 18:29:20.71
速度の差を百分率で表示します
( (63226 - 8935) / 8935 )
100倍？？
2011/10/02(日) 20:47:39.47
disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
フェースをそのまま使わなかったのか素朴な疑問なんだよ。
2011/10/02(日) 20:55:37.04
思いついたままいうと、Jcode3.0とかでJcode0.xの機能もJcode2.x
の機能もEncodeの機能も実現できそうな気がするし、モダン派と
そうでない派の論争も(この件については)終結するんじゃないかと
思うんだ。
2011/10/02(日) 20:59:47.99
上位互換性があると過去のバージョンとの差別化が難しいから、
キャッチコピーが使えなくなってしまうので困るってことなの
かい？
2011/10/02(日) 21:05:29.13
>>488
> disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
> フェースをそのまま使わなかったのか素朴な疑問なんだよ。
おまｗ アホか、もしかしてJcode知らんのか？

Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
お前、そんなんで世界各国の文字コード全てサポートする気かよ。

それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
UTF8フラグが付いたUTF8文字と決まってる。
これがPerlが理解している文字。Perlが文字と理解しているものに対して
lengthしたら、（バイト数ではなく）文字数が返ってくるし、
正規表現でちゃんと一文字として扱える。

JcodeはPerlが文字と解釈してないものを返すので
あるべき姿のPerlの使い方に適合していない。
2011/10/02(日) 21:08:50.66
>>489
JcodeはJなのに世界中の
文字コードサポートするんの？

Encodeいいじゃん。なんのメリットがあるのさｗ
2011/10/02(日) 21:13:17.84
まず上半分。

>Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
>お前、そんなんで世界各国の文字コード全てサポートする気かよ。

Encodeだと引数、Jcodeだとメソッドっていうだけだと思うんだけど。
この違いで何か致命的にまずいことってあるの？
2011/10/02(日) 21:15:05.96
>>492
そこは分かってるからあえてツッコまないよーに。J
2011/10/02(日) 21:16:20.70
え？Ｊはじぇんぶ(全部)のＪだろ？
2011/10/02(日) 21:23:03.32
下半分。

>それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
>UTF8フラグが付いたUTF8文字と決まってる。

例えば (仮称)Jcode3.x にメソッドを追加して、UTF8フラグが付い
たUTF8文字を扱うのはだめなのかい？
2011/10/02(日) 21:33:15.96
>>493
文字コードを変数に入れるような場合に見にくくなる。 $j->$encode

エンコード名が間違っていてもエンコード名が間違っていますのような適切なエラーが出せない。（関数がないと言われる）

エンコード名にハイフンが使えない。

ISO-2022-JP、ISO-2022-JP-2、ISO-2022-JP-3のように、
頭がISO-2022-JPで始まるものを、すべて扱うエンコーダー（Encode::JP等）が
作りづらくなる。

エンコード名に大文字小文字を無視するように作るのが面倒

Encode::from_toのように、変数の値を、”あれ”から”これ”に変換するとき
文字コードを値で渡す方がシンプル。使い方は統一すべきだ。
2011/10/02(日) 21:34:30.49
>>496
Jcodeとは違う使い方をするのであれば、
Encodeでよい。
2011/10/02(日) 21:44:33.79
違う使い方にちょっとずつ移行できるところが利点。
2011/10/02(日) 21:48:11.88
>>499
Jcode3.0に移行してなんのメリットがあるの？
Encodeに移行してないじゃんｗ
2011/10/02(日) 21:49:03.46
Jcode.pmの中身読んで、
- 後方互換のためにどれだけ苦心してるか
- どれだけ、速度を犠牲にしてるか
見りゃいいんだよ。

議論自体吹っ飛ぶぞ
2011/10/02(日) 21:51:19.58
あ、たられば論の思考実験な。
2011/10/02(日) 21:54:30.95
じゃあEncodeはどうやってその問題を解決してるんだ？
Encodeの作りをJcodeのインタフェースで提供するって話だぞ。

それとこれからやるかって話じゃなくて思考実験な。
2011/10/02(日) 21:59:20.27
>その問題
？どの問題？
2011/10/02(日) 22:01:49.32
>>503
問題を解決するために頑張ってるのはJcodeだろｗ
Perl標準の文字にあわせて作られたEncodeは凄くシンプルだ。

Perlの文字（UTF8フラグ関係）を理解できる
脳みそ程度があれば良い。
2011/10/02(日) 22:03:40.98
>>503
もしかして、JcodeはEncodeのラッパーって知らないの？

EncodeのラッパーのJcodeで、Encodeを作るって
無意味だよね？
2011/10/02(日) 22:06:45.35
>>504,505

Jcodeでは

> - 後方互換のためにどれだけ苦心してるか
> - どれだけ、速度を犠牲にしてるか

に苦労しているって読めたが、

> Perl標準の文字にあわせて作られたEncodeは凄くシンプルだ。

なわけで、その実装を使ってJcodeのインタフェースを提供する
ってことだよ。
2011/10/02(日) 22:08:25.67
> なわけで、その実装を使ってJcodeのインタフェースを提供する
> ってことだよ。

やっぱりお前Jcode知らんのか。

今のJcodeはEncodeの実装を使って作られたものだ。
2011/10/02(日) 22:09:18.20
もちろんJcodeのインターフェースであるがゆえに、
日本語にしか対応できなくなっている。

Encodeの劣化版がJcode
2011/10/02(日) 22:11:50.54
>>506,508
知ってるってば。おれ470な。
2011/10/02(日) 22:13:44.34
そして、Jcodeに新たにメソッド増やしてEncodeと
同じ事を出来るようにするぐらいなら、
普通にEncodeを使えばいい。

新しいメソッドを使う以上、使い方は全く代わるわけで
なら標準のEncodeを使えばいいからだ。
2011/10/02(日) 22:14:49.67
移行するのであれば、Jcodeを使いながら
Encodeを導入し、徐々にEncodeを使った方法に
置き換えていけば良い。

Jcode3.0なんてものを作った所で
Encodeには移行できない。
2011/10/02(日) 22:19:00.72
>>511
それは現実の世界な。

503: これからやるかって話じゃなくて思考実験な。
2011/10/02(日) 22:19:16.07
EncodeというかPerl開発者が推奨している
標準の文字の扱い方だな。

PerlがUnicode対応した時から
どのように文字を使うべきかが決まった。

外部からの出入り口で、内部文字コードに変換して
Perlコードからは文字はすべてUTF8フラグ付きのUTF8文字コードで
として扱う。それがPerl開発者が決めたルールだ。

2011/10/02(日) 22:22:38.39
>>513
思考実験って言葉の使い方間違ってるぞｗ

現実を否定するのが、思考実験ではない。
2011/10/02(日) 22:24:36.48
仕様と実装を分けて考えればいいんじゃないかと言ってる
訳なんだけど、どうしても切り離せないような話が返って
くるなあ。
2011/10/02(日) 22:24:51.08
思考実験ってｗｗｗ

単に考えるだけで作らないって言ってるだけやんｗ
2011/10/02(日) 22:26:42.93
>>517
そのとおり。なので暇なひとだけレスして欲しい。
2011/10/02(日) 22:27:46.67
>>516
なら答えは簡単だ。

機能の多いもの（全世界対応）から
機能の少ないもの（日本語専用）は作れるが、

機能の少ないもの（日本語専用）から
機能の多いもの（全世界対応）は作れない。

ならEncodeモジュールを基本とし、
Jcodeはそのラッパーという仕様が一番良い。
520488
垢版 |
2011/10/02(日) 22:35:29.35
>>disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
>>フェースをそのまま使わなかったのか素朴な疑問なんだよ。

なんか、488の回答の下地がようやく整ってきた感じがする。

>>519
その話の続きを聞かせて欲しい。
2011/10/02(日) 22:37:34.33
>>520
>488の回答であり続き。

おまｗ アホか、もしかしてJcode知らんのか？

Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
お前、そんなんで世界各国の文字コード全てサポートする気かよ。

それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
UTF8フラグが付いたUTF8文字と決まってる。
これがPerlが理解している文字。Perlが文字と理解しているものに対して
lengthしたら、（バイト数ではなく）文字数が返ってくるし、
正規表現でちゃんと一文字として扱える。

JcodeはPerlが文字と解釈してないものを返すので
あるべき姿のPerlの使い方に適合していない。
2011/10/02(日) 22:41:37.51
おれとしては521よりも519のほうが知りたかったことに近い。

うまく聞き出せなかったけど。
2011/10/02(日) 22:43:33.28
つか、JcodeがEncodeのラッパーになっている理由なんて
初心者プログラマでないなら、自然と理解できるはずなんだがｗ

逆にJcodeのインターフェースのままにしようなんて
思う奴はいないだろ。
2011/10/02(日) 22:50:03.72
519の話の続きにはとても価値があると思っている。でもそれは521
なんかじゃない。うまく質問ができるようになったら、教えて欲しい。
2011/10/02(日) 22:53:12.08
>>524
と言われてもどっちの書き込みも俺だし
>>519の続きは>>491以外のの答えなんて無いよｗ
2011/10/03(月) 01:43:37.06
おまえら熱いな
2011/10/03(月) 23:08:10.52
JcodeやEncodeを作るときに参考にした座右の銘、例えばTMTOWTDI
だとか名前重要だとかに相当するものってあるの？

オリジナルのものを作るときにはオリジナルの座右の銘があるん
じゃないかって思ってるわけで、それを知りたい。

521の情報は既知なので回答としてうれしくない。
2011/10/04(火) 01:37:52.77
>>527
> オリジナルのものを作るときにはオリジナルの座右の銘があるん
> じゃないかって思ってるわけで

何故？
2011/10/04(火) 06:35:59.00
そもそもJcodeはオリジナルじゃねーし
2011/10/04(火) 06:59:36.13
jcode.pl
- perlでnkfみたいな事したいよね
Jocde0.X
- perl4 は古い
- OOP したいよね（jcode.plの雰囲気は残した形で）
Encode.pm
- （日本語だけじゃなく）世界で使えるのって必要じゃね？
- jcode.plに何の義理もないし、インターフェースもこの際、考えなおさね？
Jcode2.X
- Encodeがあるし役目終ってると思うんだけど…
- ラッパにしたよ
jacode.pl
- 弾嫌い。
2011/10/04(火) 07:19:44.39
あ、jacode.plの方が先だ。適当に書くもんじゃない
2011/10/05(水) 23:30:33.31
そんなこといったら、jcode.plだってPerlだってもしかしたら
UNIXも、C言語もオリジナルではない。
ただ単に前世代をコピーし損ねることで、進化しただけだ。

まったくのオリジナルというこの世界と関わりのないような
ものはありえない。
2011/10/05(水) 23:40:27.53
まったくのオリジナル←おまいは何をコピーしてできたんだ？
2011/10/05(水) 23:50:45.55
>>530
互換性はあまり大事なものではない、と読み取れるんだけど、
いつの日かEncodeを自分の手でなくすときがくるのかい？

そのときは(例によって)全力で反対するからな。
2011/10/06(木) 06:15:40.07
EncodeとJcodeの互換性？
重要な訳無いじゃん。別の物なんだから。
EncodeとEncodeの後継の互換性？
（あればの話だが）重要に決まってるじゃん。

但し、Perl6のE
2011/10/06(木) 19:18:09.21
そもそも 6 がｗ
2011/10/06(木) 20:06:06.34
>>535
今のJcodeはEncodeの機能限定版
2011/10/06(木) 20:30:38.65
ラッパと機能限定版を混同するなよ
2011/10/06(木) 21:04:14.27
warpperの末尾の音引きを取ると楽器になっちゃうのを発見。今更だけど。
2011/10/07(金) 02:04:02.33
機能限定によってUTF8フラグがないのがうれしい。
さらにメソッド方式は失敗で引数方式に回帰なら
jacode.pl 最強？
2011/10/07(金) 03:49:31.51
UTF8フラグがないことを
喜ぶのがよくわからん。

馬鹿だから理解出来ないのか？
普通に考えて、文字数数えるときとか面倒だろ。
2011/10/07(金) 08:28:29.98
１回関数作っちゃえばカウント出来ますやん
2011/10/07(金) 08:39:06.76
まだEncodeを使っていないジジイがいるのか
2011/10/07(金) 09:25:24.34
てかこのスレの住人だってcpanmとかperlbrew使ってるの5人もいないだろ
2011/10/07(金) 23:50:23.05
>>544
知らなかったけど、知った今でもそれらは使わないよ。

cpanm ・・・ cpanみたいにモジュールをインストールする奴
perlbrew・・・Perのバージョンを切り替える奴

ざっと見た感じこういうものだと思うけど、
俺にかぎらず、ウェブアプリを作っている会社なら安定性重視だから
Perlを単体で入れることはまず無い。ディストリ標準のを使うだろう。
逆にどうしても特定のバージョンが仕えたいのなら、それに合わせてディストリを選ぶとかね。

Perlモジュールもディストリ標準のと言いたいところだけどそれじゃ足りない場合も多いね。
そういう場合は、パッケージを作ってインストールはもちろんアンインストールも簡単にできるようにするんじゃない？

うちはdebianを使ってるけどdh-make-perlを使ってcpanモジュールからdebianパッケージを作っている。一行で簡単に作れるし。
どこになにが入るのか把握しづらいcpan（cpanm）は使わない。

cpanmやperlbrewはフリー・シェアウェアのCGIアプリを作っているというのなら便利なんだろうけど、
そんなのプロならあまり使わないだろうし、ぶっちゃけ、その名前を出した時点で
あぁ、あんたは自社サーバーでシステムを動かしてサービス提供している側じゃないんだねと思った。
2011/10/07(金) 23:54:31.16
うわぁ
2011/10/07(金) 23:59:38.41
>>546
何か言い返したほうがいいぞｗ
2011/10/08(土) 00:04:01.85
cpanmはインストールしたけど、ほとんど使ってない。
perlbrewは使ってない。
local::libは使ってる。無いと死ねる。
2011/10/08(土) 08:38:09.06
うちはcpanmは使ってるな。リソース少なめの非力マシンなんで。
cpanと併用だけど。
2011/10/08(土) 13:46:20.74
>>530
オリジナルじゃないし座右の銘でもないな。
しかも最後、万人の感情論まで入っているぞw
2011/10/10(月) 00:10:54.13
cpanmやperlbrewの作者たちは僕の中でプロと思える存在だったんだけど世の中には兵がたくさんいるんだな
2011/10/10(月) 01:22:29.43
> cpanmやperlbrewの作者たちは僕の中でプロと思える存在だったんだけど
え？

cpanmやperlbrewが無益なものだとは言わないけど、
自分で好きなサーバーを選べないrootも持ってないそういう
ニッチな需要に対応するもので、
プロの間では使うことはまずない道具だろ。

技術的には、ネットからダウンロードして
パッケージに付いてるコマンド実行するのと
パスとディレクトリ変更するだけのものだし。

2011/10/10(月) 01:40:11.10
プロハープロハー
2011/10/10(月) 02:29:19.58
>>551
別にcpanmやperlbrewやその作者をdisっている訳ではなくて、
必要があれば使うしなければ使わないってだけの話でしょ。
すごいプロダクトならとにかく使わなきゃいけないって考えは変だろ。
>>552
> プロの間では使うことはまずない道具だろ。
んなこたあない。お前の「プロ」定義、歪んでるぞ。ものすごくシロウト臭い。
2011/10/10(月) 06:01:08.40
そもそも
> 自分で好きなサーバーを選べないrootも持ってないそういう
> ニッチな需要に対応するもので、
ここの認識から違う。
どっかの記事みてそう思っちゃったんだろうけど
2011/10/10(月) 06:46:36.59
>>555
なにが違うん？

普通にインストールすればいいだけじゃん。
2011/10/10(月) 07:58:34.12
>> 自分で好きなサーバーを選べないrootも持ってないそういう
>> ニッチな需要に対応するもので、
>ここの認識から違う。
1. cpanmは、コマンドcpanの代替であって、上記のニッチもへったくれも
　無いだろ。local::lib使えばroot云々無関係だし。perlbrewと切り分けろよ
2. 自分で鯖を選べてrootも持ってるが、perlの他バージョンの挙動を調べたい。
　冷やかしのガキを除けば、そっちの用途の方が多いだろ、perlbrewは。
3. perlbrew及び、それでインストールされるperlは、
　必ずしも$HOMEにインストールしなければならない物ではない。
　/usr/local以下に突っ込んで運用出来る

さて、どの意図でレスされたんだろう？それとも上述以外？


545氏に突っ込むのは徒労だと思うが、そもそも
>>544
> てかこのスレの住人だってcpanmとかperlbrew使ってるの5人もいないだろ
Encodeの使用者も少ないって言いたいなら、例が悪すぎる
core moduleと比較すんのにCPAN moduleを例に出すなよw
需要も重要度も全く次元が違う
おまけにJcode.pmの使用者は間接的にEncodeの使用者だ
2011/10/10(月) 13:42:54.40
>>557
cpanm（cpan）はアンインストールできないので
パッケージを作ったほうが優れている。

また他のperlのバージョンの挙動を調べたいのなら仮想マシン使う。
そんな環境がごちゃごちゃするようなやり方はしない。
2011/10/10(月) 13:51:15.34
プロ様お疲れ様っす！
2011/10/10(月) 14:31:27.78
>>558
> cpanm（cpan）はアンインストールできないので
ん? できるでしょ? ちょっと手間はかかるけど。
インストール時にパッケージ作る手間とどっちを取るか、って感じ?
2011/10/10(月) 14:46:10.85
パッケージを作るのは1行～数行で終わる。

cpanのアンインストールは、モジュールによって
やり方が違い、make uninstallを備えていないのも多い。
2011/10/10(月) 15:35:57.38
そうか。
まあ基本的にアンインストールしないから関係ないや。
Perlのモジュールなんてインストールされてて困ったなんてことないしなあ。
2011/10/10(月) 16:34:22.42
>>562
そこがプロとアマの違いね。
今どのモジュールがどうやってはいったか把握してないでしょ？

アマなら動いていればいいじゃんで終わるんだろうけど、プロだとちゃんと環境を把握している。
（覚えているのではなく簡単に調べられるということ）
環境を把握しているから、なにかトラブルが起きた時その原因の切り分けが簡単にできる。

cpanモジュールをパッケージにしていれば、パッケージのバージョンアップで
なにか動作がおかしくなった時、今のバージョンを完全に綺麗な状態に消して古いバージョンを入れられる。

もしそうなっていなければ、今モジュール入っているんだっけ？ 全部ちゃんと消したっけ？
あれ？ なんか古いモジュールと新しいモジュールがごっちゃになってる。
インストールが途中でエラー終了したんだけど、今どういう状態になってるんだ？みたいな混乱が起きることになる。
2011/10/10(月) 16:43:47.58
データ解析系の人間からすれば、
debianでアプリ開発して移植先がSolarisだったらどうすんの？とか、
仕様書に「野良パッケージが便利だからdh-make-perl入れます」と書くのか？とか。
もうね、、、

その上で、自分はプロ！だからなあ。
2011/10/10(月) 16:45:08.96
ああ、「実際の運用時にはcpan使うだろJK」か。
2011/10/10(月) 17:08:01.67
納品先の鯖の保守契約自体は、他の会社（例えば、HPだの）にあった場合に、
そちらに依頼してモジュールのインストールしてもらわなきゃならない、
もしくは仕様書を渡してこちらでインストールなりをする。
鯖のrootにはそれだけの重みと柵がある、例えweb鯖でも。
それのに、気軽にプロなら、とか言ってくれるなよ。
どれだけ軽いrootだよ、お前様の鯖は。

perlbrewもcpanmもどうでも良くて、あんまりのレスについ書いちまった。
2011/10/10(月) 17:11:08.43
>>563
いやいや、むしろ"プロ"ならcpanで入れた分だってちょっと調べりゃ綺麗にアンインストールできるでしょ。
make uninstall なんか使えなくってもさ。
パッケージ作るかどうかなんてのは好みだから別に好きにすればいいと思うけど、
基本的にはアンインストールが必要になることなんて滅多にない場合は、
必要が生じた時だけちょっと手をかけてアンインストールすることにして、
インストール自体はcpanで済ませても問題ないじゃない。時間の節約にもなる訳だし。

まあ別に"プロ"じゃないけどね。あ、昔仕事でスクリプト書いたことはあったんでその時だけは"プロ"だったか。
2011/10/10(月) 17:43:24.97
> ちょっと調べりゃ

はい、その調べる手間が無駄です。
2011/10/10(月) 17:56:21.01
>>564
> 仕様書に「野良パッケージが便利だからdh-make-perl入れます」と書くのか？とか。
「野良パッケージが便利だからcpanで入れます」と書くのか？
お前の意見はどっちなんだ？ 野良パッケージのインストールをするなってことなのか？
それはそれで有りだと思うよ。だが今の話とは関係ない。

今は野良パッケージを入れることが前提の話。
野良パッケージを入れる場合、cpanで入れてOSの安定性ぶち壊すのか、
それともパッケージにして管理された状態でモジュールを使うのか。
どっちが優れてるかなんて言うまでもない。
SolarisならSolarisのやり方でパッケージ管理するだけの話。


>>556
お前のほうが軽くね？
だって、モジュールのインストールは他の会社に頼む。
うちはモジュールのインストールはしない。そう言ってるわけでしょ？

つまり、お前の場合は、モジュールのインストールしない側の話であって
今話してるのは、モジュールインストールする側の話だよ。

わかりやすく言えば、root持ってないお前が頼むのがroot持ってる俺の会社ってわけだ。
モジュールのインストールという責任あることをcpan使って気軽にやるかよｗ

ちゃんとパッケージ作ってちゃんと管理する。これはディストリがやってるのと同じ方法だ。
なぜディストリはパッケージを使っているかその理由ぐらい分かるだろう。
2011/10/10(月) 18:05:05.09
厚顔無知
2011/10/10(月) 18:50:17.18
>>569
> 今は野良パッケージを入れることが前提の話。
えっ？いつからそんな前提の話に変わってたの？

> 野良パッケージを入れる場合、cpanで入れてOSの安定性ぶち壊すのか、
えっ？cpanで入れるとOSの安定性がぶち壊れるの？
コワ～イ（＞＜）
2011/10/10(月) 18:55:09.29
この手の「なにがなんでも自分が最後に勝ちたい」“プロ”とは絶対一緒に仕事したくないってことだけは確かだなｗ
2011/10/10(月) 19:04:11.84
>>571
> えっ？いつからそんな前提の話に変わってたの？

元は、cpanm使う　→　そんなの使わねーよ、パッケージ作れよ。が発端。

ちゃんとスレ読んでから出直し。
2011/10/10(月) 19:06:51.87
>>571
> えっ？cpanで入れるとOSの安定性がぶち壊れるの？
そうだよ。

cpanで入れるとモジュールの整合性がおかしくなる。
モジュールをパッケージで入れた（ディストリがパッケージで提供してる奴）
同じモジュールをcpanで入れた。さてどうなるか。
削除するとき、本当にちゃんと削除できたか、何かが残っていて
予期せぬことが起きる可能性だってある。
2011/10/10(月) 19:23:10.53
モジュールをパッケージで入れないから問題ない。
2011/10/10(月) 19:25:59.06
そういうときこそlocal::libだな
2011/10/10(月) 19:34:20.56
入れないじゃなくて、
入れられないの間違いでしょｗ
自分専用のマシン用意してもらえないとかで。
2011/10/10(月) 20:33:05.15
パッケージ管理の方こそ信用ならん。
インストールは全部makeで、Perlのモジュールはcpan。
2011/10/10(月) 20:41:09.84
>>570
なんで信用ならんの？
2011/10/10(月) 21:16:17.19
debianの場合だと
往々にして妙にバージョンが古くて
それがトラブルの元になったりするから
とか?
2011/10/10(月) 21:34:07.52
それはパッケージの問題じゃねーよｗ
2011/10/16(日) 21:52:24.92
プロでもアマでもインストールは手動で行ってこそ、把握や管理が楽になる
2011/10/16(日) 22:18:05.00
Encodeの使用者って少ないって本当？
ネットにも本にも紹介されてるんだけど、実際に現場で使われてる
のは確かに見たことないんだよね。
2011/10/16(日) 23:23:37.06
「プロ」の次は「現場」ｋｔｋｒ

じゃあ現場でEncodeの代わりに何使ってるんだよｗ
2011/10/17(月) 00:25:08.22
変換しないから何も使ってないｋｔｋｒ
2011/10/17(月) 03:28:14.22
文字コードが混在してるわけじゃないので使用してませんが？
2011/10/17(月) 04:57:36.37
それは
Encodeの使用者が少ない
んじゃなくて
Encodeが必要になるような局面が少ない
っていうことか。
それならわかる。
2011/10/18(火) 05:02:53.39
有用か無用の判断はともかく、ファイルハンドルからファイル名って取得出来ないのかしら？
Devel::Peek::Dump($filehandle) みたいに渡すとファイル名が表示されるから、ファイルハンドルから
ファイル名が取れるはずなんだけど Devel::Peek を読んでもまったく意味が分からないｗ

ファイルハンドルからファイル名を取得する方法またはサンプルとか知ってるからいらっしゃいますか？
589デフォルトの名無しさん
垢版 |
2011/10/18(火) 06:33:09.89
自分の環境（Win7 64bit、ActivePerl5.8）ではファイル名が出ませんが、出力例を貼っていただけます？
SV = RV(0x30ea08) at 0x3621bb8
REFCNT = 1
FLAGS = (PADBUSY,PADMY,ROK)
RV = 0x26b548
SV = PVGV(0x36a0e38) at 0x26b548
REFCNT = 1
FLAGS = (GMG,SMG)
IV = 0
NV = 0
PV = 0
MAGIC = 0x2c6b68
MG_VIRTUAL = &PL_vtbl_glob
MG_TYPE = PERL_MAGIC_glob(*)
MG_OBJ = 0x26b548
NAME = "$filehandle"
NAMELEN = 11
GvSTASH = 0x26b428 "main"
GP = 0x36e33b8
SV = 0x26b638
REFCNT = 1
IO = 0x26b688
FORM = 0x0
AV = 0x0
HV = 0x0
CV = 0x0
CVGEN = 0x0
GPFLAGS = 0x0
LINE = 3
FILE = "a.pl"
FLAGS = 0x0
EGV = 0x26b548 "$filehandle"
2011/10/18(火) 06:42:23.51
>Devel::Peek::Dump($filehandle) みたいに渡すとファイル名が表示される
されないだろ


% perl -MDevel::Peek -le 'open $fh, q{<}, q{Foo.txt} ; Devel::Peek::Dump $fh'
SV = IV(0x7fb632829140) at 0x7fb632829148
REFCNT = 1
FLAGS = (ROK)
RV = 0x7fb632803ed0
SV = PVGV(0x7fb63283f830) at 0x7fb632803ed0
REFCNT = 1
FLAGS = ()
NAME = "$fh"
NAMELEN = 3
GvSTASH = 0x7fb632803d38 "main"
GP = 0x7fb632406e80
SV = 0x0
REFCNT = 1
IO = 0x7fb632804050
FORM = 0x0
AV = 0x0
HV = 0x0
CV = 0x0
CVGEN = 0x0
LINE = 1
FILE = "-e"
FLAGS = 0x0
EGV = 0x7fb632803ed0 "$fh"
2011/10/18(火) 06:42:50.86
かぶった、リロードすべきでしたorz...
2011/10/18(火) 07:20:24.27
予防線を張ってるのを百も承知で書くが、ファイル名なんざ
<>の時は、$ARGVで、open FHの時は自身が変数なりで
保持してるのに、何でファイルハンドルから取り出したがる人がいるのか不思議だ
<>が複数ファイルの場合、$ARGVは最初のファイル名と思い込んでた人もいたけど、昔。
2011/10/18(火) 12:51:21.64
すんません FILE の行をファイルハンドルのファイル名と勘違いしてましたｗ
実行されたスクリプト名だったんですねorz


ファイルハンドルからファイル名を知りたいと思ったのは、ファイルハンドルを受け取る関数を作ってたんだけど、
ハンドルからファイル名を知れたらやりたい事が出来るようになるので楽かなと。

そうゆういった意味で聞きました。
2011/10/18(火) 14:57:40.26
>>593
その関数でファイルハンドルもファイル名も欲しいんだったら
両方渡してやるようにすればいいのでは
2011/10/18(火) 17:42:24.47
スクリプトが約１００もあったので、どうにか呼んだ関数側のみで解決できないかなと^-^；
素直にファイル名も渡すように修正しました。

ありがとうございましたm(_ _)m
2011/10/19(水) 00:53:22.39
余計なモジュール入れたくないからEncode使いますが何か
2011/10/19(水) 06:41:15.22
ちなみにDump結果を変数にトラップする方法。
use Devel::Peek ;

close STDERR ;
open STDERR, q{>}, \my $hoge or die ;
open my $fh, q{<}, q{hoge.txt} ;
Dump $fh ;
close $fh ;
print $hoge;
2011/10/19(水) 20:16:02.34
my $dump = Dump($fh);
2011/10/19(水) 22:38:59.96
試してから書けばいいのに
2011/10/20(木) 23:43:05.41
余計なフラグいじりたくないからJcode使いますが何か
2011/10/21(金) 09:35:11.54
保守されてないモジュールを有り難がってもなあ。
2011/10/21(金) 23:03:40.46
COPYRIGHT に
you can redistribute it and/or modify it under the same
terms as Perl itself.

って書いてあるわけで、使われている間はすなわち保守されて
いると考える一途なオレでも、本当に保守されている jacode.pl
には目移りしている
2011/10/21(金) 23:46:13.18
しっつもーん

PAR で exe 化したプログラムを有償にする場合って、ソースコードの公開義務ってあるんですか？
2011/10/22(土) 00:53:11.74
買わないオレに公開する必要はない
2011/10/23(日) 13:29:22.89
PARはソースコード公開(添付)してるようなものだから必要ないだえお
2011/11/03(木) 15:53:26.69
仕事で使うなら最悪の場合、自分でソース読んで改造・修正する
必要がでてくるので、能力的にも時間的にも自分で何とかなる
範囲のモジュールやライブラリを選ぶことになる。

当時NKFがあったにも関わらず、あえてjcode.plが作られた目的
はそこにあったと思う。NKFの座はいまやEncodeが奪ったが、
jacode.plの利点は当時と同じく今も価値がある。




．．．なんてな
2011/11/05(土) 11:02:27.13
目指す方向の違いかも

Encode.pm -- 大は小を兼ねる（おとこのこ）
jacode.pl -- 小は大を兼ねる（おんなのこ）
608デフォルトの名無しさん
垢版 |
2012/01/09(月) 12:12:05.71
Padre使っている人ってどれぐらいいる？
perl editor使っている人はどれぐらいいる？
2012/01/09(月) 12:34:09.28
${どっちも知らない}++;
2012/01/09(月) 17:20:23.97
Perl言語でモンテカルロ・シミュレーションをやって、
ワクチンの効果を分析するっていうのがあるそうなんですけど、
とてもじゃないけど、学習が間に合わない。

Perlの基礎から学習しないといけないし・・・。

はあー、タメイキ・・・
2012/01/09(月) 18:34:18.11
>>610
言語は何と何なら使えるの? ある程度の心得があれば大丈夫でしょう。
まるっきりのプログラミング初心者だと確かに大変かもしれないけど…
モンテカルロ法自体はそんなに複雑な方法でもないと思うし。
まさか最初から全部自分で書けって訳でもないだろうし。そのまさか?
2012/01/09(月) 19:25:59.38
>>610
漢字で書くべき単語を無駄にカタカナで書くおっさんには無理
2012/01/09(月) 20:25:52.92
激しく同意で御座います
2012/01/09(月) 22:59:46.40
>>611
プログラミング初心者です。
書けるのはHTMLくらいです。
論文に、前提と結果だけがあるんですけど、
プログラムがどんなか、わかりません。
2012/01/09(月) 23:05:44.42
active perlをインストールして、Hello world!だけはできました。
2012/01/09(月) 23:52:44.96
初心者なのかーそりゃ大変だ。
期間がどれくらいあるのかにもよるだろうけどねえ。
まあ周囲にプログラミングの心得のある人がいないか探して
ちょっとアドバイスとかいろいろ頼ってみたら。
2012/01/10(火) 00:04:45.05
>>612
文学がわかっちゃいないね、キミ
2012/01/10(火) 01:28:19.05
>>617
うるせえハゲ
2012/01/15(日) 11:01:32.44
>>610
ちょろっと検索しただけでいろいろ出てくるぞ。
でもPerlを覚えるのが目的ではないのだとしたら、おれならAWKで
書くな。その方が覚えることが少ないし、記述するのに機能が足り
ないってこともないと思う。もしどうしてもPerlでっていうならば
書き終わってから a2p でPerlスクリプトにすればいい。
2012/01/15(日) 13:05:04.45
AWKでネットワーク通信できるの？
2012/01/15(日) 17:28:55.42
何だ？ネットワークのネの字もなかったのにいきなり高度な...
ネットワークとモンテカルロ法は別物だから切り離したほうが
よくね？まさかGUIも必要だとか言いださないよな？一個ずつ
駒を進めようぜ。
622問題です
垢版 |
2012/01/18(水) 03:41:34.72
CP932の文字コードのみを使い、下の処理を実現してください。
モジュールは全て使えないものとします。

問1) まんじゅうこわい　難易度:★☆☆
(1-A)のように$matcherに文字列が設定されていています。
(1-B)の$textを走査して、(1-C)のように$matcherの内容が
最初に含まれる行の行数を表示してください。
行数は1から始まるものとします。

(1-A)
my $matcher = '饅頭怖い';

(1-B)
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL

(1-C)
3
623問題です
垢版 |
2012/01/18(水) 03:42:03.43
問2) パスの分割　難易度:★★☆
(2-A)のように$pathにパスが設定されていています。
ドライブ名、ディレクトリの各階層名、ファイル名を分割して
(2-B)のように表示してください。

(2-A)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';

(2-B)
C:
メモ
饅頭怖いよ
full.txt
624問題です
垢版 |
2012/01/18(水) 03:42:27.39
問3) 裏から覗く？　難易度:★★☆
正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、
(3-B)と同じ内容を表示してください。

(3-A)
my $text = '\\表\\\助\\封\\呂\\表\\\';

(3-B)
\裏\助\封\呂\裏\
2012/01/18(水) 20:30:24.83



宿題は自分でやりましょう


2012/01/20(金) 00:56:22.05
# 問1) まんじゅうこわい　難易度:★☆☆

my $matcher = '饅頭怖い';

my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL

@_ = split(/\n/,$text);
my $i = 1;
for(@_){
if(/($matcher)/){
print $i, "\n";
}
$i++;
}

__END__
※ このスクリプトは jperl を使って実行します
2012/01/20(金) 00:58:15.41
# 問2) パスの分割　難易度:★★☆

my $path = 'C:\メモ\饅頭怖いよ\full.txt';

$path =~ s/\\/\n/g;

print $path, "\n";

__END__
※ このスクリプトは jperl を使って実行します
2012/01/20(金) 00:58:52.58
jperlなんて今更どうやって用意するのよｗ
2012/01/20(金) 01:01:19.90
# 問3) 裏から覗く？　難易度:★★☆

my $text = '\\表\\\助\\封\\呂\\表\\\';

while($text =~ /([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\xFF])/g){
if($1 eq '表\'){
print '裏';
}
else{
print $1;
}
}

__END__
※ このスクリプトは perl を使って実行します

perl と jperl の使い分けがポイントです。
授業で教えましたよね？

それと宿題を２チャンネルで行うのは今後、禁止いたします。
2012/01/20(金) 01:03:28.68
>>628
ちゃんと授業を聞いていましたか？
ベクターにあると説明したはずです。
631問題です
垢版 |
2012/01/20(金) 03:41:59.47
>>629
正規表現で置換してないので、間違いです。
それと、jperlとお幸せに。
2012/01/20(金) 21:22:29.16
べくたーｗｗｗｗｗ
633へたくそ
垢版 |
2012/01/20(金) 21:37:23.75
問1)
my $matcher = '饅頭怖い';

my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL

my $i = 1;
foreach (split(/\n/,$text)){
if (/\Q$matcher\E)/){
print("$i\n");
last;
}
$i++;
}

問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
my $char = '(?:[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])';

foreach ($path =~ /$char/go){
print( ($_ eq '\\') ? "\n" : $_);
}

問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/\1?/g;
$path =~ s/\\(?!\?)/\n/g;
$path =~ s/\?//g;
print($path"\n");
634へたくそ
垢版 |
2012/01/20(金) 21:38:57.63
問3)
my $text = '\\表\\\助\\封\\呂\\表\\\';

$text =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/?\1?/g;
$text =~ s/\Q?表?\E/裏/g;
$text =~ s/\?//g;
print("$text\n");
635先生より
垢版 |
2012/01/20(金) 21:57:35.26
何人かの生徒から知らせを受けて、まさかと思いここをアクセスしたら
問題がそのまま掲載されていて、驚いています。

ここに掲載された回答を書いたひとは配点しませんので、そのつもりで
いてください。

問題を載せた君は月曜日に職員室に来てください。誰かは大体分かって
います。
636先生より
垢版 |
2012/01/20(金) 22:10:10.58
>>631
【正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、】

「正規表現で置換する」とは言っていません。条件は、
1. 正規表現を使うこと
2. 置換すること
です。

あわてずに問題を読みましょう。
あ、それと君も職員室に来てください。
2012/01/20(金) 22:11:14.75
１．性器表現を使うこと
２．痴姦すること

ですね！
2012/01/20(金) 22:15:09.53
下ネタは5.8のほうでやってください。そっちに好きなひとがいるんで。
639先生より
垢版 |
2012/01/20(金) 23:39:20.06
誰も名のらなかった場合は、全員を減点します。
校長先生には許可をもらいました。

おや？そうなると進級できないひとがでてきそうですね。
もしかして、書き込んだのは．．．
640問題です
垢版 |
2012/01/21(土) 12:51:49.27
>>633-634
グッジョブでした。
641答え
垢版 |
2012/01/21(土) 12:53:34.05
問1)
'怖い'(\x95|\x82\xA2)にはバーティカルバーが含まれるため、
正規表現でマッチさせると'饅頭怖い'は'い'(\x82\xA2)を含む文字列にマッチする。
解決するには、メタキャラクタをクォートしてリテラルキャラクタにするか、
正規表現は忘れてindex()を使う。

my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL

my $cnt = 1;
foreach(split /^/, $text) {
    if (/\Q$matcher\E/) {
        print $cnt, "\n";
        last;
    }
    $cnt++;
}
642答え
垢版 |
2012/01/21(土) 12:54:14.19
問2)
'饅頭怖いよ'の'饅'(\xE9\\)の2バイト目にバックスラッシュが含まれるので、
そのままsplit(/\\/, $path)すると'\xE9'と'頭怖いよ'に分割されてしまう。
split(/(?<![\x81-\x9f\xe0-\xfc])\\/, $path)では、
'モ\\'(\x83\x82\\)と'よ\\'(\x82\xE6\\)が分割できなくなる。
解決するには、頭からデータの並びを調べる。

my $path = 'C:\メモ\饅頭怖いよ\full.txt';

my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
print($1, "\n") while($path =~ /\G($cp932)\\/gc);
print($1, "\n") if ($path =~ /(.+)$/g);
643答え
垢版 |
2012/01/21(土) 12:54:50.53
問3)
漢字1バイトズレ問題。
'表'(\x95\x5C)を'裏'(\x97\xA0)にs/表\/裏/gで置き換えると、
'助\\'(\x8F\x95\x5C)が、"女\xA0"(\x8F\x97\xA0)に置き換えられ、
'封\\'(\x95\x95\x5C)が、"風\xA0"(\x95\x97\xA0)に置き換えられる。
解決するには、頭からデータの並びを調べる。

my $text = '\\表\\\助\\封\\呂\\表\\\';

my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
$text =~ s/\G($cp932)表\/$1裏/g;
print $text;

EUC-JP版のズレ対策はPerlメモさんにあります。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
644答え
垢版 |
2012/01/21(土) 13:25:14.16
コードはTMTOWTDIってことで。

こんな面倒なことをやっても、このコードはCP932専用。
EUC-JPかUTF-8に変更されると書き直しに迫られる。
Perlの三大美徳の怠惰を忘れずに。
2012/01/21(土) 14:32:17.48
で本当の問題は、これをEncodeモジュールを使って
CP932、EUC-JP、UTF-8全て対応にするという物。
2012/01/21(土) 21:47:42.75
JperlじゃEncodeモジュール使えないじゃん。確かにそれは問題だな。
2012/01/21(土) 21:54:33.42
なんだ、やっぱりダメなんだなEmcodeは
2012/01/21(土) 22:46:51.21
# 問3) 裏から覗く？　難易度:★★☆

# my $text = '\\表\\\助\\封\\呂\\表\\\'; ← 表の後ろに \ が3つ
my $text = '\\表\\助\\封\\呂\\表\\';

$text =~ s/表/裏/g;

print $text;

__END__
※ このスクリプトは jperl を使って実行します

問題では変数 $text の表の後ろに3つの \ があるためにおかしな
ことになっていますが、現実の問題としては2つの \ ということに
なるでしょう。

こうすることで正規表現による置換ができます。
2012/01/22(日) 11:29:56.92
英語版のperlで日本語を処理しようとするのはナンセンスです。
すでにjperlがあるわけですから賢く使い分けましょう。また国際化
対応していれば日本語も扱えるとのたまう輩もおりますが、軽く
受け流して、可能なら5.8スレの方に誘導してあげましょう。
面倒な場合はスルーでも構いません。
2012/01/22(日) 11:47:22.87
Encode使う場合はこうかな

use Encode;
my $cp932 = find_encoding( 'cp932' );
my $um = $cp932->decode( $matcher );
my @text = split( "\n", $cp932->decode( $text ) );
for my $i ( 0.. scalar( @text )-1 ) {
　next unless ( shift( @text ) =~/$um/ );
　print $i + 1 . "\n";
　last;
}

問題がつまらんね
2012/01/22(日) 11:55:28.79
まあ、義務教育の中等学校だからそんなもんだね
2012/01/22(日) 11:56:43.81
jperlにしがみつく人が屁理屈で問題作ってるんだよ
もし学校で「jperlだけを使いなさい、jperlを前提としたプログラムを作りなさい」って
教育してるなら日教組並みの害悪
2012/01/22(日) 12:22:14.65
>>652
今更jperlは無いわ。
目が節穴じゃね？
2012/01/22(日) 12:35:43.12
>>650
モジュールを使えるのなら、レガシーなスクリプトに対してはencodingを使える。

use encoding qw(cp932);

...

my $cnt = 1;
foreach(split /^/, $text) {
    if (/$matcher/) {
    print $cnt, "\n";
        last;
    }
    $cnt++;
}
2012/01/22(日) 12:38:11.18
いまさらEncodeモジュール絡みの話をしているPerlの人って……
2012/01/22(日) 12:44:34.84
>>645
モダンにいくなら、UTF-8で書いて、こんな感じ。

use utf8;
use Encode::Locale;
use open qw(:encoding(locale) :std);

...
2012/01/22(日) 13:19:32.77
ヒント：ヒューマンリソースとムーアの法則について
2012/01/22(日) 14:08:47.05
>>657
ホウホウそれで
2012/01/22(日) 17:50:00.68
たくさんの回答、ありがとうございました。
中には学校で習ったものよりも高度なものがあり、パールの苦手なぼく
にもとても参考になりました。でも将来プログラマになるわけではない
ので簡単なJPERLで十分かな？と思っています。

明日、出頭し処分を受けることになりそうですが、あまり後悔はして
ません。ここでいろいろ勉強になったからです。

ところで職員室は第一ですか？それとも第二のほうがいいですか？
2012/01/22(日) 18:33:21.22
展開がキチガイ過ぎて言葉が出ない…
2012/01/22(日) 18:52:48.71
jperlは別に簡単ではないぞ。特定の用途の場合にのみちょっと便利なだけだ。
662先生より
垢版 |
2012/01/22(日) 21:23:13.30
第二です。8:40までにくること！
2012/01/22(日) 21:31:34.74
承知しました
2012/01/22(日) 22:03:07.77
便利だったら無理に勧めなくたって、みんな使い出すんだろうね
他の何かをdisるのはなぜか危機感を感じてる証拠だろうね
2012/01/22(日) 23:16:21.58
>>659
ああ、一人で幸せに暮らしてくれ。
JPerｌ(Perl 5.003_07)というCPANどころかData::Dumperすら無いシロモノを他人に勧めるな。
2012/01/22(日) 23:17:03.60
そりゃあ、上のスクリプトを比べてみれば一目瞭然だもの。
2012/01/22(日) 23:26:02.71
道具を使うのは人間なんだから、使いやすいものをそのときどきによって
選択すればいいよね。あるから使わないといけないと考えるのは本末転倒
で無駄な苦労をすることになるよね。でもまあご自由にどうぞ。
668uy
垢版 |
2012/01/23(月) 17:02:41.36
可愛そうに･･････


>>667
最近、誰の受け売りだか知らんがこういう事言ってる奴いるけど

はっきりいって、C#.NET知ってればほとんどのことは出来るし、
ようは言語同士の連結の仕方を知っているかどうかだけど、大丈夫か？

Rubyだけ使っていたって、そこから.NETやC呼び出せばほぼ何でも出来るようになるわけだけど

Perl使いさんたちは、言語同士の連結のやり方　わかっていますか？
2012/01/23(月) 17:07:17.50
へえC#.NETって環境を問わずどこでも使えるんだー知らなかったよ
言語同士の連結ってどうやるの？連携のさせ方ならいろいろあるだろうけど連結は聞いたことなかったな
670uy
垢版 |
2012/01/23(月) 17:59:27.39
機械語で想像できないから
連結って言葉に違和感を覚えるのか
それとも、
dllファイルを別々にしたときの挙動すら、わかっていないのか
さすがにPerl使ってる奴は井の中の蛙という言葉がふさわしい･･･

ああ可愛そうに
ひたすら可愛そうに
671uy
垢版 |
2012/01/23(月) 18:00:28.23
この手のバカ

スクリプト言語しか出来ないタイプには多いだろうな

perlより、まずコンピューターの基礎からやり直したほうがいいのではないか
2012/01/23(月) 19:03:38.76
C#.NETでなんでもできるとかほざいてる奴が
井の中の蛙だのコンピューターの基礎だの烏滸がましいわｗ
2012/01/23(月) 19:04:09.63
>>668
PerlはモジュールをCで書くことも可能であれば、Cから呼び出すことも可能だよ。
ActivePerlならWIndowsスクリプトファイル(wsf)でVBやJScirptと混ぜ書きもできる。

でさ、アセンブラを20年ぐらいやってるとさ、ポストデクリメント演算子に
違和感を覚えるんだけどさ、あれどう思う？

ああ、それと>>667の意見には同意です。
2012/01/23(月) 21:30:12.88
えさは足りてるみたいなので与えないでください
675uy
垢版 |
2012/01/24(火) 00:02:01.90
>>673
ほら突っついたらでてきた
井の中の蛙ｗｗｗｗｗ

そんなの出来ることは当たり前なのに

どうした？　どこか痛いのか？

目的の為に言語を変えるか、
俺が言いたいのは
お前たち程度のレベルで、目的の為に最適な言語がいつから選べると慢心しているのかって事だ

CGIを書くのにCは使わない？　そんなのは当たり前で
段階はその次だ

CGIを書くためにどのWeb言語を使うのか？
その選択がお前たちは出来ないから・・・・こんなスレにいるんだろｗｗｗｗｗｗｗｗバカかｗｗｗｗｗｗｗ
perl一生つかっていろよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗＷＷＷＷＷＷＷＷＷ
676デフォルトの名無しさん
垢版 |
2012/01/24(火) 01:16:41.40
早い話が、結局何をやってもものに出来なかった人の嫉妬ですね。
2012/01/24(火) 01:31:36.16
nyは専ブラであぼーんだな
2012/01/24(火) 01:54:43.15
世の中にはCで書かれたCGIもあるんだぜ
しかも身近に
2012/01/24(火) 08:33:13.29
中国人が抱く外国イメージ　「韓国人は横柄な歴史ドロボー」

中国にとってトラブルの絶えない韓国へのイメージで最も支持を得たのは「歴史ドロボー」だった。
7．6％で1位となった「歴史の剽窃（ひょうせつ）」について、環球網は「端午の節句や孔子を韓国の文化遺産にするなど、
韓国が中国の歴史を盗んだ」ことが背景にあると解説した。また、韓国人が常に自国製品を「世界一」「最先端」と「自称」する
韓国メディアにより「横柄」（7．3％）が2位となったと紹介した。
第3位は「整形」（6．6％）だった。（「整形」が「韓国ドラマ」3．7％、「美女」2．9％を上回った）
このほか「ケチ」「過激」「民族主義」が3－6％。韓国の「家電・デジタル製品」は1－2％にとどまった。
http://news.searchina.ne.jp/disp.cgi?y=2012&d=0118&f=national_0118_074.shtml
2012/01/24(火) 19:43:02.60
index.cgiを開いたらバイナリだったでござるの巻
2012/01/25(水) 17:49:38.95
ぶっちゃけもはやスクリプト自体はutf-8で書くことが多くなってるし
jperlとか害悪としか思わない
2012/01/25(水) 22:47:18.47
早く社会に出て役立つプログラム作ろうな。
2012/01/26(木) 00:24:25.93
企業は競争力や応用力を判定している
薀蓄は相手にしていない
2012/01/27(金) 01:25:11.60
ぶっちゃけ単にエンタープライズ環境を知らないだけなんだろうな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな
2012/01/27(金) 02:22:30.64
Java4が稼動してそうで怖い話だな。
2012/01/27(金) 08:36:33.85
Java4のソースコードなら
今も最新Javaで普通に動く。
2012/01/27(金) 13:36:37.34
>>686
コーディング規約でJava1.4縛りってあるものなの？
Java5以降の機能は使用禁止みたいな。
2012/01/27(金) 17:46:45.90
>>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。

まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。

……スレ違いだがマジレスしてしまった。
2012/01/27(金) 21:00:28.98
>>688
なるほど、過去のバージョンに固定しての開発は普通にあるのね。
ジェネリクスは置いといて、auto-boxingが無いだけでも面倒そう。
2012/01/31(火) 09:38:20.86
ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？
2012/01/31(火) 20:25:29.54
>>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。

あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。
2012/01/31(火) 21:17:48.24
>>691
ありがとうございます
試してみます
693デフォルトの名無しさん
垢版 |
2012/01/31(火) 23:18:31.55
>692
なんか、はずしてるようなので調べてみました。どうやら、
リポジトリの追加とかが必要なようです。
実際、リポジドリの登録はした覚えがあります。

http://cz500.com/diary/?20110310
からの抜粋(コピペしやすかったので採用)

1.スタート＞ActivePerl＞Perl Package Manager　を起動
2.メニューからEdit>Preferences>Repositoriesタブを開く
3.Add Repositoryダイアログでリポジトリを追加
　1.Name cpan
　2.Location http://cpan.uwinnipeg.ca/PPMPackages/10xx/
　3.と入力してAddボタンをクリック。暫くするとRepositoriesタブにcpanが増えます。
4.OKをクリックしてPreferenceを閉じます。

ホームページによっては少し違いがあり、当方では追加済みなので、
検証することができません。うまくいかなかったら、activeperl
cpan ppm リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。
2012/02/06(月) 10:06:28.10
以下のスクリプトで200MB以上の動画をダウンロードしようとすると
512KBのファイルしか落ちません（Win7 32bitにStrawberry Perlです）
どうすれば全部落とせますか？

use strict;
use warnings;
use LWP::Simple;
use open ':std';
use Tk;
use Win32::Clipboard;
use LWP::UserAgent;
use HTTP::Request;

my $clip = Win32::Clipboard();

my $url = $clip->Get();
print "url=[$url]\n";

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $url );

my $proxy;
$proxy = "http://XXX.XXX.XXX.XXX:8080";
print "proxy=[$proxy]\n";

$ua->agent("perl-wget");
$ua->proxy( 'http', $proxy );
695694
垢版 |
2012/02/06(月) 10:07:01.90
$req->header( 'X-Header1' => 'hoge', 'X-Header2' => 'foobar', );

my $flv_file = "c:\\pl test\\xyz.flv";
my $res = $ua->request( $req, $flv_file );

my $head = $res->headers_as_string;
print "headers_as_string=[$head]\n";

実行結果
url=[http://XXX.XXX.XXX/flv/XXX/XXX/XXX/XXX/XXX/XXX.flv]
proxy=[http://XXX.XXX.XXX.XXX:8080]
headers_as_string=[Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Mon, 06 Feb 2012 00:46:54 GMT
Via: 1.1 localhost:8080 (squid/2.7.STABLE7)
Accept-Ranges: bytes
Server: Apache
Content-Length: 282093419
Content-Type: application/octet-stream
Client-Date: Mon, 06 Feb 2012 00:51:02 GMT
Client-Peer: XXX.XXX.XXX.XXX:8080
Client-Response-Num: 1
Content-Disposition: filename=XXX.flv
X-Cache: MISS from localhost
X-Cache-Lookup: MISS from localhost:8080
X-Powered-By: PHP/5.2.17
]
2012/02/06(月) 22:52:57.31
proxy経由しないでも同じ結果か等の原因の切り分けはしたの？
2012/03/04(日) 19:10:14.90
.(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz
2012/03/05(月) 00:59:57.32
便箋w
699デフォルトの名無しさん
垢版 |
2012/08/04(土) 13:16:49.80
Perlコード汚すぎる。
2012/08/04(土) 13:29:41.35
俺なんかそのまま納品して、夏休みとった年があるｗ^_^
2012/10/17(水) 18:25:33.11
文字列の処理が容易である
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）

スクリプト言語のいろは｜Cマガジン2000年10月号
2012/10/20(土) 14:50:00.72
> 文字列の処理が容易である
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ

CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．
2012/10/24(水) 02:32:36.90
>>699
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。
2012/10/25(木) 11:28:52.33
保守性・再利用性ならCOBOL一択だよね！！
2012/10/26(金) 01:46:36.75
同じような仕事にしか使わんからな。
2012/11/10(土) 11:32:03.17
今の時代ならDSLといえば
COBOLのすばらしさが分かるだろう。
2012/11/10(土) 13:11:12.89
read うんたらかんたら
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read

のファイル入力構文は初めて見たときカルチャーショックだったな
2012/11/17(土) 14:18:46.56
言語が違えばやり方は違うんだから想定の範囲内だがな
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ
2012/11/17(土) 17:59:06.65
>>708
いやJavaを先にやってたから
後でCOBOLのコード見たときにカルチャーショックだったんよ
EOFを返してもらうんでなく、構文としてやるってのがね
2012/11/17(土) 20:21:00.74
でもパソコンじゃあC言語の前にBASICがあって、それって
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな
2012/11/17(土) 21:32:41.75
>>710
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす
2012/12/03(月) 14:49:49.57
初心者を育てるのがPHP、初心者を袋叩きにして人格否定までするのがPerl
2012/12/03(月) 23:15:25.81
PHPもPerlもただのプログラミング言語だから育てたりとか袋叩きにしたりとかはしない。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。
2012/12/04(火) 00:49:41.86
「同じ問題でも解き方は人によって違っていい」ってのが Perl の思想だからな。
人格否定なんてありえない。
2012/12/04(火) 05:53:42.12
解き方は人によって違っていいが
書き方は統一しろ。
2012/12/05(水) 08:28:36.86
>>715
コード整形ツールを使いたまえ
2012/12/15(土) 21:53:54.04
初心者を袋叩きにして人格否定までするのはモダンPerl。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。
2012/12/16(日) 00:08:21.80
> 初心者を袋叩きにして人格否定

誰のこと？ そんな人いないよ。
719デフォルトの名無しさん
垢版 |
2013/01/12(土) 17:48:21.31
え？
2013/01/13(日) 04:08:36.23
>>718←何言ってんのコイツｗｗｗ
2013/01/20(日) 03:19:14.74
>>717
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって
2013/01/28(月) 23:19:32.03
いろいろ複雑なテキスト解析をして、最終的にExcelのファイルにしたい
要は、既にあるExcelのファイルとフォーマットは同じで、
中に書いてあるテキストだけ入れ替える感じ

どういうステップを踏むのがいちばん楽だろう
2013/01/28(月) 23:54:01.34
一回こっきりならコピペだな
2013/01/29(火) 00:06:13.05
一回なら間違いなくそうするけど、
多分、100近くある
2013/01/29(火) 00:37:27.03
csvでいいならcsvを吐き出せばいいが
Excelブックを作りたいならPerlでできるのかそれ
2013/01/29(火) 03:02:33.78
ファイルのi/oでexcelのシートを作るのは面倒だから、
use Win32::OLE::Const 'Microsoft Excel';
で、ExcelのセルいじっちゃいなYO
2013/01/29(火) 08:21:49.20
Perl使いをなめるなよ
CPANにはExcelファイルを出力するモジュールがいっぱいある
ttp://search.cpan.org/search?query=Excel&mode=all
2013/01/29(火) 19:31:23.69
ダイレクトでxlsを吐くんじゃなくて、
一旦テキストに出して、そこからxlsを作るExcelマクロを走らせるのが楽

全部perlでとか、全部Excelでやろうとすると、手間が増える上に保守性も落ちる
2013/02/17(日) 02:01:28.40
うん、Excelファイルはすごく複雑
MS以外が不具合なしに扱えるものじゃない。
絶対バグでハマる。
2013/02/17(日) 09:22:06.54
中間ファイルのフォーマットをきっちり決めて、
Excel 側で、マクロなりインポートなりで、
データ取り込む手段を確立して、
それに合わせてファイルを生成するのがおそらく一番間違いが少ない。
2013/02/17(日) 13:36:57.25
>>722は結局どうやったんだろうね
2013/02/23(土) 00:52:05.88
Perlでテキスト⇒テキスト変換をして
UWSCでExcelに取り込む
実はUWSC内で上のPerlも実行するから一発で処理が終わる
733デフォルトの名無しさん
垢版 |
2013/04/30(火) 09:44:36.72
ペルシャ湾で天然真珠調査　世界遺産「復活」に協力 2013年4月30日 09時20分
http://www.chunichi.co.jp/s/chuspo/article/2013043001001486.html

　日本の養殖真珠の生産により２０世紀前半から天然真珠産業が衰退したペルシャ湾で、
日本がバーレーンと協力し、真珠貝の生息調査に乗り出すことが３０日、分かった。
日本の水産技術を使って真珠貝を増やし、伝統産業を復活させるのが狙い。
独立行政法人水産総合研究センター西海区水産研究所（長崎市）などが５月中旬から現地調査を始める。

　真珠産業はクウェートやアラブ首長国連邦（ＵＡＥ）などの伝統産業として知られ、
バーレーンの真珠文化は昨年、国連教育科学文化機関（ユネスコ）の世界遺産にも登録された。
日本が真珠産業の復活を手助けすることは産油国との関係強化にもつながる。
（共同）
2013/09/10(火) 00:43:12.74
なでしこでいいじゃん
735デフォルトの名無しさん
垢版 |
2013/11/03(日) 19:00:39.80
お前らにはどう見えるか知らないが俺にはこう見えてるぞ

print
誰からも愛されてる元気な女の子
気が利いて周囲に信頼されている
グループ行動の時、希に大遅刻をしてしまう

if
普段から冷静で状況把握が得意
二人の親友と一緒に行動する事が多い
予想外の事が起こるとパニックに成りやすい

elsif
リーダをサポートする役割を買って出る好奇心大制な女の子
あたふたしている間に他の子が作業を終らせてくれている事も有る

else
めったに喋らないが一言で状況を変えてしまう天才型
ifと仲が良く、いつも隣に居る
一日、１回はifと手を繋がないと泣き出す

{}
双子の活発な女の子
いつもターゲット（printf）を挟み撃ちにしてほっぺっとほっぺでギューっとする
最後に軽くキスをして誤るのが恒例行事に成っている
736デフォルトの名無しさん
垢版 |
2013/11/03(日) 19:02:27.31
()
若干、中二病の女の子
頭が良く、成績優秀だが中二病発動中、常識がまさる事が多いので
完全に中二病になりきれていない
+
凄く普通な女の子
なんでも出きるが、それ故に目立たない
欠点という欠点も見あたら無い
char
ちょっとカラフルな女の子
グループ内で中心的存在、だけど、結構な寂しがり屋
周囲からはカッコイイけど２人きっりの時に、後ろから抱き締めたくなる
っと、囁かれている
open
豪快な性格、隠し事が嫌いで、聞かれたら下着の色まで答えてしまう
裏表ない彼女の性格は周りからは好かれている
授業中でもキスしたいと思ったらキスしたいと叫んで強引キスしようとする。それを周囲が
なだめる事もしばしば…欲望に直球なだけかも知れない
==
会議でのまとめ役、分析が得意で計算もはやい
アニメが大好きで会議中でも時間が来たら勝手に切り上げて帰ってしまう
優秀な人材が居なくなるのは避けたい***は、会議室にテレビを設置したとか…
unless
doと、、いつも一緒で、犬が大好き
特に柴犬が好きで週に３回は触れ合いランドに出かける
明るい彼女に寄って来るのは何故か大人しい犬ばかり
do
犬が大好きな小柄な女性
独特の雰囲気をかもし出している彼女には活発な大型犬が集まりやすい
涎で帽子が湿っている事もしばしば有る
unlessからは活発な犬に好かれているのでやきもちを焼かれる事も…
2013/11/03(日) 19:20:30.34
>>736
今日一日頑張ったな
2014/02/23(日) 00:44:51.23
eq くんを忘れないであげて！
必要不可欠な子なのに、新人さんに中々顔を覚えて貰えないのは不憫すぎるよ！
2015/01/04(日) 20:46:18.22ID:nh9ErZF8
てすてすてｓ
2015/01/04(日) 23:00:46.21ID:xcUbwpxr
active perl は DBD::MySql に対応するつもりは無いの？
古いバージョンでは動作するけど、無償ダウンロードできないし・・・
やる気あんのか？>active
2015/01/22(木) 21:49:15.27ID:Ciz/VR24
active perlなんか使ってる奴いるのか
742デフォルトの名無しさん
垢版 |
2015/01/26(月) 00:28:29.03ID:Nas4rFKx
インストールが楽だ
2015/01/26(月) 07:52:18.18ID:j1pP3PkZ
DBD::MySQLはMySQLに同梱されてなかったか？
744デフォルトの名無しさん
垢版 |
2015/02/22(日) 11:59:05.28ID:ER52YIGr
flex 使うのも場合によってはありかな。
745デフォルトの名無しさん
垢版 |
2015/02/23(月) 15:01:38.78ID:IgyMEIlv
eval_l => eval('/^AAAAAA/ ? 1 : /^BBBBBB/ ? 2 : ... ')
flex_pipe => flex with pipe
flex_inline => flex with Inline::C

パターン数 10
flex_pipe 16822/s
eval_l 72013/s
flex_inline 493444/s

パターン数 100
eval_l 11036/s
flex_pipe 17530/s
flex_inline 369581/s
2015/02/27(金) 04:12:53.96ID:SYx5FGl1
最近はWindowsだと Strawberry Perl 使ってるなあ
2015/03/01(日) 10:47:45.22ID:oCpwaziE
なにそのPerl
2015/06/06(土) 13:16:02.82ID:xONP+8H7
6/1に公開された5.22で「ダブルダイアモンド演算子」が導入された
たとえば perl -e 'while(<>){ ... }' ファイル ファイル ...
は引数に指定したファイルの内容を順に処理するが
perl -e 'while(<>){ ... }' 'command |'
とかやると 'command |' というファイルではなくcommandを実行してその結果を処理してしまう
while(<<>>) ならそういうことがない

...
知らなかった(汗)
<>自体の仕様を変更してもよかったレベルじゃね?
2015/06/06(土) 16:20:09.81ID:PUUeW4+U
安易に仕様変更とか言う奴は死ぬべき。
前者の仕様に依存した実装だってあり得るんだから
2015/06/09(火) 09:58:53.13ID:gCwSnWrY
>>749
Rubyの中の人たちは全滅だな。w

賛成！
2015/06/11(木) 11:47:33.16ID:KUeCrWwy
実際、後方互換性に関してはPerlはいい仕事してる
2015/12/26(土) 09:41:36.35ID:xkZV8qrf
Perl6 が出たようです
ruby も python もぶっとばせ！
2015/12/28(月) 01:26:56.58ID:kY09W9+C
Windowsにgitクライアントをインストールすると
Strawberry Perl が変な動作するのは
オレだけ？
754デフォルトの名無しさん
垢版 |
2016/01/10(日) 13:40:06.62ID:/ndDSiBm
971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

強烈加齢臭
メール見ない　メール無視
ドキュメント見ない　ドキュメント無視
説明聞かない　説明無視
話聞かない　話無視
ガム→むっちゃー むっちゃー むっちゃー むっちゃー
煎餅→バリバリバリバリバリバリ
菓子パン→モグモグモグモグモグモグモグモグモグモグ
カップアイス→むっちゃー むっちゃー ペロペロペロペロ

フロアすべてに響き渡る 超ばかでかいくしゃみ 当然手でおさえない

異音と異振動
ドスーン！ドスーン！　ドカーン！ドカーン！　バコーン！バコーン！　ズドン！ズドン！
机が近いとマウスポインターが飛ぶ　誤操作誘発
書類だしたりしまうだけでドカンドカン

30秒ごとに口と鼻から異音
ふんっっ！　　　　ふんっっ！　　　

備品破壊　貸与P C 破壊　他人のもの破壊

奴の作ったスクリプトとプログラムは使えない　バグ製造機

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない
755デフォルトの名無しさん
垢版 |
2016/03/29(火) 09:57:20.41ID:/c8bAcK4
サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ
https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費 おじや50代資産ガリバズフィード40代エリート
2016/04/09(土) 17:13:17.22ID:P1lehKRX
読みにくいperlコードがある場合はデバッガの機能使おう
perl -MO=Deparse スクリプト名 で実行するとperlからそのコードがどういうふうに見えるかが表示される=曖昧な記法じゃなくなるから読みやすくなると思う

use strict; use warnings; してなかったり変数やメソッドに適切な命名できてないようなやつは知らんw
2018/03/03(土) 07:18:08.86ID:cw9gLPBd
またperlの人気出ないかなー
2018/03/03(土) 13:24:56.59ID:GGmAMA7z
Perl6は、期待してたんだけど、どうやら普及しなさそう。
ちょっと試してはみたけど、C系と意外に違ってて、なんか使いにくいんだよなあ。
759デフォルトの名無しさん
垢版 |
2018/03/05(月) 10:07:55.39ID:qTf9YbOJ
>>757
まあしかし少なくともUNIX系OSではなんでも作れるスクリプトとして根付いてるから中々なくなりはしないと思う。
760デフォルトの名無しさん
垢版 |
2018/05/23(水) 20:14:56.26ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

786Y4
2018/05/23(水) 22:07:07.76ID:kjJ0wThN
search.cpanがシャットダウンです
762デフォルトの名無しさん
垢版 |
2018/07/04(水) 23:56:05.51ID:gFgZc5FG
8PU
763デフォルトの名無しさん
垢版 |
2019/06/08(土) 05:39:12.98ID:CQrzC4Mf
数学用途で久々にperl5で書いた
スコープ制限 や use strict など一切なしのぶっきらぼうな書き方

......完成したコードは変数名などがわかりやすく、例外処理も丁寧な仕上がりだった
保守性重視の書き方しみついたのはなかなか変わらないんだな
764763
垢版 |
2019/06/13(木) 14:47:43.00ID:/0Hvd4dT
キャッシュ層の有無も含めて速度もベンチマーク撮りながら
途中でデバッグ用の追跡コードも挟んだりし
use strict や warnings 等もつけたり
スコープや変数名など仕上げた


書き始めは荒っぽく自由に様々なアプローチを試し
デバッグ情報も臨んだ情報が自由に手に入り
望めば保守性の為に厳格に書ける

リストの畳み込み計算など無いものもあるが
おおむね良い言語だ
765デフォルトの名無しさん
垢版 |
2019/06/15(土) 00:55:54.14ID:dlWE+pCO
ActivePerlを見限ってついにStrawberryPerlにしたぜ！
26.3がやっと半年ぶりに更新された
30が出てるのに28.1になるとかわけわからん
せめて28.2にしろよ
2019/10/14(月) 22:16:21.37ID:ShGJQFvk
StrawberryPerlはコンパイル環境が丸ごとバンドルされているのでおススメだよ。
767デフォルトの名無しさん
垢版 |
2019/11/18(月) 21:00:37.30ID:vV3s+CrD
Android上でPerlとか動かす実行環境あったのな。ついさっき知った。

https://docs.solab.jp/sl4a/
768デフォルトの名無しさん
垢版 |
2020/01/01(水) 14:14:05.07ID:fUaq4dOi
以前ローカルタイムとGMTの秒数のずれを出すためにこんな風に書いた。

use Time::Local;

my $t = timegm(localtime(0));

これは昨日までは正常に動いた。ローカルタイムが日本時間(JST)なら9時間を秒に直した 32400 が返されていた。

しかし今日(2020年1月1日)になったらいきなり巨大な数を返すようになった。
ローカルタイムが JST なら 3155792400 になる。そしてこれは32bitのOSではエラーになった。
(整数のビット数が多くなるように Perl がコンパイルされていれば大丈夫なのかも知れないが)。

この巨大な数はなんなのかと調べてみたら、2070年だった。

$ date -d '@3155792400'
2070年 1月 1日 水曜日 18:00:00 JST
$

で、結局これは timegm() の年に与える数が4桁の西暦年になるように修正したらうまく行った。

use Time::Local;

my @tt = localtime(0);
$tt[5] += 1900;
my $t = timegm(@tt);

これでローカルタイムが日本時間なら 32400 になる。(OSが32bitでも問題なし)。

でもこれ、なんか変だよね? バグじゃないのか? 2020年にいきなり変わるって、元からそういう仕様だったの?
2020/01/01(水) 15:33:18.64ID:e1g3DWya
https://perldoc.perl.org/Time/Local.html#Year-Value-Interpretation
timegmの年に0～99を指定した場合は現在の年を基準に前後50年の範囲に収まるように解釈する特別扱いで
localtime(0)で帰ってくる70は
2019年は2019+50=2069の範囲外なので1970だったけど
2020年は2020+50=2070なのでそのまま2070になる
ある意味2020年問題やね
770デフォルトの名無しさん
垢版 |
2020/01/01(水) 16:16:55.11ID:fUaq4dOi
>>769
わかった。ソース見てわかった。50年な。今年の年に50足して100で割った余りを区切りにするから70が区切りで、70未満は今年の世紀の2000足しちゃうのな。
どうりで71年からはちゃんと計算できると思ったら。
771デフォルトの名無しさん
垢版 |
2020/01/01(水) 16:17:56.87ID:fUaq4dOi
未満じゃない。以下か。
2020/01/01(水) 16:21:54.06ID:Vy5hpr3F
ドキュメントを読めよ。

ちなみに確認しないけど、西暦2桁表記は、1970年を基準に±50年の範囲と見なすってのはなんかであった気がする。
2020/01/01(水) 16:22:23.94ID:Vy5hpr3F
出遅れた。orz
2020/01/01(水) 20:55:02.80ID:MALUlSLD
年の2桁表示とか、紛らわしい表記は使ってはいけない！

2020/01/01, 2020-01-01 など、フル桁の4/2/2でないといけない
2020/01/01(水) 22:28:07.13ID:nMZ5JBqA
そういうことじゃないと思うよ。
知ったかぶりしたいわけじゃないから、これだけ紹介しとくよ。
https://qa.itmedia.co.jp/qa4977971.html
2020/01/02(木) 01:20:37.93ID:EKdEyvit
突然にタイムゾーンの話？
777デフォルトの名無しさん
垢版 |
2020/01/05(日) 19:51:48.79ID:YU7sLweA
>>772
その区切りが移動するんだな。
2020/01/05(日) 22:57:34.53ID:UM8RYdV+
それにしても年2桁をある年を境に分けるしてって、
俺が中学生の頃に作った家計簿ソフトみたいだなｗ
もう30年ぐらい前になるのか？
2020/01/06(月) 14:52:57.76ID:DmV1IuhC
DuckDuckGoがPerlで書かれてるって最近知った
2020/01/07(火) 22:37:11.45ID:+L6qE003
perlは文法の泥沼具合で唯一c++とためはれる言語。もちろん褒めてない。
2020/01/08(水) 12:14:45.57ID:1aWtkc80
log(1000)/log(10) は3だが、int()に通すと2になる。

Windowsサンプル
perl -e "$tmp = (log(1000)/log(10)); printf('result=%s,%s', $tmp, int($tmp));"

Unixサンプル
perl -e "\$tmp = (log(1000)/log(10)); printf('result=%s,%s', \$tmp, int(\$tmp));"
782デフォルトの名無しさん
垢版 |
2020/01/08(水) 19:45:30.94ID:naqRCa+g
あー。%s か。
783デフォルトの名無しさん
垢版 |
2020/01/09(木) 10:06:14.57ID:Gxf4nQ6S
フォーマットを %.16f にしたら 2.999... のように出たよ。
まあでも環境によって違うかも知れないけどね。
2020/01/09(木) 13:01:10.00ID:CwRR9iY2
ある整数$nを10進表示するために必要な桁数を求めるためにlog($n)/log(10)を使ったのが良くなかった。
小難しいこと考えずにperlらしく素直に文字列としてlength($n)で桁数を取得するのが正解。
2020/01/09(木) 20:26:28.10ID:C+kuIm3o
Perlじゃなくても、浮動小数点数なら残当。
結局、10で何回割れるか数えるのが一番合理的なんかねえ。
2020/01/10(金) 04:53:14.77ID:EqsvE6i0
問題の本質は、整数と実数の型区別がない言語において、3なのか2.99…なのか簡単に識別する手段がないこと。
2020/01/10(金) 05:45:42.75ID:EqsvE6i0
PerlはCPU依存の浮動小数ではなく、独自の浮動小数を実装している。
計算速度がCやJava劣るのは、単にPerlがスクリプト言語だからというだけではない。
独自な浮動小数には良い面も悪い面もあるが、浮動小数の精度を変更できるのは大きな強み。
以下は、浮動小数の精度を10進換算100桁にするための宣言。

use bignum (a => 100);
788デフォルトの名無しさん
垢版 |
2020/01/11(土) 16:09:16.79ID:j7/IvFvR
>>786
ないな。一応 0.5 足してから int() で整数化すれば四捨五入になるけどね。自分でそう書かないとダメだったと思う。誰かがモジュール作って関数化してそうだけど。
2020/01/11(土) 20:26:50.93ID:usOdB8FH
>>786
んなもん、そもそもあるわけがない。
浮動小数点数表現はおろか、有理数表現でも完全に表せない値は当たり前なんだから。
790デフォルトの名無しさん
垢版 |
2020/01/15(水) 02:51:20.42ID:pd5/9Sat
「Git 2.25」リリース、「git sparse-checkout」コマンドの追加や細かい機能強化が行われる
https://mag.osdn.jp/20/01/14/171500
内部的な変更としては、「git add「コマンドの「-i」オプションをPerlベースからCに書き換える作業をスタートさせた。
2020/02/06(木) 17:50:53.79ID:UYgbv9bH
PHPでPerlは使えますか？
792デフォルトの名無しさん
垢版 |
2020/02/10(月) 18:58:18.71ID:TxaBglIi
それはWebのページに埋め込むような感じで使えるかという意味？
793デフォルトの名無しさん
垢版 |
2020/02/11(火) 17:48:20.39ID:ix+UlUL8
PHPのプログラム中からPerlを呼び出すのであれば「php perl 呼び出し」等のキーワードでググれば沢山出てくる。
794デフォルトの名無しさん
垢版 |
2020/06/06(土) 11:22:08.79ID:5FXxLs+t
2015年にリリースされたmacOS X 10.11 以降、SIP(System Integrity Protection)によってディレクトリ/Systemがガードされるようになった。
これにより2013年にリリースされたperl 5.13が/System配下にありガードされてアンインストールできなくなっている。
2019年にリリースされた最新のmacOS 10.15 Catalina もいまだにperl5.18のままという有様。
2021/10/01(金) 19:08:40.79ID:VGp4ti15
新しい Windows PCに Active Perlインストールしたら perl.batになってて使いづらいので
Strawberry Perlに変更した
2021/10/01(金) 20:42:39.90ID:8GSBOhv8
MSYS2をいれたほうがええんちゃう？
797デフォルトの名無しさん
垢版 |
2021/10/02(土) 10:57:54.57ID:77ApQga0
>>796
Git for Windowsに付属のbash(MINGW)で十分だと思う
798デフォルトの名無しさん
垢版 |
2021/10/02(土) 14:25:59.98ID:yFRwYWli
Git for Windowsに付属のbashってminttyだっけ
便利過ぎて死ぬわ
2021/10/02(土) 15:08:59.66ID:HPoADLry
>>797
ホントにずっとそのままでええんならな。
MSYS2にしとけば、あとからpacmanでいろいろ足せる。
800デフォルトの名無しさん
垢版 |
2021/10/02(土) 15:15:17.46ID:lWVjrMOX
WSLでUbuntuもよろしく
801デフォルトの名無しさん
垢版 |
2021/10/02(土) 16:46:10.72ID:77ApQga0
WSLのPerlだとWin32API呼び出しできないからニーズを満たせないと思ふ
802デフォルトの名無しさん
垢版 |
2021/10/02(土) 16:55:22.91ID:77ApQga0
ちなみにGit for Windows (2.33.0.windows.2) にもPerlが入ってる
Strawberry Perlは5.32までしかないのにGit for Windows版Perlは5.34
嘘だと思うなら調べてみるといい
マジだから
2021/10/02(土) 17:36:32.08ID:HPoADLry
バージョンが気になるならMSYS2やろ！
2021/10/19(火) 22:17:39.89ID:3qjTXPl0
なぜStrawberry Perlは5.34がリリースされないの？
805デフォルトの名無しさん
垢版 |
2022/06/30(木) 22:37:09.92ID:paUH0cS8
Perl 5.36 が公開されたというのに、どのPerl関連スレも閑古鳥が鳴いていてさびしいねえ
2022/07/02(土) 13:20:38.18ID:OYFQm13f
Windowsでコマンドライン生活をしてると
utf-8かsjis(cp932)で改行がCRLFのテキストを扱うのがほとんど
結局コマンドプロンプトでPerlを使うのが一番使い勝手がいい…と思ってる
807デフォルトの名無しさん
垢版 |
2022/07/03(日) 05:14:11.23ID:S0pZ0Csa
>>806
わかる気がする
文字コード不明なゴミ文字列を食わされたらすぐ例外を吐く繊細なPythonは日本語版Windows向きじゃないんだよな
808デフォルトの名無しさん
垢版 |
2022/07/03(日) 14:29:42.06ID:PqlrjItE
馬鹿には無理
2022/07/04(月) 03:27:03.23ID:E+MehTl/
Perlの比較対象はsedとかawk
多段パイプでsedとawkをつなげまくってるのをPerlですっきり
2022/07/04(月) 08:30:36.13ID:CMsCi2w4
PowerShellと被りまくりよな
2022/07/05(火) 17:14:50.15ID:tNMhVh98
PowerShellはバイナリがパイプに流せないからな
バイナリを流さなくても文字コードをいろいろ使う人には不便極まりない
2022/07/05(火) 20:17:14.67ID:uTfoaiyz
PowerShellのパイプは、テキストでもバイナリでもなく、オブジェクトだが？
2022/07/05(火) 21:04:46.45ID:tNMhVh98
それしかないから困るという話だが?
2022/07/06(水) 04:19:04.24ID:ln/Yt+4k
PowerShellの文法にPerlの影響を感じる
2022/07/06(水) 19:53:42.80ID:ogfTX8ru
ピンとこないんで例示たのむ
2022/07/06(水) 21:22:26.26ID:765tXlNx
影響つうか、もう完全に似せにいっとるやろ。ｗ
2022/07/06(水) 21:39:44.49ID:ln/Yt+4k
Perlでのワンライナーコマンドの成功体験を忘れられなかった人が、潤沢な資源を使ってPerlっぽいシェル作ったら明るいディストピアになってしまった感じ
それがPowerShell
2022/07/07(木) 20:54:38.67ID:cvqD9lK8
文法の類似性は全く感じられない…いやまじで

それはともかくWindowsでPowerShellをシェルとして使ってるとPerlと相性悪すぎる
コマンドプロンプトなら問題ないのにね
819デフォルトの名無しさん
垢版 |
2022/07/07(木) 21:37:13.86ID:PsBgcgR1
Perlだけじゃないよ
PowerShellはSTDIN, STDOUTを使うあらゆる伝統的アプリと相性が悪い
2022/07/08(金) 07:50:38.59ID:EP1tRVB4
たとえば
perl -E '$a = 1; say "\$a = $a"'　　　…… (1)
結果はもちろん
$a = 1
コマンドプロンプトだと引用符に ' が使えないから
perl -E "$a = 1; say qq/\$a = $a/"
とかするわけだけど、PowerShellなら ' も使えるから(1)でいけると思うわな
ところが結果は
SCALAR(0xf00e68)
さすがにこれは凄過ぎる
821デフォルトの名無しさん
垢版 |
2023/11/07(火) 18:45:33.47ID:bMdWZdKr
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/
V5.38が出ていますよ
2023/11/20(月) 03:36:08.26ID:BbmiohCI
バイナリの種類が減ったけどどうしたんだろう_？
ZIP版がなくなったのはちょっと寂しい
いろいろビルドするの大変だったのかな…
いずれにせよWidows用処理系のバイナリが提供されるのはありがたい
2023/11/21(火) 15:33:51.20ID:qJoihvDX
>>820
Windows PowerShell 5.1 ではこの通りだったけど
最新の PowerShell 7.4 ではちゃんと
$a = 1
になるように改善されてる
824デフォルトの名無しさん
垢版 |
2023/11/27(月) 18:46:28.12ID:17nvp8y6
$ perl -e '$a="abc"; $a =~ s/(.*)/[$1]/g; print $a . "\n"'
[abc][]

なんで後ろに[]がついちゃうの？
後ろに[]をつけないにはどうすればいいの？
2023/11/28(火) 01:13:40.51ID:cm6gsnuQ
Powershell で、Ruby の1-liner を実行してみた。
%Q() は、"～" と囲む文字列と同じ

ruby -e 're=/(.*)/; puts %Q(abc).sub(re){ %Q([#$1]) }'
[abc]

ruby -e 're=/(.*)/; puts %Q(abc).gsub(re){ %Q([#$1]) }'
[abc][]

sub は置換を1回だけ、
gsub は複数回置換するから、2回マッチしているようだ

これは正規表現のスレで聞いた方が良いかも
826825
垢版 |
2023/11/28(火) 01:36:42.16ID:Nm9lZ/Iv
Ruby でやったら、sub/gsub のどちらも空文字列にもマッチする！
%Q() が、"" と同じで空文字列

re=/(.*)/;
puts %Q().sub(re){ %Q([#$1]) }
[]

re=/(.*)/;
puts %Q().gsub(re){ %Q([#$1]) }
[]

Perl はよく知らないけど、正規表現の
s/(.*)/[$1]/g
の、s かg が、複数回マッチのオプションなのでは？
827デフォルトの名無しさん
垢版 |
2023/11/28(火) 07:55:53.20ID:n24A5w3b
gが複数回オプション
2023/11/28(火) 11:38:18.70ID:86akrCdn
s/(.*)/[$1]/

または

s/(.+)/[$1]/g
829デフォルトの名無しさん
垢版 |
2023/11/28(火) 12:30:37.56ID:vIU65Zk5
複数回マッチはそれはそうなんだけど、
.*で全部にマッチするのだから一回しかマッチしないはずでしょう？
2023/11/29(水) 00:11:18.99ID:Yve6WB+Q
この話題は以後、以下のスレに移動しました！

Regular Expression(正規表現) Part16
https://mevius.5ch.net/test/read.cgi/tech/1635936601/962-
831デフォルトの名無しさん
垢版 |
2024/02/09(金) 17:07:25.90ID:LEmbefGZ
V5.38.2
32ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5382_32bit
64ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_53822_64bit
2024/02/13(火) 13:45:23.58ID:INZlTde8
>>831
https://strawberryperl.com/releases.html
には最近のバイナリはないね。

ビルドに使われた external tools and libraries について見ると
Perl 5.36.1.1 (2023-07-20)のリリースで MingW gcc-13.1.0 まで上がり
Jul 11, 2023 の dev_5.38.0_20230705_gcc13 までは(同じ?) gcc-13.1 (winlibs release 5)
が使われていたけどこれはビルドに問題があったようで、
For a list of known test failures and build issues see
Issues ・ StrawberryPerl/Perl-Dist-Strawberry ・ GitHub
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/issues?q=is%3Aissue+is%3Aopen+label%3Aperl5.36

Nov 28, 2023 の dev release 5.38 32-bit cut-down 以降は
Perl 5.32.1.1 (2021-01-24) のときの gcc is version 8.3.0 を含む c/ ディレクトリに戻してビルドするようになったとのこと、
またzip版のバイナリはリリースされなくなったし
この2年でなんか色々変わってきたな、Strawberry Perl も一つの節目なのかね

今後Strawberry Perlの動向は https://strawberryperl.com/ の方ではなくgithub.comの方
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases
を見るべきだね
833デフォルトの名無しさん
垢版 |
2024/06/10(月) 18:27:16.13ID:jBvUR+aY
V5.39.10.1(64ビット)
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5.39.10
2024/06/25(火) 23:38:59.86ID:nRVgOfun
>>802
gitにperlが入ってるんじゃなくて
gitがperlで出来てる
835デフォルトの名無しさん
垢版 |
2024/08/18(日) 17:26:35.55ID:tGsR2CJf
V5.40.0.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_54001_64bit_UCRT
836デフォルトの名無しさん
垢版 |
2024/08/18(日) 21:28:19.60ID:bxmlsBiI
ピールと呼ぶ会
837デフォルトの名無しさん
垢版 |
2024/08/23(金) 01:55:42.09ID:+JWOVuZK
>>835

インストール前に念のためチェックしたら
ttps://www.virustotal.com/gui/file/754f3e2a8e473dc68d1540c7802fb166a025f35ef18960c4564a31f8b5933907

誤認識か否か分からないのでｲﾝｽﾄｰﾙを躊躇してる

gccが13.2に上がってるんだよね、niXman のかな…
838デフォルトの名無しさん
垢版 |
2024/09/29(日) 16:04:56.78ID:ivcstAMo
Moose (ヘラジカ)の剥製が巨大で力強かった
そこで思い出したのが Moose - Object Oriented Perl
OOPやりたいなら他の言語でやればいいや、面倒なperlとバイバイしてたけど
今になってMooseの剥製を見て触りたくなった

perlのMoose触りたくないのに、それでコード書きたい不思議な体験だ
839デフォルトの名無しさん
垢版 |
2025/03/08(土) 22:22:06.21ID:0XiXRrvv
Pre-release V5.34.3.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/sp5.34.3.1
840デフォルトの名無しさん
垢版 |
2025/05/31(土) 00:02:40.32ID:cJ5DGMSY
V5.40.2.1
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_54021_64bit_UCRT
841デフォルトの名無しさん
垢版 |
2025/06/08(日) 13:20:44.61ID:UqM8iw5/
>>840
ActiveCodePageをUTF-8にしたのも同梱して欲しい
毎回埋め込みマニフェストをいじるのめんどくさい
842デフォルトの名無しさん
垢版 |
2025/06/18(水) 01:54:06.84ID:FtkrC9SP
超古いperlのCGIを新規で建てたLinuxマシンに移植する仕事が来た
簡単だろうと思って受けたらかなりハマった
Linuxにxampp入れてCGIプログラムとperlのライブラリを移動したが
Internal errorで動かない
散々調べたらjcode.plが新しいperlのバージョンではうまく動かないそうな
jcode.plをjacode.plに置き換えればうまくいくらしいので試してみたが、一つは動いてもう一つは動かない
入力したデータが文字化けしとる
さんざん悩んでxamppかperlのダウングレードをしようかと思ってた矢先に古いjcode.plの修正方法を発見した

広島大学のホムペに

また，以下のライブラリ等は，修正を行うことで動作が確認されています
日本語ライブラリ（jcode.pl）※ 「defined」を削除する
　&init_z2h_euc unless defined %z2h_euc;　→　&init_z2h_euc unless %z2h_euc;
　&init_z2h_sjis unless defined %z2h_sjis;　 → &init_z2h_sjis unless %z2h_sjis;

と言うのが出てて、この通りやったらやっと解決
ありがとお広島大学
843デフォルトの名無しさん
垢版 |
2025/06/18(水) 17:42:44.53ID:SrJIdorw
世界最長のコンテキストウィンドウ100万トークン入力・8万トークン出力対応にもかかわらずたった7800万円でトレーニングされたAIモデル「MiniMax-M1」がオープンソースで公開され誰でもダウンロード可能に
2025年06月18日 11時43分
https://gigazine.net/news/20250618-minimax-m1-open-source/
>>MiniMax-M1は、合計4560億のパラメーターが含まれており、トークンごとに459億のパラメーターがアクティブになるとのこと。これはDeepSeek R1の8倍に相当するコンテキストウィンドウです
>>以下のグラフは競技レベルの数学、コーディング、ソフトウェアエンジニアリング、エージェントツールの使用、長文理解タスクにおけるパフォーマンスを主要な商用AIモデルと比較したもの。赤色がMiniMax-M1で、どのタスクにおいても競合AIモデルに匹敵するパフォーマンスを発揮できている
>>MiiniMax-M1はいくつかのベンチマーク、特に長いコンテキスト駆動のベンチマークでClaude Opus 4のパフォーマンスを上回りました」と報告
※AIを動作させている動画あり
↓上記のAIお下記をプレイさせれば性能が判明する
Gemini 2.5 Proは手持ちのポケモンが瀕死になるとパニックに陥る
2025年06月18日 12時30分
https://gigazine.net/news/20250618-pokemon-gemini-panic/
◇
[プロテクトガードやセキュリティーホール発見可能]
※1 プログラムのバグ技[裏抜け道]を使用できる＝チートコードを発見可能
・ マリオカートのショートカットはプレイヤー「極悪人」の表の抜け道でNPC「一般人」は使用不可能
[インサイダー/談合/なねーロンダリング/霊感商法など行う時の悪行で音波や電波をしての悪行の方法を発見可能
※ 政治家の法律上の抜け道を仕込める＝ある業種だけの法律の抜け道を発見可能
[一般大衆の思考である特定の極悪人から目線を特定の統合失調症へ返させる装置]
※ ＡＩは正確な情報で人間を信用させれる＝ＡＩは嘘の情報を一部混ぜて人間を洗脳できる
新着レスの表示
レスを投稿する

5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況