TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
オブジェクト指向の活用方法を教えて下さい
七行プログラミング part6
Google App Engine for java
WPF(.NET4.x, .NET Core) GUIプログラミング Part24
アルゴリズム考えるのムズすぎワロタwwww
Rubyの設計上の欠点とは何か？
【Java標準GUIライブラリ】 JavaFX スレッド
【汚物】痛い変数名・関数名【破廉恥】
Gitをより良くするための運用ガイドライン作成スレ
家計簿ソフトを作る

Perlについて


1 ：2008/08/04 ～ 最終レス ：2020/06/06
質問スレはあるけど、Perl自身について語るスレがないので、立てました。

2 ：
2 get

3 ：
パール！パール！

4 ：
Perl6の誕生日を予想するスレ

5 ：
perl 5.10.0 の新機能
http://fleur.hio.jp/perldoc/perl/5.10.0/pod/perl5100delta.mix.html

6 ：
Perl6ってさあ、中途半端にPerlにしがみついてないで、
思い切って全然別な名前にしちゃったらいいと思うんだ。

7 ：
Perl on Ruby

8 ：
JPerl

9 ：
ふつうのPerl6入門
http://video.google.com/googleplayer.swf?docId=158464582426150312&hl=en

10 ：
ﾊﾟｰﾙのようなものを使って・・

11 ：
ひがいしゃのアタマをメチャクチャに

12 ：
文字列連結に、．（ドット）を使ったのが失敗の始まりですか？

13 ：
みんなもう、Perl 5.10 入れてる？

14 ：
>>12
なんで？

15 ：
>>12
むしろ、文字列の比較演算子が eq なほうが面倒くさい

16 ：
PerlとRubyがあるなら次はAmesistとか出来るんかいな

17 ：
Perlが出来る前に、Pearlって名前の別のプログラミング言語があったらしい

18 ：
Pearlでもてたい。

19 ：
リメンバー！パールハーバー

20 ：
なあ兄弟。あんたの道具にはパールが入ってるって本当かい？

21 ：
ActiveStateのPerl処理系とcygwinのPerl処理系が両方使ってるぜ。

22 ：
>>12,15
動的型の活用を演算子によるコンテキスト明示によって実現するというアーキテクチャだからね。
Perl の目立つ特徴のひとつだけど、好みの分かれるところなのかな。

23 ：
>>16
作っとけ。wktk してやるから。

24 ：
>>14
オブジェクト指向にするとき、．じゃなくて、->にしなきゃならなかったから

25 ：
^..^ を英語でも neko演算子っていうんですかね？

26 ：
少なくとも2005年の OSCON では Damian Conway が自身のセッションの中で "neko operator" と呼んでいたとまつもとさんがレポってたのがググったら一発目に表示されたので聞く前にググれ。

27 ：
>>13
v5.10.0
メインのクライアントは Windows XP なので ActivePerl 1002。
いまんとこ過去のどのバージョンより快調よん。

28 ：
久しぶりにActivePerlを入れたら、PPMがGUIになってて驚いた

29 ：
ppm-shell もあるよん。
GUI もええけど、初期化時の同期に時間かかるので、目的によって使い分け。

30 ：
>>29
おおー、コマンドライン版も健在なんすね。

31 ：
みなさんはどのくらいのレベルですか？
Perlプログラマのレベル10
http://d.hatena.ne.jp/naoya/20050809/1123563794

32 ：
@array = (1, 2, 3);
print @array[1]; # ->2
%hash = (a=>1, b=>2, c=>3);
print @hash{b}; # ->2
%hash{b} という表記にすべきじゃない？

33 ：
>>32
それは配列のスライスと、連想配列のスライス
@array[1,2] は ($array[1], $array[2])
@hash{b,c} は ($hash{b}, $hash{c})
とそれぞれ等価

34 ：
>>32
Perl6では、%hash{b} という表記になると記憶している。

35 ：
$ == scalar を返すもの
@ == list を返すもの
% == キーと値のリストを返すもの
評価時の挙動が後から見て分かりやすいので、Perl5 式のほうが好きかも。
でもきっと慣れれば一緒だな。

36 ：
　読みやすさにだけ関していえばPythonが一番であり、Perlが最下位になる、というのが筆者の意見だ。
筆者はPerlを「開発専用」言語に分類することが多い。Perlのプログラマーは、最もコンパクトで簡潔な
コードの開発を高く評価する文化を取り入れたのだ。これは通常、読みやすさを犠牲にして成り立つものだ。
これに加え、Perlには特殊な変数を使う問題がある。いったんPerlの慣用語法に慣れてしまえば、
特殊な変数の多くも分かるようになるが、Perlをまだ学習中だと、Perlプログラムを読むことが象形文字を解読するに等しくなる。
Perlは、見た目がかっこよく、一見して理解できないコードで非常に巧妙な処理ができることを技術屋が喜び勇んで見せびらかせる言語だ。
ワーチェスター工芸研究所業務学教授
Gary Pollice
・・・ということらしいですが、みなさんみなさんはりきって見た目がかっこよく、一見して理解できないコードで非常に巧妙な処理ができることを喜び勇んで見せびらかしてください↓

37 ：
そんなのJAPHスレでもやれよ

38 ：
つまり、
「一見して理解できないコードで非常に巧妙な処理ができることを技術屋が喜び勇んで見せびらかせる言語」
なんだから
「評価時の挙動が後から見て分かりやすいので」
とか言ってんじゃねえよ
ってことですね？

39 ：
w なるほど。
とはいえ Perl は使わにゃならんし、
一応ここ Perl スレだしさ。

40 ：
【コミュニティーサイト作成有志募集！】
現在コミュニティーサイトGaccoで有志を募集しています。
詳しい概要等は
→http://www36.atwiki.jp/vipvipschool/
こちらをご覧下さい。
・プログラミングができる方
（現在技術陣は6名です）
・ウェブデザイン・画像編集能力がある方
（現在デザイン陣は2名です）
・宣伝能力のある方
（人員募集やサイト完成後の宣伝等。動画編集ができると○。）
を募集しています。
気軽にIRCに参加、またはsuteあっと2ch.bona.jpまでメールを下さい。
スレッド：ttp://ex14.vip2ch.com/test/read.cgi/news4gep/1219068297/l50

41 ：
>>33
なるほど、リストに展開されるわけですか
>>34
やっぱり、ラリーもそっちの方がいいと思ったわけですな
>>35
自分はまだ初心者なんで、まだ慣れてないっす

42 ：
みんな本は何を読みましたか？
ラクダ、PBP、クックあたり？

43 ：
>>42
本は読んでない。添付ドキュメントを読んだ。

44 ：
ヘタレなのでリャマから読んだ。

45 ：
おれもリャマから．続・リャマも読んでる．

46 ：
俺はらんま1/2

47 ：
俺は5/8チップス

48 ：
壊れるほど愛しても１／３も伝わらない

49 ：
バニラ 1/8

50 ：
Perlクックブックを買いました。
これから勉強します！

51 ：
クッククック　青い鳥～

52 ：
Practical
Extraction
Report
Language
(実用データ取得レポート作成言語)
と
Pahtologically
Ecletic
Rubbish
Lister
(病的に様々な要素を取り入れたポンコツリスト出力機)
を並べて見ると、ついにやにやしてしまう(・∀・)

53 ：
彼にPerlじゃなくてRubyをすすめたい
今度こそあきらめない
http://d.hatena.ne.jp/electricity/

54 ：
>>53
> http://d.hatena.ne.jp/electricity/
この人、知的障害者かなんかなの?

55 ：
>>54と同程度には何とかまともらしい

56 ：
>>53
そうだね。Rubyにでも行ってほしいなあ。

57 ：
いやーホントRuby信者ってキモいですねー

58 ：
『Perlクイックリファレンス』（ラクダの頭本）は必携だよな

59 ：
ラクダ二頭買えばそんなのはいらない

60 ：
近所のブックオフみたいなとことで
昔の１冊本が２００円なのですが、これは新しい２冊本でないと
用を成さない物ですか？

61 ：
いままでなくて困っていなかったのなら、これからもなくても困らない。

62 ：
2012年12月25日に正式版リリースとみた
Perl 6、2010年4月登場
http://journal.mycom.co.jp/news/2009/08/10/021/index.html

63 ：
>>60
対応するPerlのバージョンが古すぎるのでコレクション目的じゃなければやめとけ。

64 ：
ブックオフとか10円でも要らんわって感じのゴミみたいな本しか置いてない

65 ：
ブックオフは専門書を買い取りたがらないからねぇ

66 ：
岩波講座ソフトウェア科学を一冊500円で買いましたよ。> ブックオフ

67 ：
型グロブのsigilであるアスタリスク（*）がワイルドカードを表していることを知って、型グロブのことが
少し分かった気がした。

68 ：
Perl 5.10.1がリリースされたね
404 Blog Not Found:#perl - 5.10.1 released!
http://blog.livedoor.jp/dankogai/archives/51277869.html

69 ：
my @arr = qw(a b c);
はよく使うけど、
my @arr = qq($a $b $c);
があるとは知らんかった。


70 ：
>>69
それ意図した結果になる?

71 ：
>>70
よく見たら、$arr[0]に全部突っ込まれてたわ orz

72 ：
qq($a $b $c)は"$a $b $c"と同じだからな。

73 ：
>>69
my @arr = ($a, $b, $c);
と文字数が同じ件。

74 ：
, の横に空白があるのか。なんか無理やり合わせたって感じ

75 ：
>>74
おいおい接続','の後には空白書くだろ普通。英字タイプ時代からの作法。
たまに詰めて書く人いるけど見苦しくてやだ。

76 ：
実際、qqwとかがあったとして需要はあるんかいな？

77 ：
>>76
エスケープやクオートがうっとおしいからqqやqwがあるわけで、
変数展開するqwとか別にいらねっつーかメタ文字気にしなきゃいけない分
余計かったるいというか。

78 ：
my @arr = qq($a $b $c $d $e $f $g $h); は38文字 勝った！
my @arr = ($a, $b, $c, $d, $e, $f, $g, $h); は43文字 プギャー！

79 ：
>>78
5文字しか変わらないし可読性もあまり変わらない罠。意味ない。
@arr = ("hoge", "fuga", "hage", '""', "'a");
@arr = qw( hoge fuga hage "" 'a' );
は明らかに後者が読みやすいし文字数も少ない。

80 ：
>>78
意味ちがうんじゃね？

81 ：
>>80
qqが変数展開のある配列にしてくれると仮定した場合でないの？

82 ：
おまいらこれ行くん？
企業にも個人にも役立つ！　Perl技術者向けのカンファレンス「YAPC::Asia Tokyo 2009」開催へ
http://news.livedoor.com/article/detail/4330843/

83 ：
馬鹿者、行かないやつがあるか。
これ受けるために台湾からわざわざ来てた人もいたくらいだ。
ちなみに、今日そこで聞いてきた話だが、どっかのスレで、Perl6のハッシュの表現が、
%foo<'abc'>
のように大なり小なりになってるのを不思議がっていた人がいたが、答えは、
Perl6では、全ての { .. } がクロージャとみなされるからだそうだ。

84 ：
>>83
クロージャ？
ブロックでなく？

85 ：
htmlに埋め込むのがメンドウになるな。
perl終わったな。

86 ：
互換性をなくすのなら、$@%&*もとっぱらっちゃえばいいのに

87 ：
>>82
行かない。時間の無駄。

88 ：
そもそもチケット売り切れだからフラッといってもダメだろ

89 ：
YAPC、これ以上参加者を増やそうと思えば、内容のレベルを下げないと駄目だろうな。業務で普段からCatalystやMooseを使っているプログラマーじゃないと、参加してもまったく意味不明な話ばかりだからな。

90 ：
>>84
Perl6では全てのブロックはクロージャと呼ばれます。
>>85
今どきHTMLドキュメントに直にハッシュ埋め込んで困るケースなんてあるの？例えば？終わってるのは(ry
>>86
逆に$@%&*を利用しなきゃならん場面は増えるし、（連想配列の参照は$foo{'abc'} -> %foo<'abc'>）
それを歓迎する人は恐らくいないので、何でもスカラにリファレンスで突っ込んで使うのがよりモダンになるだろう
というのがdankogaiの見解。$@%&*が嫌ならPHPなりJavaなり勝手に使えとかそういう話。
>>87
ああ、確かに。一定のスキルのないと訳わかんないだろうし、英語わかんない人は時間の無駄だわな。

91 ：
>>89
興行じゃないんだからさ、参加者数なんてある程度集まれば充分なの。
チケット早々に売り切れたっつーのに参加者増やしてどうするつもりだよｗ
一定のレベル保ってるのが売りなのに参加者増のためにレベル下げるとかｗ

92 ：
今回の目標は、このイベントというかPerlをもっとエンタープライジーにすることだろ。
そのためには、Perlを利用してない会社、プログラマーも参加出来るようにするのは方法の一つ。
まあ、最初のセッションみたいにひたすらミクシイアプリの宣伝聞かされるのは確かに苦痛だけどな。

93 ：
ヒタヒタと打ち寄せる権威主義の波

94 ：
>>92
>>91だが、講堂を5箇所くらいにして、残り2つで企業向けとか初心者向けの講演をするってのはありかもな。
アプリの宣伝って初日10時からのか？興味ないから朝飯食って芝生で寝てたわ。行かなくて良かった。
あと流行ってもいない聞いたこともない作者も誰あんた？なオレオレモジュールの講演も超うざい。
YAPC::Asia 2009 俺的まとめ
-----今回の頻出モジュール-----
Moose 前提
Catalyst 前提
AnyEvent
Coro
*::Engine
*::Async
---頻出主題(交錯してまつ)----
PostModern Programming (FW, Async, ED, Sustain)
Flamework
Async. / Thread
Event Driven Programming
Scalability
Perl6 (Rakudo, Pugs)
PSGI
----- :P ------
AnyEvent::* may sucks
POE sucks
Perl thread sucks

95 ：
>>90
＞Perl6では全てのブロックはクロージャと呼ばれます。
マジすか！
Perl6がますます怖くなるな…。
ちなみに、そのクロージャというのは、
意味的にもいわゆるクロージャのことで
おｋ？
subとか不要になるの？

96 ：
>>95
そのくらいぐぐってくれ。クロージャっつっても語義広いから注意な。

97 ：
　　　　 ...|￣￣ |＜ご苦労じゃ
　　　／:::|　　___|　　　　　 ∧∧　 　 ∧∧
　　/::::＿|＿＿_|＿　　　（　｡_｡）.　 （　｡_｡）
　　||:::::::（　・∀・）　　 　／<▽>　 ／<▽>
　　||::／ <ヽ∞/>＼　 |::::::;;;;::/ 　|::::::;;;;::/
　　||::|　　 <ヽ/>.-　|　|:と),__｣ 　 |:と),__｣
＿..||::|　　 o　　o　...|_ξ|:::::::::| 　 　.|::::::::|
＼　　＼＿_(久)__／＿＼::::::|　　　 |:::::::|
.||.i＼　　　　　　　　､__ﾉﾌ ＼|　　 　|:::::::|
.||ヽ .i＼　_ __ ＿＿＿＿ __ _.＼　　 |::::::|
.||　ﾞヽ i　　　 ﾊ i　ﾊ i　ﾊ i　ﾊ　|　　し'_つ
.||　　 ﾞ|i～^~^～^~^～^~^～|i~

98 ：
>>95
とりあえずPerl6に行きたい人はMooseマスターしとくと吉。
MooseはPerl6のアイデアをPerl5で実現するためのモジュールと言って差し支えない。
それか、Pugs, Rakudoをインストールして実際にPerl6に触れてみるか。
PugsはPerl6の仕様に近いが、コンパイルが超めんどくさいらしい。
Rakudoはまだ挙動が怪しいが、コンパイルは比較的簡単に通るらしい。
なんか、現状だとPerl6ってのが仕様で、PugsとRakudoが実装みたいなことになってる。
リリースする時には統一するんだろうけど。多分。

99 ：

　　　　　　　　　　＿＿＿
　　　　　　　＿／川川川＼__　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　/||/川　 ＼||||川||| ＼　　　／
　　　　　　||川||| ∩　 卅川川川　 ／　ふわふわムースが
　　　　　　　 （||　 ・　　・　||） 　　＜　 　くちのなかで とけぇんねんっ(はぁと)
　　　　　　　　 人 " ∀ "刈　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　 　 　┌―┐/⌒ /乂ノ⌒ヽ ＿＿＿
　 　／~|^^^^|（⌒○ § ○⌒）　　　　~＼
　 　==└―┘== == == == == == == ==
　　　　　┃ 　 　 　 　 　 　 　 　 　┃
　　　　　┣━━━━━━━━━┫
　　　　　┃　 /_Υ⌒Ｙ⌒Ｙ_ ＼ 　 ┃
　　　　　┃　 |　 |　　∧　ハ.￣| 　┃
　　　　　┃　 |　/___/　 ＼__＼||　 ┃
　　　　　┃　　/　/　　　　＼._＼　┃
　　　　　┣--/ ノ--------┼-》-┫
　　　　　┃　Ｌノ　　　 　 　　 し'　 ┃

100 ：
100GET!!

101 ：
このスレッドは１００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

102 ：
そんなアホな。。。

103 ：
>>98
統一とかそういうもんじゃない。
Pugsは試験的な参照実装。

104 ：
if ( $str =~ "abc" ) {
というステートメントを見て、この人、
if ( $str eq "abc" ) {
と
if ( $str =~ /abc/ ) {
がごちゃになってると思ったけど、正規表現の区切り文字って、別に / / でなくてもいいんだね。

105 ：
最後の一行後半以外、不要だな。

106 ：
>>104
正規表現の区切り文字がなんでもいいのではなくて、=~演算子の右辺が式のときは
値をパターンとして解釈するだけ。見かけは一緒だけど\に注意。正規表現の区切り
文字を変えたいならqr使え。

107 ：
>>106
qrなんか使わなくてもmを接頭すれば充分。qrは括弧類が通るのが売り。
print "whoa" if $a =~ m"aa$"; # OK
print "yeah" if $a =~ "aa$"; # Syntax Error
% perl -e '$a = "foo"; print "whoa\n" if $a =~ m"foo$";'
whoa
% _


108 ：
mもquote-like operatorだからカッコ使えるよ。
% perl -e '"hoge" =~ m(hoge) and print "match";'
match
qrとmは別物だろ。単独で使ったときmは$_とマッチして
結果を返すけど、qrは正規表現を表す値を返す。
% perl -e '$_ = "hoge"; print m/a/ ? "true": "false"'
false
% perl -e '$_ = "hoge"; print qr/a/ ? "true": "false"'
true

109 ：
Pythonより上なのが意外
TIOBE Software: Tiobe Index
http://www.tiobe.com/index.php/content/paperinfo/tpci/index.html

110 ：
こんなのドメインの選び方次第。

111 ：
>>109
普及度のランキングだろ。それにPosition 2008とかDeltaとか見ると分かるが、
去年はPython-Perlの順で、今年になって1ポイントも急落してる＞Python。
あと、本文をみるとものすごく恣意的なランキングだということが分かる。
> The ratings are based on the number of skilled engineers world-wide,
> courses and third party vendors. The popular search engines Google,
> MSN, Yahoo!, Wikipedia and YouTube are used to calculate the ratings.
適当訳：この格付けは世界中の、熟練したエンジニア、講座、サードパーティー
の数を元にしている。格付けの計算には普及しているサーチエンジン、Google,
MSN, Yahoo!, WikipediaやYouTubeが使われた。
メチャクチャだろこれ。
CとかJavaとか言語名でググって、検索結果の数足し算して、母数で割っただけじゃないのか？
PHPは会社名だったり通貨だったりするし、Javaは地名だし、Pythonは生き物の名前だし、
そんな統計に意味があるとは思えん。

112 ：
Perl 5系もまだまだ頑張るんだね
「Perl 5.11.0」リリース　次期安定版のバージョン5.12に向けた開発版
http://codezine.jp/article/detail/4470

113 ：
スマートマッチ”~~”があるから、==、eq、=~の使い分けの必要性がなくなったね

114 ：
なくなりゃしないだろ。

115 ：
むしろバカはより混乱するようになったかと。

116 ：
PHPの==みたいな感じか

117 ：
誰か質問スレのスレ立てをよろしく

118 ：
>>117
立てました
Perlについての質問箱 42箱目
http://pc12.2ch.sc/test/read.cgi/tech/1257139591/

119 ：
Perl.5.12リリースあげ

120 ：
ActivePerl-5.12.0.1200 で
ppm install dbd-mysql ができん！
うんこ！

121 ：
5.8 5.10 5.12の違いがいまいちよくわかんね

122 ：
5.8 -> 5.10 //便利だろ
http://perldoc.perl.org/5.12.0/perl5120delta.html
5.10 -> 5.12 \N便利だろ
http://perldoc.perl.org/5.12.0/perl5120delta.html

123 ：
5.10 -> 5.12
ppm install dbd-mysql ができん！
ppm install jcode もできん！

124 ：
だから最新のを使いたければActivePerlは諦めろとあれほど

125 ：
>> yada yada operator
なにこのネーミングｗｗｗ

126 ：
blah blah blah
yada yada yada
みたいなもんだよ

127 ：
Perl6はどうなってんのよ

128 ：
Effective Perl Programming: Ways to Write Better, More Idiomatic Perl, 2nd Edition
http://www.informit.com/store/product.aspx?isbn=0321496949&rll=1
突然近刊リストに載っててびっくりした
Randal Schwartzは外れたのね

129 ：
>>128
日本語版が出るのはいつだろうか。
その頃にはPerl6がはやってて、Perl5は廃れてたりとかｗ

130 ：
>>129
Perl5とPerl6は違うものだから廃れはしないよって。
Perl6もやるとは思うけど、Perl5の$%@が好きだからこのままPerl5使いたい

131 ：
てっきり日本語かと。
嫌だ、嫌だ、経営者


132 ：
>>128
誰か買いました？
Effective Perl Programming (2nd Edition)
http://www.amazon.co.jp/dp/0321496949/

133 ：
買いますたよ
英語がネイティブ向けっぽくてちょっと読みにくい

134 ：
>>133
どうですか？
良さそうな本でしょうか？

135 ：
>>134
http://www.informit.com/store/product.aspx?isbn=0321496949&rll=1
http://www.effectiveperlprogramming.com/

136 ：
>>133
じゃあ超訳に期待。ｗ
つか、されるのか？

137 ：
もう本がいらないくらいにPerl理解したから、いまさら感があるんだが、
それでもPEｒｌの日進月歩の進歩確かめたい人が買うのかねぇ
しかも原書で
もっともネットのドキュメントも英語だから気にならんけど・・・

138 ：
そういう人は本を書く側に回ればよろし

139 ：
はてなダイアリーで連載するのはやめてくれよ
あそこ糞重い上に見通しが悪い
最近じゃ糞の役に立たんリファレンスっぽいものを書いてる奴までいる始末だし

140 ：
ブログは後々読み返すのが難しいから技術的なことを書く用途には使わないでほしい。
というか技術的なことしか書くことが無いなら日記なんてやめてしまえｗ

141 ：
そういうのは目次用のページ（もちろん日記で書く）を１つ作ればいいだけ

142 ：
確かに最近はブログ以外に書く人少ないな
はてなダイアリーで調べるのに何の違和感もなかったｗ

143 ：
>>141
その目次を開くのも重くてな
SEOで検索にも引っかかりやすくなってるし、いいことない

144 ：
どんなPC使ってんだ

145 ：
PCの問題じゃなくて相手の鯖の問題だつってんだお

146 ：
良いブログは良いんだが、
自分は理解する能力の無いお馬鹿ちゃんなので上手くできませんでした。まる。
みたいなブログに埋もれちゃってるんだよねｗ

147 ：
はてなは重い・役に立たない情報なのに検索順位が高いからやっかい

148 ：
PerlフレームワークCatalyst完全入門

149 ：
高い。

150 ：
Perl(R)は株式会社テラ・インターナショナルの登録商標です

151 ：
Perl大冒険というの書いたからみてください
http://d.hatena.ne.jp/treeboa/20100721/1279727273
現在は１～５巻までです　技術的な用語あったら教えてください

152 ：
オレはきずいたらPerlという重力が０．５倍で暮らしていた
perl星の敵は楽勝だろうとなめていた
この星では通訳者がメモリ管理してくるし・・・すみごこちがよかった
そして地図を片手にwebアプリの洞窟へむかつのであった
途中には　$や@,%みたいな意味分からないオブジェクトが散乱していた
向かう途中 use strict　＋　use warning兄弟というやっかいものが参上してオレの行く手をはばんだ・・・
オレは必死にアロー演算でつきまくって攻撃してもやつらの　怒鳴り声はとまらない
myとかいわないと　自分の名前を名乗れとかほざかれて怒鳴られて殴られる
この兄弟を無事に倒すと楽な道に進めるが
こいつらを相手にしないと、過酷な道で遠回りになるときいた・・・
俺は倒すときめた　オレ「しねえ！！」とパンチしてみるが　強すぎる
strict/warningの鬼「ｸﾊﾊﾊﾊﾊ　お前良いメモリもってるな　住み心地が良さそうだ！」
俺の体の中にはいる
オレ「グワアアアアアア！！」
もう痛苦しくて休憩した
そして歩き続けた
途中でCPANというお店に立ちよって武装するが、LWPが人気なのでそれをかっといた
さまよってるうちに、製作所みたいな場所にたどりついた・・・
なんかオブジェクトといってモノをつくっている
オレ「なにつくってるの？？？」
？？？「newつくってんだよ・・・」
オレ「そんなの作る必要ない　そこらへんにおちてる」
？？？「この星ではnewは自作しなくちゃいけないんだよ・・・」
オレはよくわからずとりあえず　webアプリの洞窟まですすんでいった・・・
この国はおかしいときずきはじめた・・・道ばたで土下座してる人がいた　さっきの街でみかけた
？？？という金の仏像の方角をむいて　皆おがんでいるのである
薄々きがつきはじめた　宗教なんじゃね？って
なんかcatalystとsledgeっていう伝説の剣があるらしくて
それは困難をくぐりぬけた者しか抜けないのであるときいた
オレはそれを抜こうとしたが　ピクりともいわなかった　
もうオレはつかれたから宿でねることにした

153 ：
オレは目が覚めた・・・
ふと思った。
この星にきてまだ１日目　自分が最初にいった　C星にいたときとの重力が違いすぎて体が弱くなった
C星の時に、宇宙旅行でObjective-C星の旅行プランを立てて雑誌等を見てみて　良いなーって思っていたのであった
っで２年前に、Objective-C星に言ったときは、オブジェクト指向という街の方針をよくよんでなくて住み心地がわるかったのである・・・
その理由は家にすんでいた時に、その星はおかしく　夜中になると毎日dealloc大魔神という破壊神が家を壊しにくるのだ・・・
だからretainという魔法を使って星の住民は毎晩家をまもっている　そして朝に魔法を解除しないと外出ができなくなる
そのためにreleaseという魔法をつかって結界を破壊するのである。　そんなめんどくさい星にはいたくない！という過去の事を思い出した
悩んでる結果　Perl星への旅行が決まったのである、その結果が今である。
今現在はまだ慣れてないだけであって苦労している。そしてwebアプリの洞窟を目指している途中 MySQL大図書館という所に立ち寄る
そこは膨大な本が置いてあり、一人の魔法使いらしき男が「select! insert!」などと杖をもって叫んでいるのである
オレ「ほ～～～こうやって本を魔法であやつっているんだ」と思いみていた
そしたら横にいる戦士っぽい人が「param! fetch!　サニタイジング剣法！！」といって本をばしばし切り裂いている
すごいと思い話かけてみると、「XSSって言う危険な生物が入り込んでる場合があるからね」１回本を切り裂いてチェックしてるんだよ
戦士「もしかして、君はwebアプリの洞窟にいくのか？」
オレ「うん」
戦士「よかったらこれをもってくんだ　 mod_perl2のお守りだ　これをもってれば洞窟の強力な磁場に耐えられる　もってないと体が張り付いて重くなるんだ」
戦士「あとこれもだ　DBIの剣 CGI.pmの盾　MySQL図書館の受信機　これくらいあれば安心して探索くらいはできるだろ　健闘を祈る」
オレは進んでいった　進んでいる最中に　すごいでかいモンスターがでてきた

154 ：
ハッシャー「我はハッシャー・・・　お前がここを通るなら我はお前を倒す」
オレ「さっきもらった　武器があるからいける！！」
オレ「hassher?attack=9999999&fireelement=100&send='%20%00login.html」
ハッシャー「そんなもの効かないよ　バリバリ　はははははは！！！」
オレ「！！！・・・」
ハッシャー「しねえ！！ハッシャースライス！！！　ブハンブハンナウブハン！！　（岩がまっぷたつ」
オレ「なんだあれは？！　　やばいほんとに　よけないと」
と思って避けたが　足にヒットしで大けがをして動けなくなってしまった　オレはwebアプリ洞窟にいくまえに訓練場にいっておけばよかったと後悔して
ハッシャー「R！」　おれは死を覚悟した・・・
そのとき！！　？？？「くらえ・・・」
？？？「念のため・・・$SIG[ALRM] alerm 20 ｘｘｘｘｘ」
？？？「killall -hasher・・・ rm -rf ps aux 完了」
ハッシャー「うわああああああ！！グアアアアア！体が　やめろ・・おまえは・・・」
？？？「PSGI PSGI・・・ node.jsハッ！！！」
ハッシャー「苦しい　毒がからだに・・・」
？？？「これで終わりだな・・・」
ハッシャー「うははははお前もこれで道ずれだ、ハッシュ解放・・・」　ハッシャーの腹から沢山のモンスターが溢れかえった
？？？「２０秒経った」といったあと　一気に沢山のモンスターが消えていく
オレ「助けてくれてありがとう」と言おうとしたら姿を消していた
近くにいた老人「あの人たちはPerl大国ジパンーグを守る　JPAギルドの聖騎士たちじゃよ　そりゃ強い　その強さは・・・」

155 ：
そしてオレは　そのギルドJPAの後をおった・・・そしたらだんだん気が遠くなってきた
気がついたらパソコンの前にいた、今までのは夢だったのろうか　いやちゃんと痛みもあった
時計をみてみたが　全然時間が経っていなかったのである。
とりあえず気にせず Perlの勉強をしようとしたら　本が見当たらない
オレ「じゃあ　インターネットでPerlしらべるか～」
カタカタ・・・
オレ「あれ？Perlの情報がヒットしない　でてくるのは真珠とかだけだ　プログラミング　perlでもでない」
なんかおかしい　異変にきずいた　JPAのサイトを見に行ってみたがそんなサイトは無かったのである
オレ「もしかしたら・・・　この世からPerl言語が消されたのか！！？」
オレ「夢らしき世界の最後の時に、？？？と名乗る人物が「この星には未来がない　立ち去れ・・・」といっていたのを聞いた気がする」
消えてるっておかしいだろ？！そんなことはあるはずない　と思いツイッターでPerlをやっている人のページをみた
口をそろえてこういっている
「Python最高！」といっている　これは何かの間違え
ツイッターでPerlはどう？と質問したら　Perlってなに？と回答される
オレはおかしさのあまりIRCにいった　そしたら
「俺も変な夢をみた　Perl星という世界で、敵に襲われていた旅人を助けた」
「Perlがこの世から消されているきがするんだけど」と会話しているのがきこえた」
どうやら記憶がある人たちがいるようだ　でも問題は、どうやって記憶を取り戻すか
この星に言った人たちはPerlプログラミングの作業中に突然意識を失って　perl星へいったといっている
pythonとの因果関係　なにかが裏でこの世界をpython色で染めようとしているのかもしれない
そして俺ふくめperlコミュニティの人々は立ちあがる・・・

156 ：
そして俺たちは、夜の９時ちょうどに　Perlの勉強をして再びPerlの世界へ行こうと約束をした
待ち合わせはMySQL図書館にした・・・
よしパソコンの前で勉強を開始・・・　そしてだんだん気を失っていった
オレ「あれ？・・・ここはどこだ　凄いグルグルまわっている　何かがおかしい」
オレ「break!!!」
回転がとまった・・・　
しかし、そこは一面真っ暗で何も見えない　グォオオオオオ・・・・と何かのうめき声が聞こえてくる
怖くなったのでひたすらおびえながらかがんでいた。でも早くIRCの人たちを捜さないとと困り果てていた
っとその時、突然誰かの声が聞こえた
？？？「取りあえずここは居てはまずい　他の場所へいこうか　少し目をつぶってくれ」
？？？「go to MySQL Library・・・」
オレ「すげえワープだ　こんな能力があるとは・・・」
アーヘン「自己紹介遅れました　私の名前はアヘン　IRCからきました　一応魔法使いです」
オレ「よろしく　俺は戦士みたい・・・魔法とかあんまつかえないし」
アーヘン「では　MySQL図書館へと参りましょう」
そしてMySQL図書館へ・・・
アーヘン「なんていうことだ　図書館が崩壊している　これはどういう事だ」
オレ「なんか地面や空間が歪んで見える・・・」
ジパンーグ兵「旅の人ですか？！　危ないです！！　向こうの方で巨大なメモリリークがおこっています！！逃げてください！」
オレ「メモリリーク？この星ではどんなかんじなんだろう・・・」
ジパンーグ兵「この世界では地面、物体などが全てメモリという見えない空間に格納されてできています　メモリリークが起きたらそこの空間が崩壊しはじめ異次元へと飲み込まれてしまいます！！」
オレ／アーヘン「？！」
アーヘン「このままではまずい　一時テレポートしよう・・・　目をつぶって・・・　go to mixser・・・」
アーヘン「おかしい　魔法が使えない　どういうことだ！！！！！！」
ジパンーグ兵「もう終わりです・・・うああああ・・」
ジパンーグ兵がのみこまれてしまった
オレ「やばい・・・　解放！解放！」
だめだ全然解放されない　力が足りなさすぎる
アーヘン「逃げた方が良い！！」
オレ「飲み込まれる！！！　うあああああ！！」

157 ：
誰かの声「まだ死んではいかん・・・グルウルルル・・・　お前に力をやろう　逃げろ　そうだ逃げろ！！！　お前は臆病者だ！！」
オレ「だれ？だれなんだよ！！　なんだなんだ力が湧いてくる　なんだこれは　体が再生している　早く逃げないと！！！」
シュルルルルルルル・・・ドロンッ
伝説の魔術師「dmesg... mysqlLibrary near memory Liberating!! kill 112」
伝説の魔術師「とりあえず治まりましたね　topでプロセスを監視していたんですがメモリの異常事態にきずいてやってきました」
オレ／アーヘン「あなたは？・・・」
伝説の魔術師「私はミーガワ　ではごきげんよう」
ドロンッ・・・
近くに居た老人「フォフォフォフォ・・・彼もここまで成長するとはの」
オレ「あなたはさっきも居た　誰なの？」
ンケト大王「フォフォフォフォ　気にするな　ワシは　ンケトワールドの元大王でな　ワシの魔法はもう古いのじゃよ」
アーヘン「あなたがあの有名なンケトワールドの大王様？　私はあなたのweb魔法を参考にして学んできました」
アーヘン「あえて光栄です！」
ンケト大王「ッフォフォフォフォ　まあガンバリたまえ　君等にCGIの大魔法を与えよう・・・　アンガタエ！！」
ンケト大王「param escape redirectなどが使えこなせるはずじゃ・・・」
オレ／アーヘン「ありがとう！」
ヒヒーン！！パカパカ　馬の走る音が聞こえる
JPA隊長「遅かったか・・・　もう解決していたのか」
mixser隊長「やつの仕業か」
ライブア隊長「ああ・・　やつだな」
ヒロヒロ（知恵の魔導師）「とうとう動きましたか」
オレ「あなたたちはもしかして・・・思い出せない　現実世界での企業の名前が記憶から消されている」

158 ：
オレ「初めまして　何が起きてるんですか？この前は平和だったのに！ あとヤツってだれ？」
ヒロヒロ「んー　簡単にいうと　Python帝国の皇帝がPerl大国を潰そうとしているってことだね　
あとちなみにリファレンス技とか多重アロー攻撃も身につけといた方が良いよ　ここら辺の敵は構造が複雑化しているからね　君の体には
use strict＋use warningsの鬼が入っていて、君の力を制御している　禁断の技になるが　解放したら君の体がむしば
れるよ。ピンチになったら解放した方が良い　殺されたら現実世界に戻れなくなり存在が消されてしまう
でも君の体の中には何か莫大な何者かが眠っている　それはなにかはわからないが・・・」
ヒロヒロ「そうだ君はつかれてるようだね　力をあげよう　addmemory！！」
俺「なんか体に力がみなぎってくる　すげえ～」
ヒロヒロ「これは君にメモリをあげただけ　次からは暇さえあれば、瞑想をしてください
この世界で生きるには瞑想をして空間のメモリを吸収して自分のメモリをあげていく　
メモリが０になったら死亡だ・・・こまめに休憩して瞑想すること　敵がメモリーなどクッキーを落とすので食べれば良い　自分の力になる」
ヒロヒロ「一応 scopeという魔法もつかってみて　これは相手もメモリーが数値化されてみえる　ちなみに私をscopeしてみてください」
オレ「scope!!!　ヒロヒロさんはメモリーが20MBってでた」
ヒロヒロ「ちなみにあなたは50ＭＢです」
オレ「オオオ・・・すげえ」
ヒロヒロ「たぶん現実世界の体力などが関係しているのでしょう　
メモリがあってもテクニックがないと敵を倒すことができませんよ」
ヒロヒロ「ではJPAのギルドへ案内しましょう」

159 ：
JPAギルド内ーーーーーー
JPA隊長「俺たちもうっかりしてられないぜ　北の方でゾンビプロセスたちが暴れ回っている」
ヤッホー（光の魔導師）「あーまじで？ゾンビ狩っていい？？？oppai oppai!!!」
ニンポタ（闇の魔導師）「ふぅ・・・　世界の異変で死神がゾンビとか狩ってくれないようだ　サイクルが崩れてやがる」
魔法剣士ツーカイシ「あーアーヘンさんも居たんですか　大変な事になってますね　もう一人いますね　こんにちは」
ヒロヒロ「しばらくここで休んでいてください　いつモンスターが襲ってくるかわかりません　ここはconstして結界をはってあるので　ギルドを第三者から破壊される可能性はありません」
続く

160 ：
Perl5大冒険の詳細
主人公（オレ）　白野真樹（シロノ　シンジュ）
好きな言語はPerl,Objective-C
朝起きてiBookを立ち上げ、暇だったのでパソコンをしてプログラミングをしていた
外は真っ青に晴れ、快晴でセミの音がミンミンないていつもの夏休み・・・
そしてつかれたので、寝てしまった
以降、自分がこの事件に巻き込まれることは思っても居なかった
趣味：野球　ピンポン　筋トレ　プログラマのバイト

幼なじみの　蛇山　みよし（ヘビヤマ　ミヨシ）
パソコンにあまり興味が無いらしい、だけど前に遊びにいった時、彼の部屋でPython関連の本を見た事がある
パソコンに興味ないのになんで持っているんだろうと不思議に思っていた。
趣味：バイク　車関係の映画鑑賞　酒屋のバイト

高校時代の旧友　　山下　誠吾（ヤマシタ　セイゴ）
今現在はスリランカに住んでおり
鉱石や宝石の鑑定などを行っている
白野曰く　怪力である
趣味：　ウサギの飼育　空手　柔道　筋トレ　地層調査

161 ：
マルチしてんじゃねえよ
うぜえ

162 ：
全然書き込んでねえくせに　うぜえじゃねえよバカ＾＾しね
な？しねバーカが

163 ：
この星の概要
この星では、酸素もあり呼吸もできる　重力は地球とさほど変わらない
現実世界と少しリンクしているモノがある　痛みがある
自分の体力はメモリであらわされる　呼吸など生命活動のたびにメモリーを消費していく　だから人々は、モノをたべ
メモリを確保していくのだ　人の神経を司るのはCPUクロック数が速いほど、力がある
ただしCPUが高くてもメモリがないと力を意地する時間がへる　メモリがあってもCPUが低いと非力である
モンスターも存在しており、やはり生存のため捕食する、そのため人間を狙う
カマをもったハッシャーなど　丸い形をした鉄壁を誇る　アーリー
オールマイティーなグロブー　たちの悪いモンスターは召喚といってBOTというモンスターを召喚してくる
他にはスプリッタというギタギタに切り裂いてくる凶悪モンスターも存在する　まだまだモンスターは居るようだ
そしてこの星の、時間は1279844235というエポックタイム(unix時間)である　おそらく誕生したのが１９７０年代
たぶん過去に冒険した人たちは数を多く居るのだろう、だがネットでそんな話を聞いた事は無い
記憶が消されるのか？？？
食文化
現在知っている、食べ物は、メモリなどクッキー、ルンパー（よくわからない骨付き肉みたいなモノ
とある言い伝えではexitという大魔術を使うと現実世界へ好きな時に帰れるらしい
そのため魔法陣が複雑なためC星の人々が解明を急いでいる
人種のタイプ
人それぞれタイプを持っており
Windows MacOS Linuxになっている
タイプの他には特性で、sh tchなどがある

164 ：


165 ：
perl - 勝手に添削 - Perl中級者への道
ttp://blog.livedoor.jp/dankogai/archives/51687118.html
>ああ、ラクダ本の訳者ともあろうお方が…
ここで指摘されているようなことってここまで小馬鹿にされて断罪されなきゃ
いけない種類のミスなの？

166 ：
そのブログもここでいちいち取り上げなきゃいけない種類のものなの？

167 ：
当たり前だ。

168 ：
RubyとPerl両方しった上でPerl使ってる奴ってどのくらいいんの？
Perl6構文みてたら、まだ全然Perlしんでないのは分かったんだけど
なんか、Rubyは（ まだ成しえてないけど ）大規模なソースコードも管理できる かもしれない設計になってるけど
Perlはそういうの完全に捨てて、ほんとにちょっとしたものをさっとかくだけの用途に特化していく方向に
歩んでるように見える
プログラミングの効率化を特殊変数っていう例外的なものによって作るっていう一見乱暴な手法も、
それが広まって言語使用者の共通知識となってしまえば、そこから効率は見える
特殊変数はマクロ、とまではいかないけど、平面構造的な一種のマクロ機構ではあると思う
クラスとかデザパタとか無駄なことやっていないで世界はマクロをするべきだと思う
この世界には、Ruby,Lisp,Pythonの概念しか必要ないと思っていたけど、Perlも一応含める事にする

169 ：
まず日本語を勉強すべきだと思う

170 ：
>>168
ワンライナー書けるってのをPerlは捨ててない。そんだけ。
メソッドのプロトタイプ宣言とか強制されるようになったらむしろPerlオワタと思う

171 ：
Rubyは作者がカルトの信者なのでなんとなく気持ち悪くて手を出す気になれずじまい
もちろん偏見です

172 ：
> Perlはそういうの完全に捨てて
> ほんとにちょっとしたものをさっとかくだけの用途に特化していく方向に歩んでるように見える
それこそがPerlの本来の用途でしょ、書き捨てのテキスト処理を書くための言語
ちょっと無理してた Perl/CGI の時代は終わり、本来の道に戻った…と考えるべきだと思う
そもそもWebプログラミングに使われたのは、CGIが流行り出した当時
テキスト処理が気楽にできて、かつ多機能な言語が希少だったからで、Webも「できるけど」専門ではない
今はWebプログラミングが専門の言語とかもあるんだからそっちに任せればいいでしょ

173 ：
あと「亜種・方言がほとんど無かった」ってのも当時はポイント高かったんじゃないかな
Unix系スクリプトはOS柄、総じてテキスト処理が得意だけど
一方で方言や亜種も多いんだが、Perlはそれがなかった
誰かが書いた掲示板スクリプトが、ほとんど手直しなしに他環境でも動く
…ってのがCGIの流行に拍車をかけたと思う

174 ：
perl - 勝手に添削 - Perl中級者への道
ttp://blog.livedoor.jp/dankogai/archives/51687118.html
>dieやwarnは\nでふるまいが変わる
こういう記事読んでるとPerlって適切な警告やエラーを表示しないので不適切な
コードを書いてしまう、またヘンなノウハウを山ほど知ってないと使えない欠陥言語って
印象がますます強くなるなあ。

175 ：
それどっかのスレで見たな、コピペか？

176 ：
妄想じゃね？

177 ：
>>174
組み込みのエラー報告機能を使ってればCarpとか$SIG{__WARN__} とか色々サポートがあるから
俺はwarnとかdieの方が好きだけども、
単純なのが好きなら別に print STDERR "error\n" ; die; でもいいんじゃよ？

178 ：
>>173
Perlソースをパースするのが難しくてLarry以外の実装ができなかったってのが理由？

179 ：
Rubyの連中って仮面ライダーでいうショッカーみたいだよな
松本ひろゆきをリーダーとして

180 ：
たしか、某掲示板の創設者もひろゆきとかいうやつだったな。
ひろゆきという名前は、終ってるな。

181 ：
Rubyのやつらって
眼鏡＋松本ひろゆき信者＋ＭａｃＢｏｏｋ
っていうのはテンプレくさいですねえ

棒掲示板ののひろゆき
ひろゆきっていう名前は終わってますね

182 ：
何この気持ちワルイPerl信者
Rubyをｄｉｓることしか楽しみがないのかな

183 ：
Ｒｕｂｙの奴らって赤い本もって、みんな目が血走ってんだよね
「日本発快楽オブジェクト指向言語Ruby」とかさ、　快楽オブジェクト指向言語て
快楽オブジェクト指向言語？？？？
薬でもやってるんですか？
そのうち書籍に十字架とか記されて、表紙に神父が描かれるようになって、
「まえがき」のところに十字教の教えとかが入るようになって、
本の付録に、宗教グッズがつくようになるんじゃないかと心配してる
置くだけで霊装として機能するものとか、あんまりそういうものを一箇所においてるとエンジェルフォールみたいな事態への引き金になることもあるようだし
かなり危険視している者もいる

184 ：
ﾂﾏﾝﾈ

185 ：
忍者だの天使だの
中二臭の漂うハンドルだねえ

186 ：
こいつ痛すぎｗｗｗ

187 ：
パールは糞ってのは褒め言葉%
な気がする

188 ：
>>177
エラーは吐きたいけど、終了させたくない事もあるんです！

189 ：
Perlについての質問箱 48箱目から来ました。
> 今の時代に合わない、ネットの書き込みを
> 全部排除してくれ。
> 世の中モダンPerlだけでいい。
に対して、無理に削除するんじゃなくて、だんだんと廃れて
使われなくなるのを待てばいいじゃないかと思っています。
すでに利用者がいるわけだから、供給者の都合で急になくなっ
たりしたら困るんじゃないかと思うのです。
それに古い機能はプリミティブ(簡素)であることが利点なので
いつまで経っても便利であることが変わらず、使われ続けるん
じゃないかと予想するのです。
上でワンライナーの話も出てますが。

190 ：
参考書に、jcode.plがでてくる

191 ：
jcode.pl が廃れるべきものであるのなら、とっくに
廃れてるはず。
それなのに現実の世界がそうではないのは、jcode.pl
の実装およびインタフェースのシンプルさが利用者を
安心させるのだと思う。
特に「利用者の想定と一致しない内部状態を持たない」
ことは近年にない利点なのだろう。

192 ：
jcodeなんて外国じゃ使われてないよ。
ガラパゴス技術なんてどうでもいい。

193 ：
> jcodeなんて外国じゃ使われてないよ。
需要がないんだから当たり前だろ。

194 ：
Perl4の時代ならともかく普通はJcode.pmじゃねぇの
てかEncodeじゃダメなん？

195 ：
UTF8フラグによるトラブルとLatin-1と解釈されることによるトラブルのどっちが対処しやすいか

196 ：
jcode.plはメンテされていないこと(自分でメンテすること)と、
utf8が使えないことを理解して使う分には悪くない。
楽したけりゃ、Encodeのfrom_to()を使っておけばいい。
utf8フラグにも無縁で居られる。

197 ：
Perl使えるくせにUTF8フラグ程度でトラブルの？
それって、単にPerl使えないだけじゃ・・・

198 ：
Perlが使えてもトラブる。
そもそもUTF8フラグはPerlの構成要素だと思っていない。


199 ：
utf8フラグは微妙に影響が出るからなあ。
正規表現で、全角数字が\dにマッチすることを知ったときは、悪寒が走った。

200 ：
じゃあなんでPerlという言語
に搭載されてるのさｗ
お前のPerlを押し付けるな。

201 ：
自分がPerlを使えないってことを
認めたくないのだろう。

202 ：
>>200
> お前のPerlを押し付けるな。
そっくりお返しするよ。

203 ：
まあまあ、落ち着いて。
理解できたら、使ってやるから。

204 ：
>>202
返されてもなぁｗ
俺がutf8フラグを搭載したわけじゃないし、
utf8フラグはperl言語仕様に含まれるもので
perlが使えると言いたいのなら、
当然utf8フラグも使えなければならないもの。

205 ：
>>204
お、詳しそうだね。
質問なんだけど、Encode::STOP_AT_PARTIAL()って何を意味するん？
未だに分からん。

206 ：
そこで僕は答えに辿り着いた。

use utf8; なんか使わない。
binmode STDOUT, ":utf8"; とかももちろん使わない。
文字数を数えたけりゃ decode (または utf8::decode) でフラグをつけて length すりゃいい。
substr 使うときも事前にフラグを付けりゃいい。
で、ソースとかデータは utf8 で書く。

これ完璧。

207 ：
>>204
> 当然utf8フラグも使えなければならないもの。
使えなければならないかどうかは知らんが、
使「わ」なければならないもの、ではないわな。
use utf8;とno utf8;の選択ができる仕様になってるんだから。
だったらutf8フラグを「構成要素から除外」して考えていても
「Perlを使っている」ことに違いはないんでは。
それともお前さんは言語(自然言語含む)でもなにかツール類でも、
全ての機能を知り、かつ使わなければ「使える」と言っちゃいけん、って考えなのかい。

208 ：
この糞ジャップはモダンPerlに洗脳されてるから
utf8の全てを学ばないと気がすまないジャップ
早くR
だいたいのフィーリングでやれよ糞ジャップわかったかR

209 ：
殺伐とした雰囲気は嫌いじゃないけどさ、
ム板もラストマンが増えすぎだよ。

210 ：
>>205
UTF8の2byte文字、3byte文字の途中で文字列が終了していても、
malformed byteとして扱わずに残りはほっといて終了する。
何度もバッファリングしながら読む時に便利。
HTMLやXML等のパーザ書いてる人は結構使ってる。
encode.c:process_utf8(dst, s, e, check, encode, strict, stop_at_partial);
が本体。

211 ：
>>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";
}

212 ：
>>209
なんだラストマンて
英語のlast manとは意味が違うようだが

213 ：
>>205
それってundocumentedなフラグらしいじゃん。
なんでそんなマイナーなのを持ってくるの？
お前の基準がわからんｗ

214 ：
>>207
別に初心者はPerlを使うなとは言ってないから安心しろｗ
Perlのすべてを知ってからPerl使う人はいないだろ。
何も知らない初心者から、どんどんPerlを知って成長していく。
だから全部知る必要はないが、Perlを使えるという最低条件の一つがutf8フラグ。
ワイン好きなら美味しいワイン、まずいワインそれぐらいわかる。
いろんな種類を飲んで自称ワイン好きというのは構わない。
もちろんワインを飲んで構わない。
だがソムリエと言いたいなら、最低限のレベルってものがある。
Perlもそういうことだよ。プロの間で「Perlを使える」と言っていいのは
utf8程度、当然知っているべき最低限の知識だ。
お前はPerlを触ってるだけ。

215 ：
>>214
> Perlもそういうことだよ。プロの間で「Perlを使える」と言っていいのは
> お前はPerlを触ってるだけ。
俺基準炸裂乙
> プロの間で
何度読んでも笑えるわ

216 ：
はて？ utf8知らないんだよね？
知らないのに、Perl使えるって自慢したいの？ｗ

217 ：
レベル低いのが、俺は低くないんだ！って言ってるのか？ｗ

218 ：
>>189
まあ、
> > 今の時代に合わない、ネットの書き込みを
> > 全部排除してくれ。
> > 世の中モダンPerlだけでいい。
なんてことを本気で言ってる奴はただのバカなんで単に放っておけばいいでしょ。
Perl使いはTMTOWTDIなところが好きで使っている人も多いと思うんで、
一律にオレの理想のPerlしか認めんみたいなバカは2chの匿名板以外にはきっとあまりいないでしょ。
昔書かれた古い情報ならそれがいつ書かれたのか確認できるようにすればいいだけの話で、排除までする必要もないし。
モダンじゃない書き方を示されたらモダンに書くならこうですよ、と別途提示すればいいんだし。
モダンな書き方のメリットも強調したいならどうしてその方がメリットばあるのかも含めてね。

219 ：
>>218
やり方は一つじゃないのと、
やり方を一つしか知らない のは
全然意味が違うぞｗ
自分一人でやってるなら自分のやり方だけ知ってればいいだろうが、
他人のコードを読んだり修正するのであれば、別のやり方を知らないといけない。
自分が使わなくとも、やり方を知らないといけない。
マイナーなモジュールならともかく、Perlに標準機能として搭載されている
文字コード関連技術ぐらい知ってるのが当たり前だろう。

220 ：
>>219
> やり方は一つじゃないのと、
> やり方を一つしか知らない のは
> 全然意味が違うぞｗ
当たり前だ。
>>189 のどこをどう読めば「やり方を一つしか知らなくてもいい」と言ってるように読めるんだ？
貴様は文盲か。

221 ：
UTF8というコードの扱い方も一応複数あるんだよなそう言えば

222 ：
そもそも文字列なのかバイト列なのかというのは二者択一
ではなくて、おいらの頭の中でいいあんばいで処理して
いる。
それを処理系でマネをしようとしてutf8フラグなるもの
をこさえたんだけど、おいらの頭の中をうまいこと再現
してくれるわけじゃなくて、ギャップにぷぎゃーって
なるんだよな。
わかる？ぷぎゃーって？
コンピュータにはそれが分からない。

223 ：
だから普段はuse utf8しないで、substrとか文字数カウントとかしたいときだけフラグ付けりゃいいじゃん

224 ：
>>222
抽象化能力がかけてるの？
文字は文字であって、それがどんなバイト列なのか
意識したらダメだよ。そんなものを意識すると
バイト列が変わっただけで混乱してくるでしょ？
ぷぎゃーってなってるのは、文字とそれを構成するバイト列。
つまり、文字集合と符号化方式を頭の中で切り離せてないからだよ。
Unicode と UTF8・UTF16・UTF32などの違いをしっかりと学習しようね。

225 ：
>>224
>>199

226 ：
>>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０-９]と等しくなるようです。

227 ：
RubyもJavaもpythonも関係なくて、関係あるのは今まで
使い続けたPerlなわけで、別に Unicode 時代をお招きした
つもりもないんだよね。
で、\d はこれまで [0-9] と同じってドキュメントに
書かれていたわけだから、Unicode に対応したからって
それが勝手に変わってしまうのは困る。
なぜかというと \d でマッチした内容は、テキストデータ
に埋め込む数字の文字列としても使うし、数値として計算
対象としても使うから。
そこんところをいいあんばいに混ぜて使っていたのが、
Unicode 対応という理由によって使いにくくなってし
まった。一体、何のための Unicode 対応なのか。
>文字は文字であって、それがどんなバイト列なのか
>意識したらダメだよ。そんなものを意識すると
>バイト列が変わっただけで混乱してくるでしょ？
いや、してこない。
（混乱するあなたをどうこう言うつもりはないけど）
処理系のために切り離さないといけないのは、設計思想
としてうまくないと思う。

228 ：
文字列として見たら５も5も同じ。
そうゆう意味ではフラグが立ってる時の\dは全角半角関係ないのは分かる。
が、227の言い分もわからんでもない。
そんな自分は [0-9] って書いてる。

229 ：
バイト列はうそをつかないけど
utf8フラグはうそをつくから使いづらい

230 ：
> で、\d はこれまで [0-9] と同じってドキュメントに
> 書かれていたわけだから、Unicode に対応したからって
初心者かお前ｗ
ちゃんとドキュメントは読みましょう。
http://perldoc.jp/docs/perl/5.10.0/perlretut.pod
> \d は数字にマッチします; 単に [0-9] だけではなく、非ローマ字スクリプトからの 数字もマッチします

231 ：
ちゃんと勉強を続けている人なら
\dは非ASCIIの数字にもマッチすると知ってる。
なぜ知らないの？ そっちの方が不思議だ。

232 ：
だから変えるなって

233 ：
変わってないよ。昔から\dは”数字”にマッチする文字クラスだ。
数字ではなく、特定のバイナリ列だと勘違いしているから
そういう間違いを犯すハメになる。

234 ：
他にも、 . （ピリオド）は一バイトではなく一文字にマッチするものだからな。
しっかり正規表現が扱うのは文字だとわかっていれば当然の結果だが、
お前の場合、日本語で.を使った場合、どうマッチするんだよ？
日本語が3バイトEUCだったらどうするんだよ。とか悩むんだろうな。

235 ：
>>233
> 変わってないよ。昔から\dは”数字”にマッチする文字クラスだ。
変わってないよ、じゃないだろ。処理対象次第で実際に振舞いが変わる。
現実世界では「変わってないよ」では何も解決せんのじゃ。
まあ高度な抽象化能力によって実際のコーディングとは無縁な
非現実の世界に生きている者にはなんの問題もないのかもしれんがな。

236 ：
>>227
Unicodeの処理系は何をしなければいけないかかっちり決まってる。
全角半角の区別は明示的に指定した時以外はしない。
どの言語、どの正規表現ライブラリにいっても変わらない。
perlだけ流儀変えたらバカ言語確定。
>>227みたいな駄々こねるバカも同様。

237 ：
> 変わってないよ、じゃないだろ。処理対象次第で実際に振舞いが変わる。
といわれてもなぁ。
Unicode非対応からUnicode対応になったんだから、
そりゃUnicodeを認識できるようになるわｗ
Unicode文字をちゃんと文字として認識させたかったんだからさ。
いつまでもASCIIのみ、まともに対応じゃだめでしょｗ
.を一バイトにマッチさせても意味ないんだし。

238 ：
まあ、とにかくやりずらくなったってことだ。

239 ：
ぷぎゃーがギャップの逆の綴りだと誰も指摘してくれない件

240 ：
>お前の場合、日本語で.を使った場合、どうマッチするんだよ？
>日本語が3バイトEUCだったらどうするんだよ。とか悩むんだろうな。
悩まない
. は1文字を表現するんだから。もちろん3バイトEUCにマッチする

241 ：
一体何を悩むんだろうな
他の選択肢を聞いてみたい

242 ：
\d の代わりに $d を使う
$d はあらかじめ qr/[0-9]/ として用意しておく
うん、おれいいこと言った

243 ：
結局実力が劣る奴が
utf8フラグを理解できずに
ファビョってただけか。

244 ：
モダンPerlしかかくな！のようなレスが発端
参考書にjcode.pl >>190
昔書かれた古い情報。モダンな書き方のメリット>>218

245 ：
発端
IO::File->new_tmpfile が「ファイルハンドルを返すもの」と理解してれば、
今の時代にこんな書き方はしない。
世の中モダンPerlだけでいい
http://hibari.2ch.sc/test/read.cgi/tech/1313840197/327-333 Perlについての質問箱 48箱目

246 ：
モダンPerlもPerlの一部だよ。
Perl使えなくて、Perl使いは名乗らないでください。
Perlちょっと触ってる程度にしてね。

247 ：
モダンPerlしか使えないおれは負け組みってことっすか。
分かりました。
これからは jcode.pl を使って書くようにします。

248 ：
>>247
そんなようだから負け組といわれる
～を使って、ではなくて、
～も使って、といえる奴じゃないと「使えない奴」と判定される

249 ：
>>245
perldocの子プロセス→ファイルの動作が、
327のは子プロセス→パイプ→ファイルに変更されてる。

250 ：
>>247
古いものは必要ない限り、勉強する必要はないと思うよ
どうせ使わないんだし。
それよりか新しいものを知っていると、
古いものしか使えない奴の先を行くことができる。

251 ：
>>250
> 古いものは必要ない限り、勉強する必要はないと思うよ
> どうせ使わないんだし。
おいおい。モダン派(w)な >>219 は
> 自分一人でやってるなら自分のやり方だけ知ってればいいだろうが、
> 他人のコードを読んだり修正するのであれば、別のやり方を知らないといけない。
> 自分が使わなくとも、やり方を知らないといけない。
って言ってるようだけど?

252 ：
>>251
「古いものは必要ない限り」って言ったよ。

253 ：
>>252
てことはつまり、「新しいものも必要ない限り」勉強しなくていい、ってことになるな。

254 ：
今後も新しいものが必要ないならｗ
そこで成長ストップだよ。

255 ：
まあ今まで知らなかった「古いもの」を新たに知るのも成長のうちだからな。
古いものは「必要ない限り」勉強しなくていい、という時点でやはり成長ストップだな。

256 ：
その通り。
そしてPerlの世界では、古いものはいつか必要になってくる。
KENT先生もそう言っている。

257 ：
使える道具は多いに越したことはないという話だな。
Perlやプログラミングに限った話でもなし。

258 ：
必要もないのに押し付けるための押売り文句として
「モダンPerl」なる用語ができたわけだ。
必要性があって作られたのなら、そんな言葉がなく
てもちゃんと広まる。今まで出てきた新機能は
そうだったんだから。

259 ：
モダンPerlは広まってるよ。

260 ：
なるほど、モダンPerlはLarryが使ってないからPerlは
このところ成長がストップしていたわけか。
今Perlの新バージョンをリリースしてるのは他の人らし
いしな。

261 ：
こいつ、そこまでPerlの進化を拒絶してるのを見ると、
Perl6に対応できるのか疑問になるな。技術力的に。

262 ：
どこからLarryが使ってる使ってないって話が湧いてきたんだ

263 ：
こいつが、誰も使ってない。
Larryぐらいしかな！って
思いたいんだろ。

264 ：
どこの世界にも、新しいものを拒絶する奴はいるもんさ。
そいつは技術者としてそこで終わりの人間ってだけだ。
卒業おめでとう。そしてさようなら。

265 ：
しょうがない、管理職になるかw
管理職スレに行きます。

266 ：
どさくさにまぎれて、Perlの進化とモダンPerlを一緒にすんな！

267 ：
>>265
それも人生の一つだよ。きっと給料も上がるよ。
よかったじゃないかｗ
あと、管理職になったら、技術に口出しすんなよ。
お前のせいで古いもののを押し付けられると、
技術者が腐っていきます。

268 ：
>>266
Perlの進化ってのは、たとえばEncodeモジュールとか
Mooseの影響を大きく受けたPerl6とか。
モダンPerlといって別に特殊なものではなく、
本来ならPerl とオールドPerlというべきだ。
モダンというのは、日本語で未来・・・ではない。
現在という意味だ。

269 ：
今度から、モダンPerlではなく
現在のPerlと言おうかなｗ
現在のPerlではこのようにするんだよとか言えば、
現在のPerlは不要！とか反論するんだろう。
想像するとなんか楽しいな。現在のPerlを否定する姿を。

270 ：
どこの世界にも、新しいことは何でも正義だと思い込んでる奴はいるもんさ。
そいつには技術が手段じゃなく目的にすりかわっちまってるんだ。
自縄自縛おめでとう。そして御愁傷様。

271 ：
Perlの進化を否定したことはないし、古いPerlを押し付けたこともない。
何かを押し付けようとも思ってない。ただ腐った部分を取り除こうとしてるだけだ。
ちゃんと読め、現役の技術者。

272 ：
腐った部分にモダンPerlという名前を付け分離可能にしたのは、人間として
多少なりとも良心が残っていた証なのだろう。

273 ：
>>270
新しくないですよ。
今のPerlですよ。

274 ：
今のPerlが使えないって、
もはやPerl使いじゃないだろｗ

275 ：
Perlを長年使っていたのに、
お前はPerlを使えないって言われたら
どんな気分なんだろうなｗ
実際今のPerlを使えないのは事実だから
反論できないだろうしね。

276 ：
モダンPerlはモダンPerlによってとって変わることを忘れるな。
過去を否定するものは自分も未来から否定されるということに
気づけ。おれが言いたいのはそれだけだ。

277 ：
モダン Perl の次はポストモダン Perl

278 ：
> モダンPerlはモダンPerlによってとって変わることを忘れるな。
当たり前だろ。それが進化ってものなんだし、
新しいものをどんどん吸収して行かないと
この業界で生きて行けないよ。
気がつくとすぐに普通の技術（モダン）に
なっているからな。

279 ：
なんかモダンPerlが嫌いになりそうだ(´-｀)

280 ：
それは勉強することが嫌いなだけ。
さようなら。

281 ：
まあ自分が嫌われてるってことは認めたくないよね…(´-｀)

282 ：
嫌うとかなんの話だｗ

283 ：
どうも　スレが盛り上がってた　と思ったら
今日は祝日

284 ：
>>281が>>282のことを嫌いってことだろｗ
Perlとは全く関係ない話だが。

285 ：
正論を言うと嫌われることが多いから気をつけたほうがいいが、
２ちゃんねるだから、そんなこと気にする必要はない。
どんどん正論言うたれｗｗｗ

286 ：
ノーサイドにしましょう、もう。

287 ：
モダン派にちょっかいを出すと反応が大きくておもしろいので
ちょっといじってみた今日は祝日ｗｗｗ

288 ：
まあPerlユーザーが、それも詳しい人達が中心になって切り拓いた到達点の一つが
モダンPerlなわけだから、Perlを使うならモダンPerlの学習は推奨されるべき
…で、確かに論理的にはモダンPerlの学習を奨めているんだが
なんか逆効果にみえるんだよなあ…(´-｀)と、ね

289 ：
モダン焼きだってできたのは昭和25年だ。モダンPerlってな一体、いつ生まれだっけ？

290 ：
perl6がいつまでたってもでてこないのが全部悪い。

291 ：
言い換えて実体が変わるなら苦労しないけどな。

292 ：
>>277
http://search.cpan.org/dist/Moose/lib/Moose.pm
> Moose - A postmodern object system for Perl 5

293 ：
モダンPerl、終わったな

294 ：
> 今の時代に合わない、ネットの書き込みを
> 全部排除してくれ。
> 世の中モダンPerlだけでいい。
っていうのも、時代が進むにつれて、自身がモダンでは
なくなり削除対象になりかけたわけだが、これで永遠に
保存されることになりました。
おしまい。

295 ：
>>294
馬鹿か？
今モダンなのが廃れてきたら、
次が流行ってるってことで、
それを使うだけの話だよ。
常に勉強し続けるというのはそういうこと。

296 ：
これからプログラマになろうとするときに goto 文を知る過程を
省くことはできない。過去を削除するなとはそういうこと。
削除してしまうと技術の発達の過程が見えないので、新しいひと
にとって魔法のように見えてしまう。

297 ：
それともネットからは排除するけど、紙の本には書き記しておけ、
ってことを言ってる？

298 ：
あ、それと勉強するな、進化するななんて一度もおれは言ってないから。
（他のひとが言ったかもしれないけど）

299 ：
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
　　　過去を削除するから車輪を再発明しちゃうんだろが
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

300 ：
>>292
既にあったのか……。
モダンといっても Moose とかは遅いこともあるんだろうし、適材適所なものもあるよね。

301 ：
Mooseは遅いだろうな
Moose Moose 亀よ 亀さんよ
って歌にもある

302 ：
>>296
だから、goto文の悪さを世間に広めて、
そして新たにはgoto文を使ったコードを書かないようにする。
ようするに古いPerlは、昔は面倒だったんですよって
教えるだけで、さっさと今のPerlに映るべき。
老害はR

303 ：
真のプログラマはPascalを使わない、ってね

304 ：
utf8フラグが原因で原子炉が暴走することを
想像できないようじゃ技術者の風上にはおいて
おけないな。

305 ：
goto文は乱用すべきではない、には同意だが
ガチガチに禁止してもねえ…
脱出判定変数を山のようにこさえられるよりは
gotoのほうがマシでした、なんて事態も…

306 ：
今の時代に合わない、モダンPerlの書き込みを
全部排除してくれ。
世の中現在のPerlだけでいい。
そしてPerlの進化はすべて禁止！
常に勉強し続けるのも禁止！

307 ：
>>305
そのへんはgoto文が悪いんじゃなくて
goto文を使うと見通しの悪いプログラムになりやすい、だから～
って事だからねえ
見通しの悪いプログラム作るなってのも、デバックしやすいように
バグが出にくいように、ってことだし
要は保守が楽でバグの無いプログラミングなら、その辺はどうでもいいわけで

308 ：
そもそもPerlからモダンじゃない部分を取り除いたら
かなりの部分がなくなっちゃうぞ、どうやってプログラム
を組むんだ？

309 ：
>>268
>Mooseの影響を大きく受けたPerl6とか。
は？
Mooseなんざ、Pugsよりもずっと後の
リリースじゃねーか。

310 ：
>>308
えっと、モダンってのは今のって意味だから
今使われてるのは（モダンな方法で置き換わってないものは）
それもまたモダンですよ。
古いPerlは取り除いて問題ない部分。

311 ：
調子のいいこと言うな、この！

312 ：
>>307
Perlもモダンじゃないやり方は
見通しが悪くなるからねぇ。
何度も同じ事を書かないといけないnewとかアクセッサ
年、月、日、ばらばらで取ることしかできない日付関数
（今はTime::Pieceがモダンかつ標準モジュール）
日本語にしか対応できないjcode.pl

313 ：
モダンってのがなんか未来みたいなイメージを
抱いてるのかもしれないけど、モダンっていうのは現在のって意味だからね。
今のPerlぐらいしっとけ間抜け。というのが
多くの人の共通意見。

314 ：
またロワイヤルWeのお前がきたか

315 ：
争点の整理
A) モダンPerlだけで済むのでそれ以外はネットから排除しろ
B) 過去のものは発達の過程が分かるようにするために必要だから削除するな

316 ：
>>312
もしかして、それが見通しの悪い例なのか・・・
いや、俺は趣味でいじっているだけだけどさあ・・・
構造化プログラミングとかとっくに死語だろうけどさあ・・・

317 ：
>>313
> 多くの人の共通意見。
詭弁の特徴の5.資料を示さず持論が支持されていると思わせる
「世界では、犬は哺乳類ではないという見方が一般的だ」

318 ：
モダンPerlerに関する中間報告書
・自分のやり方を他人に押し付けようとする
・他人の意見を聞く耳を持たない
・絶滅危惧種であることを自覚しているためか、被害妄想の傾向にある
・論点が分かっておらず、あさってな方向の議論をしがちである
・言葉の言い換えによって自己満足するが、他人には伝わらない

319 ：
モダン派の主張は争点と無関係で、軍配は徐々に B) に上がりつつある

320 ：
>>319
詭弁の特徴の5.資料を示さず持論が支持されていると思わせる
「世界では、犬は哺乳類ではないという見方が一般的だ」

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

322 ：
モダンPerlerに関する中間報告書-2
・ロイヤルWeを使いたがる
・長期的な視点でものごとを考えることができない
・グローバルであるかのように語るが、単に個人的な意見に過ぎない
・過去の情報を参照しないため、何度も車輪を再発明する

323 ：
モダン限定か非限定かに関わらず、Perl自体の使用を止めるか…

324 ：
すみません。モダンPerlって一体、何のことなのですか？
Perlのほんの一部分であるようなコメントもあるし、逆に
大部分がモダンPerlで、そうでない部分は少しであるかの
ようなコメントもあります。あるいは特定のモジュール
を使う／使わないということですか？
モダンPerlとPerlは両立しないものなのですか？
例えばモダンPerlとPerlの中間というものはあるのですか？
ここで話されているモダンPerlはモダンPerl入門という書籍
と関係していますか？

325 ：
喪男の使うPerlのこと。

326 ：
喪男(=モダン)ですね。わかります。

327 ：
Mojoというミドルウェアも聞いたことがあります。

328 ：
喪男も喪女もカバーしているのか。さすがPerlはなんでもありだな。

329 ：
モダンPerlerに関する中間報告書-3
・モダンPerlと非モダンPerlは両立しないと考えている
・「過去の情報を削除するな」が「モダンPerlを排除しろ」と聞こえているらしい

330 ：
軍配は B) に上がっているように見えるが、もちろんこれはモダンPerlの否定を意味しない

331 ：
過去の情報は「過去の情報」と書いて残しておけばいい。
メンテナンスもせずに放置するな。
それやるぐらいなら消したほうがいい。

332 ：
>>261
> Perl6に対応できるのか疑問になるな。技術力的に。
ﾜﾛﾀ

333 ：
使いにくくなることを道具の進化と考える馬鹿には
困ったものだが、所詮、固定レコード長のファイル
を扱ったことがないような連中だから相手にするのも
なあ

334 ：
Perl6はなー、いっそRubyへ行こうかと思わせるほどカオスな仕様だからなー。

335 ：
Perl6は普及した頃に改めて使うかどうか考えるわ。
それで別に遅過ぎるこたあない。

336 ：
手段と目的の区別がつかなくなっているのは、需要をもとに
開発されたわけではなくて、供給者側の技術的挑戦によって
開発されているからだと思う。
そして、それに気がついていない供給者は、本末転倒な議論
をしてしまう。
俺たちの時代にはゆとりなんてなかった訳で、基本的に需要
ベースで動いていたから、こんな時代がくるなんて悔しい
けど思いつかなかったな。
なにもPerlに限った話ではないが。

337 ：
# utf8 source
my $str = "あいうえお";
print $str.length; # 5
print $str.bytes; # 15
とか出来なきゃ perl6 なんか使いたくない。
perl5 で十分だな。
ソースに許される言語は utf8 のみにしちゃえばいいのに。
英語圏も例外なくさ。
utf-8 読み書きできないエディタ使ってるやつなんかそうそう居ないっしょ？ｗ

338 ：
Perl6はCPANを一から作り直しでしょ？
おそらくちょっとした作業の使い捨てスクリプトしか需要がないような。
Parrotの出来のほうが重要なのかな？

339 ：
>>337
> ソースに許される言語は utf8 のみにしちゃえばいいのに。
> 英語圏も例外なくさ。
なんかお前utf8わかってない気がするなｗ
ASCIIコード（文字コード127以下）だけで書かれたコードは
utf8でもあるんだぜ。

340 ：
ISO 8859-1でなくUTF-8を使えって意味にとらえた

341 ：
まあ普通に互換性切れってことだな。
ソースからEUCとか排除するっていうのは。

普通に考えればデフォルト互換性あり。
use utf8すれば、utf8のみ許されるってするのが妥当だが。

342 ：
つうか、１つのスクリプトの中でISO 8859-1とUTF-8を混在して
使って、use utf8;とno utf8;を使って切り替えようとするのが
そもそも無理なんじゃね？
JPerlのときみたく素直にUPerlを作れば解決すんじゃね？
ロイヤルWEを使うわけじゃないけどISO 8859-1とUTF-8を混在さ
せて使いたい！なんて需要は少ないと思うけど。

343 ：
> JPerlのときみたく素直にUPerlを作れば解決すんじゃね？

そしてCPANすべてをUPerl専用に書き換えるってか
膨大なばかだなお前はｗ

344 ：
むしろ6は別言語にして、Perlは基本的に5の仕様のまま枯らしたほうがいいと思う

345 ：
そのためにはPerl6っていう名前をやめてくれるといいんだけどね

346 ：
UTF-8はASCIIの上位互換だと知らずにばか呼ばわりしてすみませんでした

347 ：
>>346 自演キモい

348 ：
小学校でもパソコンを習うけどなぜか文字コードのことは習わないからなぁ

349 ：
ISO 8859-1とUTF-8を混在できるテキストエディタを自慢しても
意味ないだろうし、例えば文字コード変換プログラムのように
両方を扱う必要があるなら、どちらかを16進エスケープで書けば
すむ話だし、やっぱり供給者がドヤ顔で作っちゃったんだろうな

350 ：
何言っているか不明のドヤ顔のレスw

351 ：
CPANを書換える必要がないと読み取れれば小学生卒業。

352 ：
Larryたん息してない

353 ：
>>342
Uperlといわずに、use utf8;抜けばマルチバイト文字列で行けないか？
それと、バイナリと文字列は混在する。

354 ：
ご自由にお使いください、のフリーソフトウェアの文化と
お前らこのモジュール使え！のモダンPerl派のスタンスは
雲泥の差があるのかもしれないなあ

355 ：
>>354
ようするに、Rails否定なわけね
頭固い旧世代人さんｗ

356 ：
おい、誰だよ！Larryの呼吸器外したのは！？

357 ：
>>354
TECO Emacs時代から「お前らこのフリーのモジュール使え！」ですよ。

358 ：
強制される自由か...そりゃ息も詰まるって話だ。

359 ：
>>355
否定じゃなくて、適材適所臨機応変。
> 頭固い旧世代人さんｗ
「新」しければ無条件に良い、か。
お前の方がよっぽど頭固いわ。

360 ：
早くuse featureなしでgiven-when文が使えるようにならないかなあ

361 ：
Ｐｅｒｌ＼パールの商標登録却下おめでとうございます北畠徹也さん

362 ：
異議の決定かー。しかし、半分ぐらい雑誌紹介に見えてしょうがない。

363 ：
結局、"モダンPerl" っていうのはマーケティング用語なわけで、
技術者のおれとしてはあんま興味ないな。
ちゃんとした技術なら飾りの言葉は必要ないはずだし。

364 ：
>359
> 「新」しければ無条件に良い、か。
はて？ 誰がそんなことを入ったの？
いいものは無条件にいい。
その代表がモダンPerl。

365 ：
そもそもモダンPerlってのが
良い物を集めたもんだしな。
あ、あくまで技術力が高い人にとって
良い物だから、未だにUTF8フラグがわかんないとか
そういう初心者には、難しいものだろうね（大爆笑）

366 ：
>>359
> 「新」しければ無条件に良い、か。
つか、モダンPerlを新しいと思っている時点でだめだろ。
新しくはないぞ。
新しくないので、あんたの批判は的はずれだ。

367 ：
結局、"モダンPerl" っていうのはマーケティング用語なわけで、
技術者のおれとしてはあんま興味ないな。
ちゃんとした技術なら飾りの言葉は必要ないはずだし。

368 ：
マーケッティング用語というのは根拠が無いので>>367が言っていることは意味が無い。
あんま興味がないというのは、ただの>>367の感想なので意味が無い。
ちゃんとした技術なら飾りの言葉は必要ないといってるのも根拠が無いので>>367が言っていることに意味が無い。
>>367は全く参考にならない。
それよりも、有名な人の言うことのほうが信じられる。

369 ：
376のクソコテは有名だろ。

370 ：
っで>>367は本物なの？

371 ：
２ちゃんねるの住民が本物かどうかなんて興味はないよ。
２ちゃんねるは適当に遊んで、
参考にするなら貼られたリンクやキーワードを使って
調べた２ちゃんねるの外の世界だ。

372 ：
激同

373 ：
本音は２ちゃんねるでしかきけない。
２ちゃんねるの外はモダンPerlは素晴らしいという
ウソにまみれた良い子ちゃん発言だけだ。
そんな世界の何が信じられるというのか。

374 ：
1つの問題に対して複数の解決策を持ち、
その中から、最適と思われる解決策を選ぶだけだな。
モダンか関西風かはこだわらない。

375 ：
名無し派のYappo
Yappoは2chの歴史を知り尽くしてそうであり
2chの文化を守ってそう、彼はこの2chの中で名無しさんを今もやっているだろう

376 ：
>>374
そんな当たり前のことを言われてもｗ
特に問題は定義されているわけではない場合に
普通に書くとしたら何を選ぶかってので選ばれたのが
モダンなんだろ。
動作環境がPerl 5.6なんですってところで
モダンを使おうなんて言うわけないだろ。
お前が言いたいのはモダンが必ずしも最適解とは限らないって話だろ？
それはモダンの否定にはなってないとみなすよ。

377 ：
>>376
そりゃモダンPerl自体を否定してないもん。
ただ、一般的な選択をするならPerldocに沿った選択をする。少し古臭くても。
否定したいのは、>>354に出てくる「お前らこのモジュール使え！のモダンPerl派」。
存在するのかどうかは知らないけど。

378 ：
Perldocはコアモジュール以外を使うことを否定してるのか？
コアモジュールを使うこともPerldocにそったやり方だろ。
それも含めてPerlなんだが。
それにお前こそPerldocにそったやり方を押し付けてるようにしか見えんぞｗ

379 ：
>>377
ああ、PerldocはPerlfaqとかね。

380 ：
>>378
自分の流儀で使えばいいだろうに。
何故私の流儀に合わせるのか不明だ。
説明を要求する。

381 ：
古いやり方ってのは、Perldocに沿ってないやり方だったりするんだけどなｗ
たとえば、Perldocに沿うのであればEncodeモジュールを使うべきだし、
http://perldoc.perl.org/perlunitut.html

382 ：
それは当たり前だろう。私は私の流儀に従って使ってる。

383 ：
日付を扱うモジュールはTime::Pieceがモダンだよ。
Perl5.10から標準モジュールだしね。

384 ：
つか、Perldocに反するなら
モダンにはならないから・・・
モダン＝Perldocに沿ったやり方。

385 ：
少々古臭いやり方というのは、
たとえば、IPC::Cmdというモジュールが、5.10辺りから標準で入っているが、
perlipcには書かれていない。
この場合はIPC::Open3を選ぶかもしれないし、system()を選ぶかもしれない。
これはきっとモダンじゃない。

386 ：
IPC::Cmdが5.10に標準モジュールで入っているということは
「お前らこのモジュール使え！」ってことだ。
使ったほうがいいぞｗ

387 ：
どさくさにお好み焼の話をしてる奴がいたぞ。
おい誰かスルーしないで相手してやれよ。俺はやめとく。

388 ：
今日はちょっと熱いねwww

389 ：
どのプログラムだって、書き終わった直後から古くなっていく
わけだし、他にもプログラムは書かないといけないからいつま
でも書き終わったプログラムの面倒を見てはいられない。
そうすると、書いた当時は最新の方法で書いたとしても、時間が
たって読み返して見てみると必ず「古く」見えてしまう。
自分にとってはこれは当たり前のことだと思うし、このこと自体
に対処する必要はないと考えてるんだけど、モダン派のひとには
許せないことなんだろうなあ。

390 ：
古くからある機能はプリミティブなわけで、それが問題の
解決策(ハック、ソリューション)となる場合は長期的に
利用されることだって多々ある。
その部分も "モダンPerl" に含まれるってコメントを上で
見たけど、そうなってくるとモダン派の主張って一体、
何なの？って思える。
一番最初のコメントの「排除したいもの」って、何なの？

391 ：
> 一番最初のコメントの「排除したいもの」って、何なの？
今となっては古いものを、古いものだと示さないで広める行為。

392 ：
その方法が解決策として優れている場合でも、か？

393 ：
>>392
当然。解決策として優れているとしても、
古いやり方と示されていないと悪でしか無い。
ま、古いやり方が最善の解決策である場合は、
限られた条件下においての話しか無いけどな。
たいていは、新しいやり方があってそっちに移行するのが推奨。
ただし、○○の場合は古いやり方を使ったほうがいい。
まともなサイトならこのような書き方をする。
新しいやり方があるのに、暗黙的に古いやり方を推奨して
そのことを全く書かないのは害にしかならない。
どうせ意図的にやってるんじゃなくて、放置されたサイトなんだろうけね。

394 ：
例
害サイト
　　文字コードを変換するのにはJcodeを使用します。

正しいサイト
　　文字コードの変換にはPerl標準モジュールであるEncodeモジュールを使用するのが推奨です。
　　ただし、サーバーが古くて乗り換えもできないなどの制約がある場合はJcodeを使用するという方法もあります。

395 ：
あと、読者を初心者あつかいして
もっといい方法を知っているのに
それを教えないサイトも馬鹿にしてると感じる。
たとえばテンプレートエンジンを使えば楽なのに、
それを知っていながらヒアドキュメントで書く方法しか教えないサイト。
実際には書いている奴が初心者なんだろうなってのが答えなのだろうけど。

396 ：
アプリケーションがある程度の大きさのものともなれば、
いくつかのシステム、サブシステムを相手にしないとならない。
それらの機能や目的、開発時期もまちまちで、1年前のシステム、
3年前のシステム、10年前、15年、20年前のシステムも当たり前
に混在してくる。
例えば、ネットワーク周りは最新のモジュールが使えた場合
でも、データベース周りは古くからあるシステムに合わせる
ために古いモジュール/ライブラリを使う必要が出てくることが
ある。GUIの部分だって顧客が「どうしてもこれで」というので
あれば技術的な観点、流行、開発者の好みと無関係にその GUI
を使わないとならない。
現実に作られるアプリケーションというのは、開発者が自由に
作れるわけではなくて、現実の制約の中で作らないといけない。
だから仕事でプログラミングする場合は、おれはモダンPerl
しか使わない、なんて小学生みたいなことは言ってられない。
どうも気になるのは、モダン派の話の中には WWW アプリケー
ションの話しか出てこないんだよな。

397 ：
だれがモダンPerlしか使わないなんて言ってるのだろうか？
なんか勝手に理想通りの敵を作って
そいつと戦ってるみたいだなｗ

398 ：
戦ってるつもりはないぞw
ところで、モダンPerl以外を排除する話はどうしたんだ？

399 ：
2011年10月1日、今日はPerlユーザにとって記念すべき日です。
それは "モダンPerl" というマーケティング用語がなくなる日だから
です。
モダンPerlというラベルがなくなっても、ちゃんとした技術は使われ
続けていくでしょうし、反対にこの言葉のおかげだけで存在していた
うそ技術・偽モジュールは廃れていくことでしょう。
それが何なのかは、あえて触れません。
なぜなら時間が(全てのひとに分かる形で)証明してくれるからです。
私たちは "モダンPerl" という言葉の終焉の証人なのです。
さあ、一緒に乾杯しましょう！

400 ：
必死すぎｗｗ

401 ：
モダンPerlに一応、区切りがついた。
追われることがなくなったので、ちょっとほっとしている。

402 ：
これからは関西風ってことか．．．
関西風ってことは、えびが関西弁でしゃべるんだろ？
「わて、ちょっと熱いねん」
なんだか食べづらそうだなあ。

403 ：
モダンって「現在の」って意味だって知ってるか？
だからモダンPerlは、現在のPerlって意味だよ。
現在のPerlは、当然ちゃんと使えるんだよね？

404 ：
ニューメディアが新しいメディアではないように、モダンPerlも
忘れられる運命にある。そんなもんだ、仕方がない。

405 ：
モダンPerl、お疲れ様でした！乾杯！

406 ：
なんでそんなに必死にモダンPerlを否定してるのだろう？
いくらお前が意見を押し付けようとも、世の中の流れは変えられないのに。

407 ：
モダン、モダンと押し付けてるのが、亀田・韓流・AKBくさいんだよ
もしくは電通
「HTML Template は古い！これからは、 Templateの時代！」とか。
Template なんざ、データ解析系にとってはデファクトスタンダード。
Web 屋のテメーが知らなかっただけだろーが、何がモダンだ。
良いものは良いで使うけど、モダン廚と同じに見られるのが
非常に気にくわない。

408 ：
きっと実体がないからだと思います。
決算報告を誤魔化して、赤字なのに「儲かってる」と、嘘を
ついているようなことを連想してしまうからじゃないでしょ
うか？

409 ：
>>403
正確には「近代的」。

410 ：
電気通信大学は確かにモダンだけど、オレはあんま押し付けられた
記憶はないなあ。
>>407
健康と命は大事だぞ ^_^)

411 ：
モダンブラウザも否定するのかな？

412 ：
否定も何もモダンブラウザという用語を知らない。
勉強不足ですまないけど、ここPerlスレなんでかんべんな。

413 ：
多分知らないから否定してるんだろうな。

414 ：
そんなことはない。知らないんで、否定のしようがない。
あ、モダンブラウザの件ね。

415 ：
本当は知らないんだから否定しようがないはずだが、
なぜかモダンPerlだと知らないものを否定している。

416 ：
もうモダンPerlの話はどうでもいいから、それらを構成している（という）
個々の技術の話をして欲しいよ。

417 ：
そうすると、粉飾だから実体は何もないんだよなあ。

418 ：
モダン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
こんなところかな。

419 ：
実態は何も無いといったのに出すな馬鹿。

420 ：
日付が変わった。
これからモダンを名乗るのは粉飾決定、な。

421 ：
一方的に押し付けられてもなーｗ
お前に従う理由なんて無いし。

422 ：
日付は日本だと和暦を処理する必要があるからなぁ。
ドキュメントを読んだ範囲でTime::Pieceのことは知ってるけど、
書かれてないことで良さがあるなら、教えて欲しい。

423 ：
電気大学があんま押し付け、な。
>>410
ありが㌧

424 ：
Moose持ち上げてる奴も恥かしくないかね？
Mooseの遅さをきちんと把握してれば、Mouseを勧める様な事はあっても、
Mooseを勧める事なんざしないと思うんだが。
そもそもカプセル化すら出来ないMoose系を使う気にもならんが。
（MooseX::InsideOut使えって？あんな重くてカプセル化不十分なもんを？w）

425 ：
>>423
てめーだれだ？

426 ：
>>424
Mooseの遅さってちゃんとベンチマークしたのか？

427 ：
> そもそもカプセル化すら出来ないMoose系を使う気にもならんが
Perlはそもそもカプセル化できない言語なんだが・・・

428 ：
EncodeとDBI以外はなくともなんとかなる。

429 ：
飛行機はなくともアメリカにいける

430 ：
それは無理だろ、そういうことを言ってるんじゃない。

431 ：
船の遅さを知っていれば、船を勧めるなんてことはしないのだが。

一つのことしか考えられない馬鹿

432 ：
>>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 ) },
});

433 ：
技術論をしたいので、ドキュメントに書かれていない良さ
を売り込んで欲しい。

434 ：
注意
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% --

435 ：
418の反論/反応きぼんぬ

436 ：
反応も何も、速さと開発効率、両方の面から考えろ
速い方法が必ずしも最善ではないことは
この業界の常識だろとしかｗ

437 ：
あと、ひとりよがりの略しかたはやめろ。
コードの見やすさを全く考えていない、
他人が読むことを全く考えてない
素人にしか見えんぞ。

438 ：
モダン派が何を言いたいのかはっきりしなかったけど418を
見て思ったのは、
「青らくだ本に載っているモジュールは古いから使うな」
ってことを言いたいのか？
それならそろそろ第4版が出るから、モダン派もそうでない派も
足並みが揃うんじゃないか？

439 ：
普通にMouse使えばいいじゃん、
開発効率、Mooseと同じで速いんでしょ？

440 ：
>>437
すまんね、公開するつもりのなかった個人の導入検討メモだ。

441 ：
>>432
おい、Moose素人か？
おまじないをしてないだろ。
遅いのは当然だ。
ちゃんと調べてこい。

442 ：
Mooseでおまじないしてないと10倍の差が出るからなー

443 ：
必ず __PACKAGE__->meta->make_immutable; を書く。
書かないとか駄目。絶対。

444 ：
「おまじない」の存在は知らなかった（恥）
Mouseより速くなるの？

445 ：
試してみそ。

446 ：
おまじないしても、良くてもMouseの十分の一くらいの速度だ


447 ：
あらためて、MouseじゃなくてMooseを薦める理由は？

448 ：
> __PACKAGE__->meta->make_immutable;
なんかやけに泥くさいな。こんなやぼったいマジナイがいちいち必要なのか、モダーンなPerlってやつは。

449 ：
>>448
それによって、もっとめんどくさい
new実装とかのおまじないがなくせるからなｗ

450 ：
それにLarryは今、ブレスしてないんだし．．．

451 ：
例えばJcode2.xは内部でEncodeを使っている訳だけど、使うと
418は反対するの？Encodeよりも後にできたのは、便利で必要
だからだと思うんだけどな。

452 ：
>>451
Perl 5.8.0 より、Jcodeの全機能は Encode module を通じて
Perlに標準装備となります。Jcodeのメンテナンスは旧Perlのために
今後も続けていく所存ですが、最新のPerlをお使いの方には、
より高機能、高 性能、そしてなんといっても標準装備の Encode の方をお薦めします

453 ：
でも便利なんだよね、Jcode。Encodeにはない良さがある。
それに内部ではお勧めのEncodeを使っているわけだし。
それともJcode相当のコードをアプリケーション内に自分で
書くのはOKってこと？

454 ：
いや、作者がEncodeの方をお勧めしますって言ってるからｗ

455 ：
それはJcode2.xがまだなかった頃の話なんじゃね？

456 ：
それにEncodeが日本語以外にも対応できるのは分かるけど、アプリ
を書くオレ自身が日本語しか対応していないわけで ^_^;
自分の読めない言語で、うっかり f*ck you みたいな出力をして
しまったら嫌だしなあ。

457 ：
モダン派も避けるPerl5.14www

458 ：
実態としては、
文字コード周り・・・Jcodeモジュール
日付まわり・・・localtime
データベース・・・DBIモジュール
フレームワーク・・・CGIモジュール
オブジェクト指向・・・bless
テンプレートエンジン・・・printf
こんなところかな。

459 ：
テンプレートエンジン・・・format
だろ

460 ：
>>455
読める？
> Jcodeのメンテナンスは旧Perlのために
> 今後も続けていく所存ですが、最新のPerlをお使いの方には、
> より高機能、高 性能、そしてなんといっても標準装備の Encode の方をお薦めします

461 ：
レス不要。
このままだと、うんこカスがこびりついたパンツを履いてる様な不快感があったので。
>>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 ) },

462 ：
% 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% --

463 ：
読めてるつもりだけど、Jcodeのおかげで食べているひとは
（数えたことないが）たくさんいるように思うし、感謝を
省くわけにはいかないな。技術論と離れてしまったがな。

464 ：
Jcodeの【全機能】は Encode module を通じて...
　　　　　　↑ここうそだよね！

465 ：
>>464
そのように書いてあるのだからウソじゃない。

466 ：
相変わらず読みにくいな。自分が読みにくいと思わないのか？
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% --

467 ：
単なるバカか

468 ：
重箱の隅を突くのみっともねえ。

469 ：
>>437のレスが何の意味だったが、さっぱりだったんだが、
サブルーチン名に噛み付いてたのか
少くとも434では、説明文まで付いてるのに。
単なる文盲じゃんw

470 ：
>>465
書いてあるのはおれも知ってるけど、書かれている内容が
うそだってこと。全機能がサポートされてるのならJcode2.x
は作られなかっただろ。

471 ：
個別に見ていくと粉飾がありありと浮かび上がってくるなｗ

472 ：
>>418
日付まわりとデータベースはモジュールが２つずつ書いてあるが
どう使い分けるといいの？

473 ：
>>429
アメリカ大使館か？

474 ：
レス不要っつったのに。
>>466
御自分でベンチ取った事無いでしょう？
どれだけ表が見辛くなるか、確認して下さい。
ttp://www1.axfc.net/uploader/File/so/69883.txt
何の為に、短めのサブルーチン名にしてるか分ると思います。
このレスにもレス不要です。

475 ：
>>470
> うそだってこと。全機能がサポートされてるのならJcode2.x
> は作られなかっただろ。
意味がわからん。
単にJcodeから乗り換えられない可哀想な人のためって
書いてあるだろ。

476 ：
>>474
CSVで吐き出せばいいだけ。
Excelで見やすくなる。

477 ：
あと、お前の命令に従うつもりはさらさらないｗ
お前は俺の命令に従って
謝る以外のレスは不要なｗ

478 ：
>>472
日付は標準モジュール or 軽いのを選びたいのならTime::Piece。
重いが高機能なものを選びたいのならDateTime
データベースは、ORMを使いたければDBIx::Class

479 ：
>>476
csv の吐き出しオプションなんざ付いてねーぞ、
態々その為にコード書くのか？
ってExcelって時点で釣り確定だろうけどさ。

480 ：
レスするなっていっただろｗ

481 ：
モダン廚は>>447に答えろ。
462は馬鹿正直に相手にすんな。
ベンチ内容に難癖付けられなくなったから、他の事でいちゃもん付けてるだけなんだから。

482 ：
ベンチ内容、Moose関係大幅に向上してるやんｗ
十分実用レベルの速度出てるよな。
MooseとMouseの違い？
MouseはMooseの機能劣化版だよ。

ってか、速度が早いことが
最善とは限らないってのは、
この業界の常識だろ。

483 ：
MooseX ＋immutable なんか
100倍になってるよね。

484 ：
かけ算も出来ないのか…

485 ：
俺の方だった。

486 ：
表の見方すら分かって無いとか

487 ：
速度の差を百分率で表示します
( (63226 - 8935) / 8935 )
100倍？？

488 ：
disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
フェースをそのまま使わなかったのか素朴な疑問なんだよ。

489 ：
思いついたままいうと、Jcode3.0とかでJcode0.xの機能もJcode2.x
の機能もEncodeの機能も実現できそうな気がするし、モダン派と
そうでない派の論争も(この件については)終結するんじゃないかと
思うんだ。

490 ：
上位互換性があると過去のバージョンとの差別化が難しいから、
キャッチコピーが使えなくなってしまうので困るってことなの
かい？

491 ：
>>488
> disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
> フェースをそのまま使わなかったのか素朴な疑問なんだよ。
おまｗ アホか、もしかしてJcode知らんのか？
Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
お前、そんなんで世界各国の文字コード全てサポートする気かよ。
それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
UTF8フラグが付いたUTF8文字と決まってる。
これがPerlが理解している文字。Perlが文字と理解しているものに対して
lengthしたら、（バイト数ではなく）文字数が返ってくるし、
正規表現でちゃんと一文字として扱える。
JcodeはPerlが文字と解釈してないものを返すので
あるべき姿のPerlの使い方に適合していない。

492 ：
>>489
JcodeはJなのに世界中の
文字コードサポートするんの？
Encodeいいじゃん。なんのメリットがあるのさｗ

493 ：
まず上半分。
>Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
>お前、そんなんで世界各国の文字コード全てサポートする気かよ。
Encodeだと引数、Jcodeだとメソッドっていうだけだと思うんだけど。
この違いで何か致命的にまずいことってあるの？

494 ：
>>492
そこは分かってるからあえてツッコまないよーに。J

495 ：
え？Ｊはじぇんぶ(全部)のＪだろ？

496 ：
下半分。
>それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
>UTF8フラグが付いたUTF8文字と決まってる。
例えば (仮称)Jcode3.x にメソッドを追加して、UTF8フラグが付い
たUTF8文字を扱うのはだめなのかい？

497 ：
>>493
文字コードを変数に入れるような場合に見にくくなる。 $j->$encode
エンコード名が間違っていてもエンコード名が間違っていますのような適切なエラーが出せない。（関数がないと言われる）
エンコード名にハイフンが使えない。
ISO-2022-JP、ISO-2022-JP-2、ISO-2022-JP-3のように、
頭がISO-2022-JPで始まるものを、すべて扱うエンコーダー（Encode::JP等）が
作りづらくなる。
エンコード名に大文字小文字を無視するように作るのが面倒
Encode::from_toのように、変数の値を、”あれ”から”これ”に変換するとき
文字コードを値で渡す方がシンプル。使い方は統一すべきだ。

498 ：
>>496
Jcodeとは違う使い方をするのであれば、
Encodeでよい。

499 ：
違う使い方にちょっとずつ移行できるところが利点。

500 ：
>>499
Jcode3.0に移行してなんのメリットがあるの？
Encodeに移行してないじゃんｗ

501 ：
Jcode.pmの中身読んで、
- 後方互換のためにどれだけ苦心してるか
- どれだけ、速度を犠牲にしてるか
見りゃいいんだよ。
議論自体吹っ飛ぶぞ

502 ：
あ、たられば論の思考実験な。

503 ：
じゃあEncodeはどうやってその問題を解決してるんだ？
Encodeの作りをJcodeのインタフェースで提供するって話だぞ。
それとこれからやるかって話じゃなくて思考実験な。

504 ：
>その問題
？どの問題？

505 ：
>>503
問題を解決するために頑張ってるのはJcodeだろｗ
Perl標準の文字にあわせて作られたEncodeは凄くシンプルだ。
Perlの文字（UTF8フラグ関係）を理解できる
脳みそ程度があれば良い。

506 ：
>>503
もしかして、JcodeはEncodeのラッパーって知らないの？
EncodeのラッパーのJcodeで、Encodeを作るって
無意味だよね？

507 ：
>>504,505
Jcodeでは
> - 後方互換のためにどれだけ苦心してるか
> - どれだけ、速度を犠牲にしてるか
に苦労しているって読めたが、
> Perl標準の文字にあわせて作られたEncodeは凄くシンプルだ。
なわけで、その実装を使ってJcodeのインタフェースを提供する
ってことだよ。

508 ：
> なわけで、その実装を使ってJcodeのインタフェースを提供する
> ってことだよ。
やっぱりお前Jcode知らんのか。
今のJcodeはEncodeの実装を使って作られたものだ。

509 ：
もちろんJcodeのインターフェースであるがゆえに、
日本語にしか対応できなくなっている。
Encodeの劣化版がJcode

510 ：
>>506,508
知ってるってば。おれ470な。

511 ：
そして、Jcodeに新たにメソッド増やしてEncodeと
同じ事を出来るようにするぐらいなら、
普通にEncodeを使えばいい。
新しいメソッドを使う以上、使い方は全く代わるわけで
なら標準のEncodeを使えばいいからだ。

512 ：
移行するのであれば、Jcodeを使いながら
Encodeを導入し、徐々にEncodeを使った方法に
置き換えていけば良い。
Jcode3.0なんてものを作った所で
Encodeには移行できない。

513 ：
>>511
それは現実の世界な。
503: これからやるかって話じゃなくて思考実験な。

514 ：
EncodeというかPerl開発者が推奨している
標準の文字の扱い方だな。
PerlがUnicode対応した時から
どのように文字を使うべきかが決まった。
外部からの出入り口で、内部文字コードに変換して
Perlコードからは文字はすべてUTF8フラグ付きのUTF8文字コードで
として扱う。それがPerl開発者が決めたルールだ。


515 ：
>>513
思考実験って言葉の使い方間違ってるぞｗ
現実を否定するのが、思考実験ではない。

516 ：
仕様と実装を分けて考えればいいんじゃないかと言ってる
訳なんだけど、どうしても切り離せないような話が返って
くるなあ。

517 ：
思考実験ってｗｗｗ
単に考えるだけで作らないって言ってるだけやんｗ

518 ：
>>517
そのとおり。なので暇なひとだけレスして欲しい。

519 ：
>>516
なら答えは簡単だ。
機能の多いもの（全世界対応）から
機能の少ないもの（日本語専用）は作れるが、
機能の少ないもの（日本語専用）から
機能の多いもの（全世界対応）は作れない。
ならEncodeモジュールを基本とし、
Jcodeはそのラッパーという仕様が一番良い。

520 ：
>>disってるつもりじゃなくてな、どうしてEncodeはJcodeのインタ
>>フェースをそのまま使わなかったのか素朴な疑問なんだよ。
なんか、488の回答の下地がようやく整ってきた感じがする。
>>519
その話の続きを聞かせて欲しい。

521 ：
>>520
>488の回答であり続き。
おまｗ アホか、もしかしてJcode知らんのか？
Jcodeのインターフェースって、jcode($str)->sjisとか ->euc とか ->iso_2022_jpだぞ
お前、そんなんで世界各国の文字コード全てサポートする気かよ。
それにEncodeとかJcodeではなくてな、Perlのコアの文字コードは、
UTF8フラグが付いたUTF8文字と決まってる。
これがPerlが理解している文字。Perlが文字と理解しているものに対して
lengthしたら、（バイト数ではなく）文字数が返ってくるし、
正規表現でちゃんと一文字として扱える。
JcodeはPerlが文字と解釈してないものを返すので
あるべき姿のPerlの使い方に適合していない。

522 ：
おれとしては521よりも519のほうが知りたかったことに近い。
うまく聞き出せなかったけど。

523 ：
つか、JcodeがEncodeのラッパーになっている理由なんて
初心者プログラマでないなら、自然と理解できるはずなんだがｗ
逆にJcodeのインターフェースのままにしようなんて
思う奴はいないだろ。

524 ：
519の話の続きにはとても価値があると思っている。でもそれは521
なんかじゃない。うまく質問ができるようになったら、教えて欲しい。

525 ：
>>524
と言われてもどっちの書き込みも俺だし
>>519の続きは>>491以外のの答えなんて無いよｗ

526 ：
おまえら熱いな

527 ：
JcodeやEncodeを作るときに参考にした座右の銘、例えばTMTOWTDI
だとか名前重要だとかに相当するものってあるの？
オリジナルのものを作るときにはオリジナルの座右の銘があるん
じゃないかって思ってるわけで、それを知りたい。
521の情報は既知なので回答としてうれしくない。

528 ：
>>527
> オリジナルのものを作るときにはオリジナルの座右の銘があるん
> じゃないかって思ってるわけで
何故？

529 ：
そもそもJcodeはオリジナルじゃねーし

530 ：
jcode.pl
- perlでnkfみたいな事したいよね
Jocde0.X
- perl4 は古い
- OOP したいよね（jcode.plの雰囲気は残した形で）
Encode.pm
- （日本語だけじゃなく）世界で使えるのって必要じゃね？
- jcode.plに何の義理もないし、インターフェースもこの際、考えなおさね？
Jcode2.X
- Encodeがあるし役目終ってると思うんだけど…
- ラッパにしたよ
jacode.pl
- 弾嫌い。

531 ：
あ、jacode.plの方が先だ。適当に書くもんじゃない

532 ：
そんなこといったら、jcode.plだってPerlだってもしかしたら
UNIXも、C言語もオリジナルではない。
ただ単に前世代をコピーし損ねることで、進化しただけだ。
まったくのオリジナルというこの世界と関わりのないような
ものはありえない。

533 ：
まったくのオリジナル←おまいは何をコピーしてできたんだ？

534 ：
>>530
互換性はあまり大事なものではない、と読み取れるんだけど、
いつの日かEncodeを自分の手でなくすときがくるのかい？
そのときは(例によって)全力で反対するからな。

535 ：
EncodeとJcodeの互換性？
重要な訳無いじゃん。別の物なんだから。
EncodeとEncodeの後継の互換性？
（あればの話だが）重要に決まってるじゃん。
但し、Perl6のE

536 ：
そもそも 6 がｗ

537 ：
>>535
今のJcodeはEncodeの機能限定版

538 ：
ラッパと機能限定版を混同するなよ

539 ：
warpperの末尾の音引きを取ると楽器になっちゃうのを発見。今更だけど。

540 ：
機能限定によってUTF8フラグがないのがうれしい。
さらにメソッド方式は失敗で引数方式に回帰なら
jacode.pl 最強？

541 ：
UTF8フラグがないことを
喜ぶのがよくわからん。
馬鹿だから理解出来ないのか？
普通に考えて、文字数数えるときとか面倒だろ。

542 ：
１回関数作っちゃえばカウント出来ますやん

543 ：
まだEncodeを使っていないジジイがいるのか

544 ：
てかこのスレの住人だってcpanmとかperlbrew使ってるの5人もいないだろ

545 ：
>>544
知らなかったけど、知った今でもそれらは使わないよ。
cpanm ・・・ cpanみたいにモジュールをインストールする奴
perlbrew・・・Perのバージョンを切り替える奴
ざっと見た感じこういうものだと思うけど、
俺にかぎらず、ウェブアプリを作っている会社なら安定性重視だから
Perlを単体で入れることはまず無い。ディストリ標準のを使うだろう。
逆にどうしても特定のバージョンが仕えたいのなら、それに合わせてディストリを選ぶとかね。
Perlモジュールもディストリ標準のと言いたいところだけどそれじゃ足りない場合も多いね。
そういう場合は、パッケージを作ってインストールはもちろんアンインストールも簡単にできるようにするんじゃない？
うちはdebianを使ってるけどdh-make-perlを使ってcpanモジュールからdebianパッケージを作っている。一行で簡単に作れるし。
どこになにが入るのか把握しづらいcpan（cpanm）は使わない。
cpanmやperlbrewはフリー・シェアウェアのCGIアプリを作っているというのなら便利なんだろうけど、
そんなのプロならあまり使わないだろうし、ぶっちゃけ、その名前を出した時点で
あぁ、あんたは自社サーバーでシステムを動かしてサービス提供している側じゃないんだねと思った。

546 ：
うわぁ

547 ：
>>546
何か言い返したほうがいいぞｗ

548 ：
cpanmはインストールしたけど、ほとんど使ってない。
perlbrewは使ってない。
local::libは使ってる。無いとRる。

549 ：
うちはcpanmは使ってるな。リソース少なめの非力マシンなんで。
cpanと併用だけど。

550 ：
>>530
オリジナルじゃないし座右の銘でもないな。
しかも最後、万人の感情論まで入っているぞw

551 ：
cpanmやperlbrewの作者たちは僕の中でプロと思える存在だったんだけど世の中には兵がたくさんいるんだな

552 ：
> cpanmやperlbrewの作者たちは僕の中でプロと思える存在だったんだけど
え？
cpanmやperlbrewが無益なものだとは言わないけど、
自分で好きなサーバーを選べないrootも持ってないそういう
ニッチな需要に対応するもので、
プロの間では使うことはまずない道具だろ。
技術的には、ネットからダウンロードして
パッケージに付いてるコマンド実行するのと
パスとディレクトリ変更するだけのものだし。


553 ：
プロハープロハー

554 ：
>>551
別にcpanmやperlbrewやその作者をdisっている訳ではなくて、
必要があれば使うしなければ使わないってだけの話でしょ。
すごいプロダクトならとにかく使わなきゃいけないって考えは変だろ。
>>552
> プロの間では使うことはまずない道具だろ。
んなこたあない。お前の「プロ」定義、歪んでるぞ。ものすごくシロウト臭い。

555 ：
そもそも
> 自分で好きなサーバーを選べないrootも持ってないそういう
> ニッチな需要に対応するもので、
ここの認識から違う。
どっかの記事みてそう思っちゃったんだろうけど

556 ：
>>555
なにが違うん？
普通にインストールすればいいだけじゃん。

557 ：
>> 自分で好きなサーバーを選べない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の使用者だ

558 ：
>>557
cpanm（cpan）はアンインストールできないので
パッケージを作ったほうが優れている。
また他のperlのバージョンの挙動を調べたいのなら仮想マシン使う。
そんな環境がごちゃごちゃするようなやり方はしない。

559 ：
プロ様お疲れ様っす！

560 ：
>>558
> cpanm（cpan）はアンインストールできないので
ん? できるでしょ? ちょっと手間はかかるけど。
インストール時にパッケージ作る手間とどっちを取るか、って感じ?

561 ：
パッケージを作るのは1行～数行で終わる。
cpanのアンインストールは、モジュールによって
やり方が違い、make uninstallを備えていないのも多い。

562 ：
そうか。
まあ基本的にアンインストールしないから関係ないや。
Perlのモジュールなんてインストールされてて困ったなんてことないしなあ。

563 ：
>>562
そこがプロとアマの違いね。
今どのモジュールがどうやってはいったか把握してないでしょ？
アマなら動いていればいいじゃんで終わるんだろうけど、プロだとちゃんと環境を把握している。
（覚えているのではなく簡単に調べられるということ）
環境を把握しているから、なにかトラブルが起きた時その原因の切り分けが簡単にできる。
cpanモジュールをパッケージにしていれば、パッケージのバージョンアップで
なにか動作がおかしくなった時、今のバージョンを完全に綺麗な状態に消して古いバージョンを入れられる。
もしそうなっていなければ、今モジュール入っているんだっけ？ 全部ちゃんと消したっけ？
あれ？ なんか古いモジュールと新しいモジュールがごっちゃになってる。
インストールが途中でエラー終了したんだけど、今どういう状態になってるんだ？みたいな混乱が起きることになる。

564 ：
データ解析系の人間からすれば、
debianでアプリ開発して移植先がSolarisだったらどうすんの？とか、
仕様書に「野良パッケージが便利だからdh-make-perl入れます」と書くのか？とか。
もうね、、、
その上で、自分はプロ！だからなあ。

565 ：
ああ、「実際の運用時にはcpan使うだろJK」か。

566 ：
納品先の鯖の保守契約自体は、他の会社（例えば、HPだの）にあった場合に、
そちらに依頼してモジュールのインストールしてもらわなきゃならない、
もしくは仕様書を渡してこちらでインストールなりをする。
鯖のrootにはそれだけの重みと柵がある、例えweb鯖でも。
それのに、気軽にプロなら、とか言ってくれるなよ。
どれだけ軽いrootだよ、お前様の鯖は。
perlbrewもcpanmもどうでも良くて、あんまりのレスについ書いちまった。

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

568 ：
> ちょっと調べりゃ
はい、その調べる手間が無駄です。

569 ：
>>564
> 仕様書に「野良パッケージが便利だからdh-make-perl入れます」と書くのか？とか。
「野良パッケージが便利だからcpanで入れます」と書くのか？
お前の意見はどっちなんだ？ 野良パッケージのインストールをするなってことなのか？
それはそれで有りだと思うよ。だが今の話とは関係ない。
今は野良パッケージを入れることが前提の話。
野良パッケージを入れる場合、cpanで入れてOSの安定性ぶち壊すのか、
それともパッケージにして管理された状態でモジュールを使うのか。
どっちが優れてるかなんて言うまでもない。
SolarisならSolarisのやり方でパッケージ管理するだけの話。

>>556
お前のほうが軽くね？
だって、モジュールのインストールは他の会社に頼む。
うちはモジュールのインストールはしない。そう言ってるわけでしょ？
つまり、お前の場合は、モジュールのインストールしない側の話であって
今話してるのは、モジュールインストールする側の話だよ。
わかりやすく言えば、root持ってないお前が頼むのがroot持ってる俺の会社ってわけだ。
モジュールのインストールという責任あることをcpan使って気軽にやるかよｗ
ちゃんとパッケージ作ってちゃんと管理する。これはディストリがやってるのと同じ方法だ。
なぜディストリはパッケージを使っているかその理由ぐらい分かるだろう。

570 ：
厚顔無知

571 ：
>>569
> 今は野良パッケージを入れることが前提の話。
えっ？いつからそんな前提の話に変わってたの？
> 野良パッケージを入れる場合、cpanで入れてOSの安定性ぶち壊すのか、
えっ？cpanで入れるとOSの安定性がぶち壊れるの？
コワ～イ（＞＜）

572 ：
この手の「なにがなんでも自分が最後に勝ちたい」“プロ”とは絶対一緒に仕事したくないってことだけは確かだなｗ

573 ：
>>571
> えっ？いつからそんな前提の話に変わってたの？
元は、cpanm使う　→　そんなの使わねーよ、パッケージ作れよ。が発端。
ちゃんとスレ読んでから出直し。

574 ：
>>571
> えっ？cpanで入れるとOSの安定性がぶち壊れるの？
そうだよ。
cpanで入れるとモジュールの整合性がおかしくなる。
モジュールをパッケージで入れた（ディストリがパッケージで提供してる奴）
同じモジュールをcpanで入れた。さてどうなるか。
削除するとき、本当にちゃんと削除できたか、何かが残っていて
予期せぬことが起きる可能性だってある。

575 ：
モジュールをパッケージで入れないから問題ない。

576 ：
そういうときこそlocal::libだな

577 ：
入れないじゃなくて、
入れられないの間違いでしょｗ
自分専用のマシン用意してもらえないとかで。

578 ：
パッケージ管理の方こそ信用ならん。
インストールは全部makeで、Perlのモジュールはcpan。

579 ：
>>570
なんで信用ならんの？

580 ：
debianの場合だと
往々にして妙にバージョンが古くて
それがトラブルの元になったりするから
とか?

581 ：
それはパッケージの問題じゃねーよｗ

582 ：
プロでもアマでもインストールは手動で行ってこそ、把握や管理が楽になる

583 ：
Encodeの使用者って少ないって本当？
ネットにも本にも紹介されてるんだけど、実際に現場で使われてる
のは確かに見たことないんだよね。

584 ：
「プロ」の次は「現場」ｋｔｋｒ
じゃあ現場でEncodeの代わりに何使ってるんだよｗ

585 ：
変換しないから何も使ってないｋｔｋｒ

586 ：
文字コードが混在してるわけじゃないので使用してませんが？

587 ：
それは
Encodeの使用者が少ない
んじゃなくて
Encodeが必要になるような局面が少ない
っていうことか。
それならわかる。

588 ：
有用か無用の判断はともかく、ファイルハンドルからファイル名って取得出来ないのかしら？
Devel::Peek::Dump($filehandle) みたいに渡すとファイル名が表示されるから、ファイルハンドルから
ファイル名が取れるはずなんだけど Devel::Peek を読んでもまったく意味が分からないｗ
ファイルハンドルからファイル名を取得する方法またはサンプルとか知ってるからいらっしゃいますか？

589 ：
自分の環境（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"

590 ：
>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"

591 ：
かぶった、リロードすべきでしたorz...

592 ：
予防線を張ってるのを百も承知で書くが、ファイル名なんざ
<>の時は、$ARGVで、open FHの時は自身が変数なりで
保持してるのに、何でファイルハンドルから取り出したがる人がいるのか不思議だ
<>が複数ファイルの場合、$ARGVは最初のファイル名と思い込んでた人もいたけど、昔。

593 ：
すんません FILE の行をファイルハンドルのファイル名と勘違いしてましたｗ
実行されたスクリプト名だったんですねorz

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

594 ：
>>593
その関数でファイルハンドルもファイル名も欲しいんだったら
両方渡してやるようにすればいいのでは

595 ：
スクリプトが約１００もあったので、どうにか呼んだ関数側のみで解決できないかなと^-^；
素直にファイル名も渡すように修正しました。
ありがとうございましたm(_ _)m

596 ：
余計なモジュール入れたくないからEncode使いますが何か

597 ：
ちなみに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;

598 ：
my $dump = Dump($fh);

599 ：
試してから書けばいいのに

600 ：
余計なフラグいじりたくないからJcode使いますが何か

601 ：
保守されてないモジュールを有り難がってもなあ。

602 ：
COPYRIGHT に
you can redistribute it and/or modify it under the same
terms as Perl itself.
って書いてあるわけで、使われている間はすなわち保守されて
いると考える一途なオレでも、本当に保守されている jacode.pl
には目移りしている

603 ：
しっつもーん
PAR で exe 化したプログラムを有償にする場合って、ソースコードの公開義務ってあるんですか？

604 ：
買わないオレに公開する必要はない

605 ：
PARはソースコード公開(添付)してるようなものだから必要ないだえお

606 ：
仕事で使うなら最悪の場合、自分でソース読んで改造・修正する
必要がでてくるので、能力的にも時間的にも自分で何とかなる
範囲のモジュールやライブラリを選ぶことになる。
当時NKFがあったにも関わらず、あえてjcode.plが作られた目的
はそこにあったと思う。NKFの座はいまやEncodeが奪ったが、
jacode.plの利点は当時と同じく今も価値がある。


．．．なんてな

607 ：
目指す方向の違いかも
Encode.pm -- 大は小を兼ねる（おとこのこ）
jacode.pl -- 小は大を兼ねる（おんなのこ）

608 ：
Padre使っている人ってどれぐらいいる？
perl editor使っている人はどれぐらいいる？

609 ：
${どっちも知らない}++;

610 ：
Perl言語でモンテカルロ・シミュレーションをやって、
ワクチンの効果を分析するっていうのがあるそうなんですけど、
とてもじゃないけど、学習が間に合わない。
Perlの基礎から学習しないといけないし・・・。
はあー、タメイキ・・・

611 ：
>>610
言語は何と何なら使えるの? ある程度の心得があれば大丈夫でしょう。
まるっきりのプログラミング初心者だと確かに大変かもしれないけど…
モンテカルロ法自体はそんなに複雑な方法でもないと思うし。
まさか最初から全部自分で書けって訳でもないだろうし。そのまさか?

612 ：
>>610
漢字で書くべき単語を無駄にカタカナで書くおっさんには無理

613 ：
激しく同意で御座います

614 ：
>>611
プログラミング初心者です。
書けるのはHTMLくらいです。
論文に、前提と結果だけがあるんですけど、
プログラムがどんなか、わかりません。

615 ：
active perlをインストールして、Hello world!だけはできました。

616 ：
初心者なのかーそりゃ大変だ。
期間がどれくらいあるのかにもよるだろうけどねえ。
まあ周囲にプログラミングの心得のある人がいないか探して
ちょっとアドバイスとかいろいろ頼ってみたら。

617 ：
>>612
文学がわかっちゃいないね、キミ

618 ：
>>617
うるせえハゲ

619 ：
>>610
ちょろっと検索しただけでいろいろ出てくるぞ。
でもPerlを覚えるのが目的ではないのだとしたら、おれならAWKで
書くな。その方が覚えることが少ないし、記述するのに機能が足り
ないってこともないと思う。もしどうしてもPerlでっていうならば
書き終わってから a2p でPerlスクリプトにすればいい。

620 ：
AWKでネットワーク通信できるの？

621 ：
何だ？ネットワークのネの字もなかったのにいきなり高度な...
ネットワークとモンテカルロ法は別物だから切り離したほうが
よくね？まさかGUIも必要だとか言いださないよな？一個ずつ
駒を進めようぜ。

622 ：
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 ：
問2) パスの分割　難易度:★★☆
(2-A)のように$pathにパスが設定されていています。
ドライブ名、ディレクトリの各階層名、ファイル名を分割して
(2-B)のように表示してください。
(2-A)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
(2-B)
C:
メモ
饅頭怖いよ
full.txt

624 ：
問3) 裏から覗く？　難易度:★★☆
正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、
(3-B)と同じ内容を表示してください。
(3-A)
my $text = '\\表\\\助\\封\\呂\\表\\\';
(3-B)
\裏\助\封\呂\裏\

625 ：


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


626 ：
# 問1) まんじゅうこわい　難易度:★☆☆
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
@_ = split(/\n/,$text);
my $i = 1;
for(@_){
if(/($matcher)/){
print $i, "\n";
}
$i++;
}
__END__
※ このスクリプトは jperl を使って実行します

627 ：
# 問2) パスの分割　難易度:★★☆
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/\\/\n/g;
print $path, "\n";
__END__
※ このスクリプトは jperl を使って実行します

628 ：
jperlなんて今更どうやって用意するのよｗ

629 ：
# 問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 の使い分けがポイントです。
授業で教えましたよね？
それと宿題を２チャンネルで行うのは今後、禁止いたします。

630 ：
>>628
ちゃんと授業を聞いていましたか？
ベクターにあると説明したはずです。

631 ：
>>629
正規表現で置換してないので、間違いです。
それと、jperlとお幸せに。

632 ：
べくたーｗｗｗｗｗ

633 ：
問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 ：
問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 ：
何人かの生徒から知らせを受けて、まさかと思いここをアクセスしたら
問題がそのまま掲載されていて、驚いています。
ここに掲載された回答を書いたひとは配点しませんので、そのつもりで
いてください。
問題を載せた君は月曜日に職員室に来てください。誰かは大体分かって
います。

636 ：
>>631
【正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、】
「正規表現で置換する」とは言っていません。条件は、
1. 正規表現を使うこと
2. 置換すること
です。
あわてずに問題を読みましょう。
あ、それと君も職員室に来てください。

637 ：
１．性器表現を使うこと
２．痴姦すること
ですね！

638 ：
下ネタは5.8のほうでやってください。そっちに好きなひとがいるんで。

639 ：
誰も名のらなかった場合は、全員を減点します。
校長先生には許可をもらいました。
おや？そうなると進級できないひとがでてきそうですね。
もしかして、書き込んだのは．．．

640 ：
>>633-634
グッジョブでした。

641 ：
問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 ：
問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 ：
問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 ：
コードはTMTOWTDIってことで。
こんな面倒なことをやっても、このコードはCP932専用。
EUC-JPかUTF-8に変更されると書き直しに迫られる。
Perlの三大美徳の怠惰を忘れずに。

645 ：
で本当の問題は、これをEncodeモジュールを使って
CP932、EUC-JP、UTF-8全て対応にするという物。

646 ：
JperlじゃEncodeモジュール使えないじゃん。確かにそれは問題だな。

647 ：
なんだ、やっぱりダメなんだなEmcodeは

648 ：
# 問3) 裏から覗く？　難易度:★★☆
# my $text = '\\表\\\助\\封\\呂\\表\\\'; ← 表の後ろに \ が3つ
my $text = '\\表\\助\\封\\呂\\表\\';
$text =~ s/表/裏/g;
print $text;
__END__
※ このスクリプトは jperl を使って実行します
問題では変数 $text の表の後ろに3つの \ があるためにおかしな
ことになっていますが、現実の問題としては2つの \ ということに
なるでしょう。
こうすることで正規表現による置換ができます。

649 ：
英語版のperlで日本語を処理しようとするのはナンセンスです。
すでにjperlがあるわけですから賢く使い分けましょう。また国際化
対応していれば日本語も扱えるとのたまう輩もおりますが、軽く
受け流して、可能なら5.8スレの方に誘導してあげましょう。
面倒な場合はスルーでも構いません。

650 ：
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;
}
問題がつまらんね

651 ：
まあ、義務教育の中等学校だからそんなもんだね

652 ：
jperlにしがみつく人が屁理屈で問題作ってるんだよ
もし学校で「jperlだけを使いなさい、jperlを前提としたプログラムを作りなさい」って
教育してるなら日教組並みの害悪

653 ：
>>652
今更jperlは無いわ。
目が節穴じゃね？

654 ：
>>650
モジュールを使えるのなら、レガシーなスクリプトに対してはencodingを使える。
use encoding qw(cp932);
...
my $cnt = 1;
foreach(split /^/, $text) {
    if (/$matcher/) {
    print $cnt, "\n";
        last;
    }
    $cnt++;
}

655 ：
いまさらEncodeモジュール絡みの話をしているPerlの人って……

656 ：
>>645
モダンにいくなら、UTF-8で書いて、こんな感じ。
use utf8;
use Encode::Locale;
use open qw(:encoding(locale) :std);
...

657 ：
ヒント：ヒューマンリソースとムーアの法則について

658 ：
>>657
ホウホウそれで

659 ：
たくさんの回答、ありがとうございました。
中には学校で習ったものよりも高度なものがあり、パールの苦手なぼく
にもとても参考になりました。でも将来プログラマになるわけではない
ので簡単なJPERLで十分かな？と思っています。
明日、出頭し処分を受けることになりそうですが、あまり後悔はして
ません。ここでいろいろ勉強になったからです。
ところで職員室は第一ですか？それとも第二のほうがいいですか？

660 ：
展開がキチガイ過ぎて言葉が出ない…

661 ：
jperlは別に簡単ではないぞ。特定の用途の場合にのみちょっと便利なだけだ。

662 ：
第二です。8:40までにくること！

663 ：
承知しました

664 ：
便利だったら無理に勧めなくたって、みんな使い出すんだろうね
他の何かをdisるのはなぜか危機感を感じてる証拠だろうね

665 ：
>>659
ああ、一人で幸せに暮らしてくれ。
JPerｌ(Perl 5.003_07)というCPANどころかData::Dumperすら無いシロモノを他人に勧めるな。

666 ：
そりゃあ、上のスクリプトを比べてみれば一目瞭然だもの。

667 ：
道具を使うのは人間なんだから、使いやすいものをそのときどきによって
選択すればいいよね。あるから使わないといけないと考えるのは本末転倒
で無駄な苦労をすることになるよね。でもまあご自由にどうぞ。

668 ：
可愛そうに･･････

>>667
最近、誰の受け売りだか知らんがこういう事言ってる奴いるけど
はっきりいって、C#.NET知ってればほとんどのことは出来るし、
ようは言語同士の連結の仕方を知っているかどうかだけど、大丈夫か？
Rubyだけ使っていたって、そこから.NETやC呼び出せばほぼ何でも出来るようになるわけだけど
Perl使いさんたちは、言語同士の連結のやり方　わかっていますか？

669 ：
へえC#.NETって環境を問わずどこでも使えるんだー知らなかったよ
言語同士の連結ってどうやるの？連携のさせ方ならいろいろあるだろうけど連結は聞いたことなかったな

670 ：
機械語で想像できないから
連結って言葉に違和感を覚えるのか
それとも、
dllファイルを別々にしたときの挙動すら、わかっていないのか
さすがにPerl使ってる奴は井の中の蛙という言葉がふさわしい･･･
ああ可愛そうに
ひたすら可愛そうに

671 ：
この手のバカ
スクリプト言語しか出来ないタイプには多いだろうな
perlより、まずコンピューターの基礎からやり直したほうがいいのではないか

672 ：
C#.NETでなんでもできるとかほざいてる奴が
井の中の蛙だのコンピューターの基礎だの烏滸がましいわｗ

673 ：
>>668
PerlはモジュールをCで書くことも可能であれば、Cから呼び出すことも可能だよ。
ActivePerlならWIndowsスクリプトファイル(wsf)でVBやJScirptと混ぜ書きもできる。
でさ、アセンブラを20年ぐらいやってるとさ、ポストデクリメント演算子に
違和感を覚えるんだけどさ、あれどう思う？
ああ、それと>>667の意見には同意です。

674 ：
えさは足りてるみたいなので与えないでください

675 ：
>>673
ほら突っついたらでてきた
井の中の蛙ｗｗｗｗｗ
そんなの出来ることは当たり前なのに
どうした？　どこか痛いのか？
目的の為に言語を変えるか、
俺が言いたいのは
お前たち程度のレベルで、目的の為に最適な言語がいつから選べると慢心しているのかって事だ
CGIを書くのにCは使わない？　そんなのは当たり前で
段階はその次だ
CGIを書くためにどのWeb言語を使うのか？
その選択がお前たちは出来ないから・・・・こんなスレにいるんだろｗｗｗｗｗｗｗｗバカかｗｗｗｗｗｗｗ
perl一生つかっていろよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗＷＷＷＷＷＷＷＷＷ

676 ：
早い話が、結局何をやってもものに出来なかった人の嫉妬ですね。

677 ：
nyは専ブラであぼーんだな

678 ：
世の中にはCで書かれたCGIもあるんだぜ
しかも身近に

679 ：
中国人が抱く外国イメージ　「韓国人は横柄な歴史ドロボー」
中国にとってトラブルの絶えない韓国へのイメージで最も支持を得たのは「歴史ドロボー」だった。
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

680 ：
index.cgiを開いたらバイナリだったでござるの巻

681 ：
ぶっちゃけもはやスクリプト自体はutf-8で書くことが多くなってるし
jperlとか害悪としか思わない

682 ：
早く社会に出て役立つプログラム作ろうな。

683 ：
企業は競争力や応用力を判定している
薀蓄は相手にしていない

684 ：
ぶっちゃけ単にエンタープライズ環境を知らないだけなんだろうな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな

685 ：
Java4が稼動してそうで怖い話だな。

686 ：
Java4のソースコードなら
今も最新Javaで普通に動く。

687 ：
>>686
コーディング規約でJava1.4縛りってあるものなの？
Java5以降の機能は使用禁止みたいな。

688 ：
>>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。
まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。
……スレ違いだがマジレスしてしまった。

689 ：
>>688
なるほど、過去のバージョンに固定しての開発は普通にあるのね。
ジェネリクスは置いといて、auto-boxingが無いだけでも面倒そう。

690 ：
ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？

691 ：
>>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。
あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。

692 ：
>>691
ありがとうございます
試してみます

693 ：
>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 リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。

694 ：
以下のスクリプトで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 );

695 ：
$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
]

696 ：
proxy経由しないでも同じ結果か等の原因の切り分けはしたの？

697 ：
.(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz

698 ：
便箋w

699 ：
Perlコード汚すぎる。

700 ：
俺なんかそのまま納品して、夏休みとった年があるｗ^_^

701 ：
文字列の処理が容易である
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）
スクリプト言語のいろは｜Cマガジン2000年10月号

702 ：
> 文字列の処理が容易である
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ
CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．

703 ：
>>699
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。

704 ：
保守性・再利用性ならCOBOL一択だよね！！

705 ：
同じような仕事にしか使わんからな。

706 ：
今の時代ならDSLといえば
COBOLのすばらしさが分かるだろう。

707 ：
read うんたらかんたら
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read
のファイル入力構文は初めて見たときカルチャーショックだったな

708 ：
言語が違えばやり方は違うんだから想定の範囲内だがな
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ

709 ：
>>708
いやJavaを先にやってたから
後でCOBOLのコード見たときにカルチャーショックだったんよ
EOFを返してもらうんでなく、構文としてやるってのがね

710 ：
でもパソコンじゃあC言語の前にBASICがあって、それって
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな

711 ：
>>710
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす

712 ：
初心者を育てるのがPHP、初心者を袋叩きにして人格否定までするのがPerl

713 ：
PHPもPerlもただのプログラミング言語だから育てたりとか袋叩きにしたりとかはしない。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。

714 ：
「同じ問題でも解き方は人によって違っていい」ってのが Perl の思想だからな。
人格否定なんてありえない。

715 ：
解き方は人によって違っていいが
書き方は統一しろ。

716 ：
>>715
コード整形ツールを使いたまえ

717 ：
初心者を袋叩きにして人格否定までするのはモダンPerl。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。

718 ：
> 初心者を袋叩きにして人格否定
誰のこと？ そんな人いないよ。

719 ：
え？

720 ：
>>718←何言ってんのコイツｗｗｗ

721 ：
>>717
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって

722 ：
いろいろ複雑なテキスト解析をして、最終的にExcelのファイルにしたい
要は、既にあるExcelのファイルとフォーマットは同じで、
中に書いてあるテキストだけ入れ替える感じ
どういうステップを踏むのがいちばん楽だろう

723 ：
一回こっきりならコピペだな

724 ：
一回なら間違いなくそうするけど、
多分、100近くある

725 ：
csvでいいならcsvを吐き出せばいいが
Excelブックを作りたいならPerlでできるのかそれ

726 ：
ファイルのi/oでexcelのシートを作るのは面倒だから、
use Win32::OLE::Const 'Microsoft Excel';
で、ExcelのセルいじっちゃいなYO

727 ：
Perl使いをなめるなよ
CPANにはExcelファイルを出力するモジュールがいっぱいある
ttp://search.cpan.org/search?query=Excel&mode=all

728 ：
ダイレクトでxlsを吐くんじゃなくて、
一旦テキストに出して、そこからxlsを作るExcelマクロを走らせるのが楽
全部perlでとか、全部Excelでやろうとすると、手間が増える上に保守性も落ちる

729 ：
うん、Excelファイルはすごく複雑
MS以外が不具合なしに扱えるものじゃない。
絶対バグでハマる。

730 ：
中間ファイルのフォーマットをきっちり決めて、
Excel 側で、マクロなりインポートなりで、
データ取り込む手段を確立して、
それに合わせてファイルを生成するのがおそらく一番間違いが少ない。

731 ：
>>722は結局どうやったんだろうね

732 ：
Perlでテキスト⇒テキスト変換をして
UWSCでExcelに取り込む
実はUWSC内で上のPerlも実行するから一発で処理が終わる

733 ：
ペルシャ湾で天然真珠調査　世界遺産「復活」に協力 2013年4月30日 09時20分
http://www.chunichi.co.jp/s/chuspo/article/2013043001001486.html
　日本の養殖真珠の生産により２０世紀前半から天然真珠産業が衰退したペルシャ湾で、
日本がバーレーンと協力し、真珠貝の生息調査に乗り出すことが３０日、分かった。
日本の水産技術を使って真珠貝を増やし、伝統産業を復活させるのが狙い。
独立行政法人水産総合研究センター西海区水産研究所（長崎市）などが５月中旬から現地調査を始める。
　真珠産業はクウェートやアラブ首長国連邦（ＵＡＥ）などの伝統産業として知られ、
バーレーンの真珠文化は昨年、国連教育科学文化機関（ユネスコ）の世界遺産にも登録された。
日本が真珠産業の復活を手助けすることは産油国との関係強化にもつながる。
（共同）

734 ：
なでしこでいいじゃん

735 ：
お前らにはどう見えるか知らないが俺にはこう見えてるぞ
print
誰からも愛されてる元気な女の子
気が利いて周囲に信頼されている
グループ行動の時、希に大遅刻をしてしまう
if
普段から冷静で状況把握が得意
二人の親友と一緒に行動する事が多い
予想外の事が起こるとパニックに成りやすい
elsif
リーダをサポートする役割を買って出る好奇心大制な女の子
あたふたしている間に他の子が作業を終らせてくれている事も有る
else
めったに喋らないが一言で状況を変えてしまう天才型
ifと仲が良く、いつも隣に居る
一日、１回はifと手を繋がないと泣き出す
{}
双子の活発な女の子
いつもターゲット（printf）を挟み撃ちにしてほっぺっとほっぺでギューっとする
最後に軽くキスをして誤るのが恒例行事に成っている

736 ：
()
若干、中二病の女の子
頭が良く、成績優秀だが中二病発動中、常識がまさる事が多いので
完全に中二病になりきれていない
+
凄く普通な女の子
なんでも出きるが、それ故に目立たない
欠点という欠点も見あたら無い
char
ちょっとカラフルな女の子
グループ内で中心的存在、だけど、結構な寂しがり屋
周囲からはカッコイイけど２人きっりの時に、後ろから抱き締めたくなる
っと、囁かれている
open
豪快な性格、隠し事が嫌いで、聞かれたら下着の色まで答えてしまう
裏表ない彼女の性格は周りからは好かれている
授業中でもキスしたいと思ったらキスしたいと叫んで強引キスしようとする。それを周囲が
なだめる事もしばしば…欲望に直球なだけかも知れない
==
会議でのまとめ役、分析が得意で計算もはやい
アニメが大好きで会議中でも時間が来たら勝手に切り上げて帰ってしまう
優秀な人材が居なくなるのは避けたい***は、会議室にテレビを設置したとか…
unless
doと、、いつも一緒で、犬が大好き
特に柴犬が好きで週に３回は触れ合いランドに出かける
明るい彼女に寄って来るのは何故か大人しい犬ばかり
do
犬が大好きな小柄な女性
独特の雰囲気をかもし出している彼女には活発な大型犬が集まりやすい
涎で帽子が湿っている事もしばしば有る
unlessからは活発な犬に好かれているのでやきもちを焼かれる事も…

737 ：
>>736
今日一日頑張ったな

738 ：
eq くんを忘れないであげて！
必要不可欠な子なのに、新人さんに中々顔を覚えて貰えないのは不憫すぎるよ！

739 ：
active perl は DBD::MySql に対応するつもりは無いの？
古いバージョンでは動作するけど、無償ダウンロードできないし・・・
やる気あんのか？>active

740 ：
active perlなんか使ってる奴いるのか

741 ：
インストールが楽だ

742 ：
DBD::MySQLはMySQLに同梱されてなかったか？

743 ：
flex 使うのも場合によってはありかな。

744 ：
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

745 ：
最近はWindowsだと Strawberry Perl 使ってるなあ

746 ：
なにそのPerl

747 ：
6/1に公開された5.22で「ダブルダイアモンド演算子」が導入された
たとえば perl -e 'while(<>){ ... }' ファイル ファイル ...
は引数に指定したファイルの内容を順に処理するが
perl -e 'while(<>){ ... }' 'command |'
とかやると 'command |' というファイルではなくcommandを実行してその結果を処理してしまう
while(<<>>) ならそういうことがない

...
知らなかった(汗)
<>自体の仕様を変更してもよかったレベルじゃね?

748 ：
安易に仕様変更とか言う奴は死ぬべき。
前者の仕様に依存した実装だってあり得るんだから

749 ：
>>748
Rubyの中の人たちは全滅だな。w

賛成！

750 ：
実際、後方互換性に関してはPerlはいい仕事してる

751 ：
Perl6 が出たようです
ruby も python もぶっとばせ！

752 ：
Windowsにgitクライアントをインストールすると
Strawberry Perl が変な動作するのは
オレだけ？

753 ：
971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

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

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

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

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

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

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

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない

754 ：
サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ
https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費 おじや50代資産ガリバズフィード40代エリート

755 ：
読みにくいperlコードがある場合はデバッガの機能使おう
perl -MO=Deparse スクリプト名 で実行するとperlからそのコードがどういうふうに見えるかが表示される=曖昧な記法じゃなくなるから読みやすくなると思う

use strict; use warnings; してなかったり変数やメソッドに適切な命名できてないようなやつは知らんw

756 ：
またperlの人気出ないかなー

757 ：
Perl6は、期待してたんだけど、どうやら普及しなさそう。
ちょっと試してはみたけど、C系と意外に違ってて、なんか使いにくいんだよなあ。

758 ：
>>756
まあしかし少なくともUNIX系OSではなんでも作れるスクリプトとして根付いてるから中々なくなりはしないと思う。

759 ：
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

786Y4

760 ：
search.cpanがシャットダウンです

761 ：
8PU

762 ：
数学用途で久々にperl5で書いた
スコープ制限 や use strict など一切なしのぶっきらぼうな書き方

......完成したコードは変数名などがわかりやすく、例外処理も丁寧な仕上がりだった
保守性重視の書き方しみついたのはなかなか変わらないんだな

763 ：
キャッシュ層の有無も含めて速度もベンチマーク撮りながら
途中でデバッグ用の追跡コードも挟んだりし
use strict や warnings 等もつけたり
スコープや変数名など仕上げた


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

リストの畳み込み計算など無いものもあるが
おおむね良い言語だ

764 ：
ActivePerlを見限ってついにStrawberryPerlにしたぜ！
26.3がやっと半年ぶりに更新された
30が出てるのに28.1になるとかわけわからん
せめて28.2にしろよ

765 ：
StrawberryPerlはコンパイル環境が丸ごとバンドルされているのでおススメだよ。

766 ：
Android上でPerlとか動かす実行環境あったのな。ついさっき知った。

https://docs.solab.jp/sl4a/

767 ：
以前ローカルタイムと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年にいきなり変わるって、元からそういう仕様だったの?

768 ：
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年問題やね

769 ：
>>768
わかった。ソース見てわかった。50年な。今年の年に50足して100で割った余りを区切りにするから70が区切りで、70未満は今年の世紀の2000足しちゃうのな。
どうりで71年からはちゃんと計算できると思ったら。

770 ：
未満じゃない。以下か。

771 ：
ドキュメントを読めよ。

ちなみに確認しないけど、西暦2桁表記は、1970年を基準に±50年の範囲と見なすってのはなんかであった気がする。

772 ：
出遅れた。orz

773 ：
年の2桁表示とか、紛らわしい表記は使ってはいけない！

2020/01/01, 2020-01-01 など、フル桁の4/2/2でないといけない

774 ：
そういうことじゃないと思うよ。
知ったかぶりしたいわけじゃないから、これだけ紹介しとくよ。
https://qa.itmedia.co.jp/qa4977971.html

775 ：
突然にタイムゾーンの話？

776 ：
>>771
その区切りが移動するんだな。

777 ：
それにしても年2桁をある年を境に分けるしてって、
俺が中学生の頃に作った家計簿ソフトみたいだなｗ
もう30年ぐらい前になるのか？

778 ：
DuckDuckGoがPerlで書かれてるって最近知った

779 ：
perlは文法の泥沼具合で唯一c++とためはれる言語。もちろん褒めてない。

780 ：
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));"

781 ：
あー。%s か。

782 ：
フォーマットを %.16f にしたら 2.999... のように出たよ。
まあでも環境によって違うかも知れないけどね。

783 ：
ある整数$nを10進表示するために必要な桁数を求めるためにlog($n)/log(10)を使ったのが良くなかった。
小難しいこと考えずにperlらしく素直に文字列としてlength($n)で桁数を取得するのが正解。

784 ：
Perlじゃなくても、浮動小数点数なら残当。
結局、10で何回割れるか数えるのが一番合理的なんかねえ。

785 ：
問題の本質は、整数と実数の型区別がない言語において、3なのか2.99…なのか簡単に識別する手段がないこと。

786 ：
PerlはCPU依存の浮動小数ではなく、独自の浮動小数を実装している。
計算速度がCやJava劣るのは、単にPerlがスクリプト言語だからというだけではない。
独自な浮動小数には良い面も悪い面もあるが、浮動小数の精度を変更できるのは大きな強み。
以下は、浮動小数の精度を10進換算100桁にするための宣言。

use bignum (a => 100);

787 ：
>>785
ないな。一応 0.5 足してから int() で整数化すれば四捨五入になるけどね。自分でそう書かないとダメだったと思う。誰かがモジュール作って関数化してそうだけど。

788 ：
>>785
んなもん、そもそもあるわけがない。
浮動小数点数表現はおろか、有理数表現でも完全に表せない値は当たり前なんだから。

789 ：
「Git 2.25」リリース、「git sparse-checkout」コマンドの追加や細かい機能強化が行われる
https://mag.osdn.jp/20/01/14/171500
内部的な変更としては、「git add「コマンドの「-i」オプションをPerlベースからCに書き換える作業をスタートさせた。

790 ：
PHPでPerlは使えますか？

791 ：
それはWebのページに埋め込むような感じで使えるかという意味？

792 ：
PHPのプログラム中からPerlを呼び出すのであれば「php perl 呼び出し」等のキーワードでググれば沢山出てくる。

793 ：2020/06/06
2015年にリリースされたmacOS X 10.11 以降、SIP(System Integrity Protection)によってディレクトリ/Systemがガードされるようになった。
これにより2013年にリリースされたperl 5.13が/System配下にありガードされてアンインストールできなくなっている。
2019年にリリースされた最新のmacOS 10.15 Catalina もいまだにperl5.18のままという有様。

■特許庁新システムを作る■
Pythonのお勉強 Part61
C++/TemplateMetaProgramming
☆★Java質問･相談スレッド183★★
■WindowsCEプログラミング（EVC PB3含む）Ver2.2■
くだすれPython(超初心者用) その43【Ruby禁止】
【Delphi】Embarcaderoオッチャ その34【C++ﾋﾞﾙﾀﾞ】
Visual Studio 2005 Part 27
C++相談室 part136
WPF(.NET4.x, .NET Core) GUIプログラミング Part23
--------------------
うまいラーメンショップうまい 57杯目
太田光 「村上春樹は人間が描けていない」Part2
■★スレ立て以前の質問・雑談★■【３】
SOUL'd OUT 総合112
【悲報】『DQダイの大冒険』機種はまずSwitchが内定してしまいマルチでもSwitchに足を引っ張られる事に
【ﾁｰｽﾞｽﾃｨｯｸ】the O.C. 4ﾁﾉ【私ﾃﾞｨﾝﾄﾞﾝ嫌い】
完全遮光日傘サンバリア part13
■□■□チラシの裏17156枚目□■□■
「反日勢力を許さない」VS「ヘイトスピーチ許さない」 ＪＲ川崎駅前、大音量で対立　ネット「別に差別じゃない」「反日なら敵だよ」
美脚の女性声優について語るスレ
☆★☆自転車ダイエット☆★★157kg
京アニ放火、34人死亡　殺人死者数で戦後でも最悪か ★2
TAKARAZUKA　SKY　STAGEってどうよ？【107】
【薄墓18年完成ならず】ヤ◯カン山本寛を見守るスレ【9ヶ月ぶり2度めの延期】
CODゾンビ総合スレ攻略&募集★131R
Canon EOS 5D markII part 51
[VICTOR] ビクターのスピーカー part21
簡悔とか言ってる奴wwwwwwww
【雨でも】ルイス・ハミルトン応援スレ41【最強】
ワナビのための電撃大賞スレ@シベリア49
TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼