CGIに依存しないPerlの話題一般/Part2

**nobodyさん** · 02/08/29 00:30

そんなスレ

**nobodyさん** · 02/09/30 12:38

Perlってさァ、よくRuby厨にいじめられるけど、実際のところ
処理速度を比べるとどうなの？ Rubyやったことないし、今後やることもないだろうし

**nobodyさん** · 02/09/30 13:35

どんな言語でも書き手次第だろ。

**102** · 02/09/30 13:49

>>103
書き手に依存しない、同じような処理をする関数ごとの処理速度を聞きたい

**名無しさん＠１周年** · 02/09/30 16:22

>>104ちゃんへ
プログラム板の最強言語決定戦だか、最速言語は何かだかに
出てたよ。アメリカのサイトでいろんな計測してたが、Perl
のがどっちかっていうと早いね。

**名無しさん＠１周年** · 02/09/30 16:59

>>103
じゃ、書いとく。
http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/43294
にまとめて書いてある。リンク先辿れば、具体的なテスト結果が見れる。

**106** · 02/09/30 18:17

レス先まちがえますた。>>104ですた。スマソ

**102** · 02/09/30 19:18

>>106
ありがとうございました。たいへん満足するサイトでした。

**名無しさん＠１周年** · 02/10/01 23:32

ちょっと聞きたいんだけどここにいる人ってどの程度のレベル？
perl5.6(or 5.8)のregexp+utf8のバグ直せる人いるかな？

**nobodyさん** · 02/10/02 00:25

>>109
どういうバグ？

**思ったこと** · 02/10/02 04:10

スレタイに沿ったまともな会話がみつからない。
一応そってるって言えばそってるけど、

雑談スレかい？これ。

**nobodyさん <sage>** · 02/10/02 07:20

>>111
違うよ。
CGIに依存しないPerlの話題一般だよ。

**111** · 02/10/02 19:37

ベタな突っ込みありがとう。

俺は、これはこれでけっこう良スレだと思ってます。
ﾏﾀｰﾘしたのもいいですな。

**nobodyさん <sage>** · 02/10/04 08:45

ム板の「Perlについての質問箱」がruby基地外によって潰されました。
心ある人は、rubyスレにお礼参りしてください。

**名無しさん＠１周年** · 02/10/04 15:21

>>110
"\xc0\x80\xc0\x81\xc0\x82" =~ /\xc0\x80(.)\xc0\x82/; print $1,"\n";
"\xe0\x80\x80\xe0\x80\x81" =~ /\xe0\x80\x80(.)/; print $1,"\n";
"\xe0\x80\x80\xe0\x80\x81" =~ /(.)\xe0\x80\x81/; print $1,"\n";

**nobodyさん** · 02/10/05 19:31

ANhttpdとActivePerlをインストールしました。
DOSプロンプトではPerlが動いているのを確認できました。
IEでhtmlを見るのにローカルのアドレスを指定してもサーバーがみつかりませんと怒られますた。
アドレスバーに打ち込んだのこれです
http://localhost/~HTTPD以下のフォルダ名/ファイル名

どうしたら見れるでしょうか？
どなたか教えてください。
おながいします。

**nobodyさん** · 02/10/05 20:00

>>116
localhostではなくて、127.0.0.1とした時に動くなら、
IEオプション-接続-LANの
「ローカルアドレスにはプロキシサーバーを使用しない」
をチェックする。
IPアドレスで接続できないなら、AN HTTPDの設定がおかしい。

**116** · 02/10/05 20:52

>>117
レスありがとうございます。
勉強になりました
パス間違ってますた。
お騒がせしてすみません。

**nobodyさん** · 02/10/08 00:39

ttp://www.thinkgeek.com/stuff/docs/perl-camel-source.shtml
いつ見ても感動するなあ、これ。

**nobodyさん <sage>** · 02/10/08 02:54

>>119
実行すると４頭のラクダになるんですね。ほんとスゴイなぁ。

**nobodyさん** · 02/10/08 03:07

>>119
すげー！
感動した！

◆hMJAPH9PWA · 02/10/16 11:41

むむ。これは驚いた…

=code

sub f{
print "@_\n";
}
f $x, ($x = 'foo');

=end

いや～、"foo foo"と出力されるとは思わなかった。
よく考えればPerlの関数の引数は参照渡しだからこうなるのも頷けるんだけど、
tieされたハッシュでFETCHすら呼ばれないのは困るね。
ok $h{foo}, delete $h{foo}; がnot okになって小一時間ほどはまったよ。

**nobodyさん** · 02/10/16 20:18

引数の順に左右される可能性のあるコードなんか、まともな奴は書かない。

**nobodyさん** · 02/10/17 02:57

まあ、またーりいこうや。
人少ないんだしさ。

◆hMJAPH9PWA · 02/10/17 13:23

>>123
引数の評価の順、というよりは、"引数の参照渡し"という意味を心の底から実感したのが私的には重要だなぁ。

このあたり、C++だと罠がなくていいね。

**rubyist＠カラアゲうまうま** · 02/10/29 06:43

asf86we785f78wqtrf7wqgfrutewiftd97s6tcft8sdgof
しねやｈにおｄｂｓｃｊ

**nobodyさん** · 02/10/31 11:02

正規表現の構造を図にして出力してくれるライブラリって
どこにあったっけ？
たしか海外のサイトでそんなのを見かけたんだけど・・。

**nobodyさん <sage>** · 02/10/31 23:04

>>127
parrotの中のGraphViewじゃないか。
６４MBあるんで、DLしたがインスコはやめてる。誰か、やってない？
正規表現スレで聞いてみたら。

**127** · 02/11/01 01:11

>>128
ありがとうございます！
parrot と GraphView で Google や use Perl を検索しても
何も出てこなかったですけど、正規表現スレで聞いてみます。

**nobodyさん <sage>** · 02/11/01 08:21

>>129
CPANのsearchでModuleを選んで検索汁。

**127** · 02/11/01 10:30

http://www.cc.rim.or.jp/~midorin/mad-p/RegexDiagram.html
これの使い方を教えてホスィ！であります！

>>130
CPAN は既に検索しました。でも↑これがベターっぽい？です。

**127** · 02/11/03 03:24

↑Win では tgif のヴューワがないらしい？
というわけで
http://bourbon.cs.umd.edu:8001/tgif/
ここから Linux 用の tgif を DL して、
Linux 上で PDF に変換してから Win に持ってきて使うことにしますた。

**nobodyさん** · 02/11/12 01:49

Cygwin + Xサーバ入れればtgif使えるよ。

**rubyist@カラアゲうまうま** · 02/11/18 19:34

tju6y7i78i78i78o89p98p;09;p09;p0p0p0p0p0p0p;

**nobodyさん** · 02/12/10 19:24

@AAA　=　<OUTDATA>;

って感じで、ハンドルの内容を取得してるのだが、めちゃくちゃ遅い（汗）
高速化する方法知ってる人いません？

**nobodyさん** · 02/12/10 19:36

$i=0;
for(;$AAA[$i]=<OUTDATA>;$i++){;}

速くなるとはおもえんが。

**nobodyさん** · 02/12/10 20:44

$AAA= `cat file`;

**135** · 02/12/11 11:49

>>136
ためしてみましたが、速くはならないみたいです。

>>137
すみません。説明が足りませんでした。
ハンドルはopen/open2で取得した標準出力なので、実ファイルは
ないんですよ。

やっぱり無理かなあ

**nobodyさん** · 02/12/11 11:54

>>137
興味半分でそれ試して見たが
逆に遅くなったぞ（ｗ

◆hMJAPH9PWA · 02/12/11 12:08

>>138
push @array, $_ while <OUTDATA>;
とでもすれば少しはマシになる事もあるかな。
でも配列に入れる必要がないなら、配列に入れないのが一番いいだろうね。

**おまんこは地球を救う** · 02/12/11 14:11

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

**nobodyさん** · 02/12/11 23:42

配列にぶち込んでる時点で負け。
allocするコストがでかいから、1行単位に読んだ方がはやかったりするよ。

**nobodyさん** · 02/12/14 01:12

Wordのデータファイルをperlでプレーンテキストだけ出したいんですけど
Wordのデータファイルの構造がのっているサイトとかありませんか?

**nobodyさん** · 02/12/14 01:19

２５歳。
去年まで金無し君だったけど、オンラインカジノとパチンコで
二年で３５０万貯めた。一度やってみなよ。
初回のみだけど、１ドル以上のチップを買えば３０ドル（４０００円くらい）貰える。
もらうだけもらってプレイせずに換金することもできるし、ルーレットで赤か黒に
思い切って賭けてしまえば５０パーセントで二倍になる。
金なきゃオフラインでゲームすればいいだけ。暇つぶしになる。
ビデオポーカーとかスロとか色々あるのでマジでお勧め。
http://www.imperialcasino.com/~1kl5/japanese/

**nobodyさん** · 02/12/14 05:11

２５歳。
去年まで菜食主義だったけど、吉野家の牛丼並で
二年で３５０杯食った。一度行ってみなよ。
牛丼の日のみだけど、１杯以上の並を買えばスピードくじ貰える。
もらうだけもらって外れても味噌汁か玉子に換金することもできるし、
思い切って特盛にすれば５５０円で二倍になる。
金なきゃお茶飲んで帰ればいいだけ。店員にマークされる。
ねぎだくとか牛鮭とか色々あるのでマジでお勧め。

**nobodyさん** · 02/12/16 23:29

>>143
自分でさがしてみてなければ自分で作る。
んで、それをサイトに公開するとアンタが一番乗りの栄誉。多分。

**nobodyさん** · 02/12/24 11:45

今使ってるperlソースの本体が大きいため、パフォーマンス向上の為に
dump　label;
label：
を使用してundumpで取り出したソースを使えないかと相談されました。
なんでも実行時のperlソースのコンパイルが一番時間がかかるらしい。

これって要するに変数の使用領域とかずっと固定になると思うんです
が、大丈夫なもんなんですか？　もしパフォーマンスが上がって安全
であれば、もっと一般的な手法になってそうなので。要は動作させるた
めの安全性を知りたいわけです。使用してるperlのverは5.6です。

**nobodyさん** · 02/12/24 12:17

ageてみる。
>147
別に使用領域は固定ではなかろう？

**nobodyさん** · 02/12/24 23:24

>>147
ソースを書き直すとかCで書き直すとかの選択はなしですか?

**147** · 02/12/25 14:30

ソース修正はありですが、期間とコストの問題で全面改修は無理との事です。
dumpのほかにperlccを使用することも検討しているようなのですが。

**nobodyさん** · 02/12/25 14:52

>>150
Apache::Registry 使うのがてっとり早くていいでしょう。

**まつり** · 02/12/25 15:17

http://ex.2ch.net/test/read.cgi/entrance/1040792699/

**147** · 02/12/25 15:19

>>151
webサーバーがネットスケープサーバーという。
私もそれ最初に言って却下されますた．．

**nobodyさん** · 02/12/25 17:20

んでPerl6はいつでますの？

大方
JavaVM=ParrotVM
Jave+Perl+Python=Perl6

みないなもんだろうけど

**nobodyさん** · 02/12/25 17:48

にちゃんねるの鯖監視所みたいな鯖監視やってみたいんですが
URLを設定して
それがGET出来た場合1を返すプログラムってどんな感じなるんでしょうか？

**nobodyさん** · 02/12/25 20:50

>>155
1. Connect出来たらTRUE
2. HTTP/1.1 200 OKならTRUE
3. 持ってきた内容に、指定したキーワードが入ってたらTRUE

どれがいい?

**nobodyさん** · 02/12/26 12:01

>>156

2ですかね？
余裕があれば3

**nobodyさん** · 03/01/02 16:49

Perlでネットワーク関連のおもちゃ作ってるんですが
バイナリデータの処理はやっぱpackやunpackでいいんですかね
ビットフィールドの扱いはvec関数がいいとかは聞いたんですが。。

**(･∀･)p** · 03/01/05 16:54

WINでDOS窓消して、バックグラウンドで実行する方法って無いでつか？
WHSよりPERLの方が使い慣れてるので･･･

◆hMJAPH9PWA · 03/01/05 19:16

>>158
用途が違うのでいいとか悪いとかは無いよ。
やりたい事が実現できるのならどっちでもいいと思う。

>>159
wperl script.pl
で。
ただしSTDERRの出力先は開けといた方がいいかも。

**(♥・∀・）** · 03/01/05 20:21

おおー　　有難う御座います　>>◆hMJAPH9PWA さま

wperl(とVER付きの実行ファイル)は自分でも何となく試したのですが、パスの指定が間違えて居た様です。
拡張子を関連付けたら上手く行きますた
STDERRは適当にリダイレクトして使いたいと思います。

侍のVBSを色々弄ってるんですが、文字列の扱いに辟易してたんです
これで正規表現パワー炸裂できます
やっぱりPERLはｲｲ(･∀･)!!

多謝!!

**nobodyさん** · 03/01/08 01:05

>>153
Netscape enterprise server ならNSAPIでPerl組み込めばイイじゃん。

http://search.cpan.org/author/BSUGARS/nsapi_perl-0.24/

Netscape::Registry とか色々あるよ。

**nobodyさん** · 03/01/08 01:08

>>158

ぃえす。pack()/unpack()で気持ち良くなれます。
ただ32bit以上の大きめな桁で論理演算しようとすると悲しいことが起こるので、
そーいうときは分割して処理するかMath::BigIntをつかうかXSで書くとよろし。

**158** · 03/01/08 23:50

>>160
>>163
仕事が忙しくて来れませんですた。。
レスさんきぅです。やぱしpack、unpackがラクでいいですね。

それと、話ついでの質問で恐縮ですが、
時刻合わせのためにNTPサーバに接続して
タイムスタンプを取得しますよね。
そんで自分のPCをサーバに同期させる、
というようなプログラムを作ってるんですが、
DOSに取得した時刻を渡すことってできるんでしょうか？
自PCがWinXPなので

system("C:\windows\cmd.exe");

でDOSを開くところまでは行ったんですがそのあとが分かりません。。
pack、unpackと全く関係ない質問で申し訳ないですが(;´д`)A

**nobodyさん** · 03/01/10 11:50

腐れﾏｶｰのみんな、CamelBonesで、Perl + Cocoaしよう。
RealBASICが買えないチミにおすすめですよ。

http://sourceforge.net/projects/camelbones/

**山崎渉** · 03/01/15 13:34

（＾＾）

**nobodyさん** · 03/02/17 16:45

Delegateでない、普通の串をPerlで作りたいんですが、無理ですか？
Proxomitronに限界を感じる…

**nobodyさん** · 03/02/18 13:07

みんな気がついてないのか？
気がついていていえないのか？

どうみてもスレタイ日本語変だろ？

Perlに依存しないCGIの話題一般　っていうなら日本語になってるｗ

**nobodyさん** · 03/02/18 15:14

3つ目の選択肢。
・気がついていて言わないのか？

**nobodyさん** · 03/02/18 15:16

なんでPerlのスレなのに逆の意味になるんだYO アフォ

**nobodyさん** · 03/02/18 18:39

CGIに依存しない、Perlの話題。これでわからないか?

**nobodyさん** · 03/02/18 19:22

>>168はPerlをCGI専用の言語だと思ってるのかな？

**nobodyさん** · 03/02/18 19:38

ＣＧＩってのはライブラリか何かだと？

**nobodyさん** · 03/02/18 22:39

一般と書いたら、一般にしないといけないそうです。

**nobodyさん** · 03/02/19 09:32

やっぱ話題のレベルが下がると俄然伸びるなぁ。

**山崎渉** · 03/03/13 17:14

（＾＾）

**nobodyさん** · 03/03/30 18:00

Perl 5.8なんですが，

use encoding 'euc-jp';

$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /あ/;

だと「1」が出力されます。

use encoding 'euc-jp', Filter=>1;

$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /あ/;

だと「12」が出力されます。

どうしてでしょう？　スクリプトはEUCで書いてます。

**マリモーマ** ◆r6PDGT6Xd2 · 03/03/31 05:02

>>177
そりゃ　両方成り立ってるからでは？

**nobodyさん** · 03/03/31 05:11

まあひとつ言えることはおそらく板違いだということ。
プログラム技術板にPerlスレあるだろ。
WebProgに依存しないと言ったら確実に板違いだな。

**nobodyさん** · 03/03/31 08:59

>>179

Perl・CGI／レンタルサーバ板からPerl・CGIがPHP板に移動してきて出来たのがWebProg板なので板違いではありません

4 · 03/03/31 16:29

>>177
12とでるのは、print '1';print '2'だから、12と思う。
ここは分かってるよね？
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
というのはどうだろうか？
しかし、EUCなら/あ/で通ると思うが..
$a = 'あ';
print '1' if $a eq "\xa4\xa2";
print '2' if $a =~ /\xa4\xa2/;
で、12とでる？

**nobodyさん** · 03/03/31 19:18

>>179
177が板違いなのは間違いないがスレ自体が板違いの可能性大

スレタイの日本語からしておかしいが
WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通

100歩譲ってCGIに限定しないPerlの話題一般と解釈するならばこのスレ自体が板違い

**nobodyさん** · 03/04/03 11:58

>>182

昔からPerlはプログラム板とは独立してレン鯖板にあって、
それがココに移ってきたから板違いじゃない。

新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。

**nobodyさん** · 03/04/04 00:08

>>181
#!/bin/perl
use encoding 'euc-jp';
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
print '3' if $a =~ /\xa4\xa2/;

からは1が出力され，

#!/bin/perl
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
print '3' if $a =~ /\xa4\xa2/;

からは123が出力されます。

いまいちEncode.pmがわからないです。

**nobodyさん** · 03/04/04 00:28

>>184件のスクリプトをテストしてみたが
スクリプトの漢字コードeucで保存してる？
スクリプトの漢字コードが
Jisなら1だけ
Shift-Jisなら1,2
EUC-JPなら1,2,3
が出力されておるのだが・・・

\xa4\xa2 はEUC-JPのコードだからSJIS JISでまっちしないというのはりかいできるだろうけど
Jisならば KI KOが入るから　\Qあ\E　のパターンマッチは失敗してるってかんじでないかい？

**nobodyさん** · 03/04/04 01:00

てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。
日本語のな。

**nobodyさん** · 03/04/04 01:14

>>186
自分で出来ねーんだったらエラそーにすんな
大体OSもいわねーのに手順も糞もあるかボケ

4 · 03/04/04 02:36

>>186
$ perlcc foo.pl

話題にのって質問。
perlを無料でwindowsのexeにコンパイルできないだろうか?
贅沢言うとTk.pmも使いたいのですが。
ActivePerlのperlccは単体では使えないもよう。

**184** · 03/04/04 02:39

>>185
下のスクリプトから123が出てくるのは期待通りなんですが，
上から1しかでてこないのが理解不能なんです。

use encodingの使い方間違ってる？

**251** · 03/04/04 02:42

>>188
perl2exe
ttp://www.indigostar.com/perl2exe.htm
がexeにできるけどシェアウェアか・・・
どうせおもちゃだし・・・

**nobodyさん** · 03/04/04 03:24

>>189
encodingプラグマを理解していないんじゃない？
>>185で回答してもらっているでしょ

なんのためにencoding使おうとしている？

**nobodyさん** · 03/04/04 04:49

>>183

だから、それならプログラム版に移ればよかっただけの話だろ

大量の２ｃｈ系掲示板郡が散在していて、
それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが
板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ
ただのごみため場と化すのが自然の理

別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ

移動するときプログラム版が許容量いっぱいで無理だったとかか？
それなら、移動する時期を誤ったか　無理せずもとの場所で存続するか
元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？

少なくとも、移ってきたから板違いじゃないっていうのは見当違い

**nobodyさん** · 03/04/04 08:53

>>192

よーするにだ。後から出てきて勝手な講釈たれんなﾎﾞｹナス。

そー言う事。

**nobodyさん** · 03/04/04 13:55

よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。

そー言う事。

**nobodyさん** · 03/04/04 19:33

WebProgだけ別にした管理者が馬鹿。

**nobodyさん** · 03/04/07 06:35

それだけWebプログラム関連の負荷が大きかったって事だろ

まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな

**nobodyさん** · 03/04/08 00:48

だってム板にたてたらおっぱらわれるじゃん…

**デフォルトの名無しさん** · 03/04/08 10:41

もうるびキティいなくなったから大丈夫だよ。

**nobodyさん** · 03/10/31 01:47

テストかきこ

**nobodyさん** · 03/11/04 16:26

随分落ちてるなage

**nobodyさん** · 03/11/06 23:56

perlのパイプってのは非同期なのでしょうか？

b.pl　　　　　　　　　---------------------------------処理終了
|パイプ開始　　|パイプクローズ
a.pl-----------------------------処理終了

パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？
また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？

答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。