02/08/29 00:30 IO82UwTT
そんなスレ
2:nobodyさん
02/08/29 00:33
パールのパ： パールだねぇ
パールのル： ルビーじゃないよねぇ
3:nobodyさん
02/08/29 11:52
糞スレ。
4:age
02/08/29 13:26
コギャル動画像が無料で
より下なのはかわいそうなので age
5:nobodyさん
02/08/29 13:33
なんとやる気のない続スレだ。
6:_
02/08/29 13:36
前スレつかいきってないバチだ！
7:1
02/08/29 15:46
前スレがどう終わったのか知らんのだが、、
8:_
02/08/29 15:52
>>7
あるじゃん！
9:nobodyさん
02/08/29 16:01
なぜ前スレはいきなりdate逝きになったのだろう？？？
10:nobodyさん
02/08/29 16:02
>>8
２ちゃんねる Viewer 落としてまで見れって？
11:nobodyさん
02/08/29 16:07
>>9>>10 普通に見れるじゃん。あげるゾ！
12:nobodyさん
02/08/29 16:22
>>11
age てないじゃん。キャッシュじゃないの？
てゆうか、あげるならネタ提供すれ。
13: ◆JAPH9PWA
02/08/29 16:39
>前スレ
スレッド一覧にはあるように見えるのが謎。なんでだろう？
14:適当にリンク
02/08/29 22:08 r+6zee8Z
Swig: URLﾘﾝｸ(www.swig.org)
XS日本語マニュアル: URLﾘﾝｸ(www.kt.rim.or.jp)
【P6】
Perl6: URLﾘﾝｸ(dev.perl.org)
Exegesis 2の日本語訳: URLﾘﾝｸ(bulknews.net)
JavaVM -> ParrotVM: URLﾘﾝｸ(archive.develooper.com)
: URLﾘﾝｸ(www.astray.com)
Perl6 RFC: URLﾘﾝｸ(dev.perl.org)
15:山崎渉
02/08/29 22:45
（＾＾）
16:nobodyさん
02/08/30 23:01
ネタ不意ｒ
17:nobodyさん
02/08/31 01:04 hVzdlXTj
ここに、Perlで英単語の音節数を数えようとしたことある
ﾔｼいないですか？
18:nobodyさん
02/08/31 01:17
>>17
あっ、ひょっとして・・・暗号解析？
19:サンプル盛り沢山
02/08/31 20:19 AF4irkr1
オカズにするなら、有料より『無料』！！
そんな貴方のために、できました⇒無料サイト♪
近親相姦・SM・人妻あります！！
URLﾘﾝｸ(www.traffimagic.com)
20:名無しさん＠Ｅｍａｃｓ
02/09/02 10:39
ファイルディスクリプタは my でローカル変数にできますか？
21:nobodyさん
02/09/02 10:43
my と localの違いと関連する言葉をもう一度勉強しなおしてください。
22:名無しさん＠Ｅｍａｃｓ
02/09/02 10:49
Perlはファイルハンドルって言うんだっけ？
23: ◆JAPH9PWA
02/09/02 12:44
ファイルディスクリプタ単なる整数だよ？
myと何の関係が…とかﾎﾞｹていいですか。
24:21
02/09/02 15:20
うーん、
ソモソモPerlのスクリプトからファイルディスクリプタにアクセスする手段なんて
標準では用意されてない故、質問自体が謎って問題が有るのだが。
# 内部API経由で取れたと思ったけど
Cで言うところのauto変数的なイメージなら別にmyで良いし、
一時的にスタックに退避させて(Perlではこーいう表現しないけど)
別のファイルハンドルを保持したいって話ならlocalで良いし。
で、一番つまんないオチが
open HANDLENAME, $path_to_file;
とかで作ったファイルハンドルHANDLENAMEをスカラ変数に格納したいってのかしら。
my $handle = \*HANDLENAME;
なり、IO::Fileなりで好きにして。
25: ◆JAPH9PWA
02/09/02 16:53
いや、Perlでファイルディスクリプタを得ることは出来るし、
open()関数でCのfdopen()相当のことも出来るよ。
$fd = fileno(STDIN);
open STDIN2, "<&=$fd";
26:24
02/09/02 18:03
ぎゃふん。
なるほどfileno()ですか。
% perldoc -f open
If you specify "'<&=N'", where "N" is a number, then Perl will
do an equivalent of C's "fdopen" of that file descriptor; this
is more parsimonious of file descriptors. For example:
open(FILEHANDLE, "<&=$fd")
でも
Note that this feature depends on the fdopen() C library
function. On many UNIX systems, fdopen() is known to fail when
file descriptors exceed a certain value, typically 255. If you
need more file descriptors than that, consider rebuilding Perl
to use the "sfio" library.
ってビミョーですな。
27: ◆4XfSMGTg
02/09/02 23:01
ナンでも聞け
28:nobodyさん
02/09/02 23:14 yvAB49v2
>>27
perl5.9って出るんですか？
29: ◆JAPH9PWA
02/09/02 23:20
>>26
微妙だけど…大して問題ない気もする
そもそもfdを直接使わなければならない状況なんてまれだしね
>>28
5.xの将来は分からないけど、5.9がリリースされることは無いと思われ
30:_gunzip ◆H/XdoCNg
02/09/02 23:38
>>28
7/18に5.8がリリースされたことを受けて、
Perl5.9の開発は7/25にスタートしている。
31: ◆4XfSMGTg
02/09/03 01:31
>>29-30
一人前にトリップなんかつけくさって(w
自意識過剰なんだよ ばーか
32: ◆JAPH9PWA
02/09/03 09:16
>>30
あ、そうなんだ。
…でも5.9って開発バージョンじゃないの？
更にその次のバージョンっていくつなんでしょ。
33:nobodyさん
02/09/03 09:34
>>32
5.10に決まってるじゃん。
34: ◆4XfSMGTg
02/09/03 17:33
開発バージョンだと何か問題でも？
うんこあああああああああ
35: ◆4XfSMGTg
02/09/03 17:36
>>30-32
まとめて氏ね
36: ◆4XfSMGTg
02/09/03 17:37
悔しかったら俺みたいに開発バージョンのPerl6をハックできるんだぞ。
37:nobodyさん
02/09/03 17:47
>>36
日本語おかしいよ。
38: ◆4XfSMGTg
02/09/03 18:27
(´ー`)y-~~
39: ◆4XfSMGTg
02/09/03 18:43
ヽ(´∀｀)ﾉ
（ へ）
ヽ
40: ◆4XfSMGTg
02/09/03 23:19
>>36
（ ´,_ゝ`） ﾌﾟｯ ちっぽけですね
41: ◆4XfSMGTg
02/09/03 23:21
内部APIでもナンでも答えてくれ！！！
42: ◆4XfSMGTg
02/09/03 23:22
上級者向けに相応しい質問を募集中
43:nobodyさん
02/09/04 10:03
＞悔しかったら俺みたいに開発バージョンのPerl6をハックできるんだぞ。
悔しいのか。
そうか、がんばれよ。
44:名無しさん＠Ｍｅａｄｏｗ
02/09/04 10:22 zyxWHEDD
jperlも[^２バイト文字]の場合、1バイト単位で処理するんですね。
sjisでは、全角記号は、ほとんど（全部？）\x81から始まっているので、
/[^※]+/とすると全角記号が入っている場合は合致しないんです。
この理解で合っていますか。
45: ◆4XfSMGTg
02/09/04 17:48
上級者の俺がナンでも子ｔらえる
46: ◆4XfSMGTg
02/09/04 17:54
ナンでも聞いてくれ。
47:nobodyさん
02/09/04 18:03
偉そうに「聞いてくれ」ていうんだから、44に答えてやれよ。
41では「答えてくれ」って言ってるし、ナンの上級者かわかったもんじゃねぇな
48: ◆4XfSMGTg
02/09/04 18:41
上級者に相応しい質問しか答えないからな！
49:nobodyさん
02/09/04 20:07
ある人がPerlについて分からないことがあったのでLarryにメールを送って聞いてみたらしいのですが、それについてどう思いますか？
50:名無しさん＠Ｍｅａｄｏｗ
02/09/04 21:59 rtiaBVOu
Perl Foundationに寄付をたくさん払ったなら許せる。
"私たちはLarryを気を散らすことなくPerl6に集中させることが
できることを喜んでいます"と、Perl Foundationの理事長であ
り創設者でもあるKevin Lenzoは語りました。"
（URLﾘﾝｸ(member.nifty.ne.jp)）
それで、Ｌａｒｒｙから返事は来たの？
51:nobodyさん
02/09/04 22:00
>>49
ある人って誰？ Larryの兄弟とか？
52:nobodyさん
02/09/04 22:32
>>51
◆4XfSMGTgだろ
53: ◆4XfSMGTg
02/09/04 22:46
>>52
ぼくにはそんな根性ないよ
54:名無しさん＠Ｍｅａｄｏｗ
02/09/04 23:11
日本語化パッチ作った斉藤さんとか渡辺さんだったら許せる。
55: ◆4XfSMGTg
02/09/05 00:05
XSやParrotの話題を募集中
56: ◆4XfSMGTg
02/09/05 13:00
おいおい、誰にも相手にされない寂しいﾔｼがいるぞ
57: ◆4XfSMGTg
02/09/05 16:10
XSで俺を越えてみろ！
58: ◆4XfSMGTg
02/09/05 18:59
何か言えよ(w
59: ◆4XfSMGTg
02/09/05 19:30
「CGIに依存しないPerl」ってどういうこと？
60:nobodyさん
02/09/05 20:43
>>59
簡単にいえばプログラム技術板向けの板違いスレってこと。
61: ◆4XfSMGTg
02/09/05 20:50
>>60
削除依頼よろしく
62:nobodyさん
02/09/05 22:33
前スレが立った時は、プログラム板のPerlスレが軒並み荒らされてたから、
それなりに存在意義はあった。
こんな糞レスが続くようなら削除が一番じゃないのかね。
63:nobodyさん
02/09/06 01:41
Perlに関してはWebProgでやってくれ。隔離板だからな。二度お出手くるん
64:nobodyさん <sage>
02/09/06 03:35
◆4XfSMGTgのだけ削除してほしい。
65:nobodyさん
02/09/07 08:17
何か面白い話題はないかね。
66:nobodyさん
02/09/07 11:30
ねぇよ禿
67:nobodyさん
02/09/07 11:53
（ ´,_ゝ`） ﾌﾟｯ みなさんレベルが低いですね
68:nobodyさん
02/09/07 12:07
知能程度の低い馬鹿どもが集うスレ
69:nobodyさん
02/09/07 12:14
----------------------------------------------------------------
終了
----------------------------------------------------------------
70:nobodyさん
02/09/07 14:08
ｽﾚﾘﾝｸ(php板)l50
71: ◆4XfSMGTg
02/09/08 13:09
XSでもParrotでも内部APIでもなんでも聞け。
72: ◆6Qblom3o
02/09/08 13:24 QfFb5Sab
お
73:nobodyさん
02/09/08 13:52 wrL6AZHT
（ ・∀・ ）ﾆﾔﾆﾔ
#kusokote=◆4XfSMGTg=基地外
74:nobodyさん
02/09/08 14:08
せっかく「なんでも聞け」と言っているのだから聞いてやれ(w
75:nobodyさん
02/09/08 16:46
>>74
コイツは使えないから無視しよう
76:nobodyさん
02/09/10 23:22
parrotのわだいぼしうちう
77:nobodyさん
02/09/13 01:43
#!/usr/local/bin/perl
open yourheart, and listen to me, quietly;
wait, and teach or tell me truth;
78: ◆A3ItxPxI
02/09/14 14:50
age
79:nobodyさん
02/09/18 21:19
ｒｔひゅい８ｋ：っっっっっっっっｐ
80:nobodyさん <sage>
02/09/19 05:13
↑
な、なんだっつんだこの野郎！
81:nobodyさん <sage>
02/09/21 09:14 LEnoYFAX
このスレはRubyキティにずいぶん荒らされちゃったね。
他のPerlスレは、防御が堅かったからあいつ退散したよ。
82: ◆AOHU.zVE
02/09/21 23:05
なんで、Rubyの人ってPerlの事きらいなんでしょう？
83: ◆JAPH9PWA
02/09/21 23:27
RubyistがPerlerを嫌いというよりも、Perlが嫌いな者がRuby厨を騙ってるんだと思いますけどね。
84:nobodyさん <sage>
02/09/21 23:37
今日は、プログラム板のPerl質問箱がさんざん荒らされてる。
こいう奴、抹殺できないもんかね。
85: ◆4XfSMGTg
02/09/23 20:20
なあ、XSでもPerl6でも何でも聞いてくれ。誰か答えると思うし。
86:nobodyさん
02/09/24 08:36
>>85
まぁまず"実用Perlプログラミング"か perlxs.podでも読め。
87:nobodyさん
02/09/24 10:17
>>85
perl -e"print hex(1E0)";"
の結果が1になるのをどうにかしてくれ。
88: ◆JAPH9PWA
02/09/24 10:49
perl -e "print hex('1E0')" でいいじゃん。何が不満なの？
89:nobodyさん
02/09/24 19:37
>>87
1e0 は 1 で間違ってない。
1e2 は 100 だろ？10進で。
90:nobodyさん
02/09/26 13:24
あげてすまない
このスレのPart1は何処に行ったか探してるんだが
DATが見つからないんだ
誰か知らないだろうか
91:nobodyさん
02/09/26 13:46
糞固定が自己満足で立てた糞スレだから、見る価値のあるレスなんてありません。
早く死ねよ禿
92:nobodyさん
02/09/26 14:15 ICBvAdkm
（ ´,_ゝ`） ナンデスカコノ ｱﾌｫは
93:nobodyさん <sage>
02/09/26 14:16
Perlをののしり、Perlスレの進行を妨害している粘着基地外のRubyユーザがいます。騙されたり煽られたりした人がたくさん出ています。マジレスしないようにしよう。
94:nobodyさん
02/09/26 21:37
>>90
991313362
でつ
95:hmk
02/09/27 01:15 QE9TB9SP
Perlって意識して組まないと
ソースが読みにくくなると感
じておられる方いませんか？
96:nobodyさん
02/09/27 02:32 Fq/U/Ej0
>>95
無論。URLﾘﾝｸ(www.samag.com) とか見れ。
97:hmk
02/09/27 02:45
>>96 プププ。ここまで来ると、読みにくいというか、読めまそん。
98:nobodyさん
02/09/27 22:15
>>94
ありが㌧
スレ一覧に無いから削除かと思った
2ちゃんねるViewer、折角だから買ってみたけど････
ちょっと使いにくいな(・∀・；)
99:nobodyさん
02/09/29 03:32
>>93
存在を信じて無かった、と言うか冗談だと思ってた
が、ム板のkoreスレで散々思い知ったよ
あそこには何か病的なPERL嫌いが居る事を
100:nobodyさん
02/09/29 16:36
っっっっっっっっっっｐ
101:nobodyさん <sage>
02/09/30 08:07 AylCxZca
またruby基地外の荒らしだ。
いいかげんにしないとrubyスレが危ないぞ！
二度と来るな。
102:nobodyさん
02/09/30 12:38
Perlってさァ、よくRuby厨にいじめられるけど、実際のところ
処理速度を比べるとどうなの？ Rubyやったことないし、今後やることもないだろうし
103:nobodyさん
02/09/30 13:35
どんな言語でも書き手次第だろ。
104:102
02/09/30 13:49
>>103
書き手に依存しない、同じような処理をする関数ごとの処理速度を聞きたい
105:名無しさん＠１周年
02/09/30 16:22
>>104ちゃんへ
プログラム板の最強言語決定戦だか、最速言語は何かだかに
出てたよ。アメリカのサイトでいろんな計測してたが、Perl
のがどっちかっていうと早いね。
106:名無しさん＠１周年
02/09/30 16:59 DO2Y0sBw
>>103
じゃ、書いとく。
URLﾘﾝｸ(blade.nagaokaut.ac.jp)
にまとめて書いてある。リンク先辿れば、具体的なテスト結果が見れる。
107:106
02/09/30 18:17
レス先まちがえますた。>>104ですた。スマソ
108:102
02/09/30 19:18
>>106
ありがとうございました。たいへん満足するサイトでした。
109:名無しさん＠１周年
02/10/01 23:32 lySnJLDM
ちょっと聞きたいんだけどここにいる人ってどの程度のレベル？
perl5.6(or 5.8)のregexp+utf8のバグ直せる人いるかな？
110:nobodyさん
02/10/02 00:25
>>109
どういうバグ？
111:思ったこと
02/10/02 04:10
スレタイに沿ったまともな会話がみつからない。
一応そってるって言えばそってるけど、
雑談スレかい？これ。
112:nobodyさん <sage>
02/10/02 07:20
>>111
違うよ。
CGIに依存しないPerlの話題一般だよ。
113:111
02/10/02 19:37
ベタな突っ込みありがとう。
俺は、これはこれでけっこう良スレだと思ってます。
ﾏﾀｰﾘしたのもいいですな。
114:nobodyさん <sage>
02/10/04 08:45
ム板の「Perlについての質問箱」がruby基地外によって潰されました。
心ある人は、rubyスレにお礼参りしてください。
115:名無しさん＠１周年
02/10/04 15:21 Uohsiqib
>>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";
116:nobodyさん
02/10/05 19:31 diYif7N0
ANhttpdとActivePerlをインストールしました。
DOSプロンプトではPerlが動いているのを確認できました。
IEでhtmlを見るのにローカルのアドレスを指定してもサーバーがみつかりませんと怒られますた。
アドレスバーに打ち込んだのこれです
URLﾘﾝｸ(localhost)以下のフォルダ名/ファイル名
どうしたら見れるでしょうか？
どなたか教えてください。
おながいします。
117:nobodyさん
02/10/05 20:00
>>116
localhostではなくて、127.0.0.1とした時に動くなら、
IEオプション-接続-LANの
「ローカルアドレスにはプロキシサーバーを使用しない」
をチェックする。
IPアドレスで接続できないなら、AN HTTPDの設定がおかしい。
118:116
02/10/05 20:52
>>117
レスありがとうございます。
勉強になりました
パス間違ってますた。
お騒がせしてすみません。
119:nobodyさん
02/10/08 00:39
URLﾘﾝｸ(www.thinkgeek.com)
いつ見ても感動するなあ、これ。
120:nobodyさん <sage>
02/10/08 02:54
>>119
実行すると４頭のラクダになるんですね。ほんとスゴイなぁ。
121:nobodyさん
02/10/08 03:07
>>119
すげー！
感動した！
122: ◆hMJAPH9PWA
02/10/16 11:41 yifqZ1Vt
むむ。これは驚いた…
=code
sub f{
print "@_\n";
}
f $x, ($x = 'foo');
=end
いや～、"foo foo"と出力されるとは思わなかった。
よく考えればPerlの関数の引数は参照渡しだからこうなるのも頷けるんだけど、
tieされたハッシュでFETCHすら呼ばれないのは困るね。
ok $h{foo}, delete $h{foo}; がnot okになって小一時間ほどはまったよ。
123:nobodyさん
02/10/16 20:18
引数の順に左右される可能性のあるコードなんか、まともな奴は書かない。
124:nobodyさん
02/10/17 02:57
まあ、またーりいこうや。
人少ないんだしさ。
125: ◆hMJAPH9PWA
02/10/17 13:23
>>123
引数の評価の順、というよりは、"引数の参照渡し"という意味を心の底から実感したのが私的には重要だなぁ。
このあたり、C++だと罠がなくていいね。
126:rubyist＠カラアゲうまうま
02/10/29 06:43
asf86we785f78wqtrf7wqgfrutewiftd97s6tcft8sdgof
しねやｈにおｄｂｓｃｊ
127:nobodyさん
02/10/31 11:02 LYtKJNHh
正規表現の構造を図にして出力してくれるライブラリって
どこにあったっけ？
たしか海外のサイトでそんなのを見かけたんだけど・・。
128:nobodyさん <sage>
02/10/31 23:04
>>127
parrotの中のGraphViewじゃないか。
６４MBあるんで、DLしたがインスコはやめてる。誰か、やってない？
正規表現スレで聞いてみたら。
129:127
02/11/01 01:11
>>128
ありがとうございます！
parrot と GraphView で Google や use Perl を検索しても
何も出てこなかったですけど、正規表現スレで聞いてみます。
130:nobodyさん <sage>
02/11/01 08:21
>>129
CPANのsearchでModuleを選んで検索汁。
131:127
02/11/01 10:30
URLﾘﾝｸ(www.cc.rim.or.jp)
これの使い方を教えてホスィ！であります！
>>130
CPAN は既に検索しました。でも↑これがベターっぽい？です。
132:127
02/11/03 03:24
↑Win では tgif のヴューワがないらしい？
というわけで
URLﾘﾝｸ(bourbon.cs.umd.edu:8001)
ここから Linux 用の tgif を DL して、
Linux 上で PDF に変換してから Win に持ってきて使うことにしますた。
133:nobodyさん
02/11/12 01:49
Cygwin + Xサーバ入れればtgif使えるよ。
134:rubyist@カラアゲうまうま
02/11/18 19:34
tju6y7i78i78i78o89p98p;09;p09;p0p0p0p0p0p0p;
135:nobodyさん
02/12/10 19:24 7jw5awUE
@AAA = <OUTDATA>;
って感じで、ハンドルの内容を取得してるのだが、めちゃくちゃ遅い（汗）
高速化する方法知ってる人いません？
136:nobodyさん
02/12/10 19:36
$i=0;
for(;$AAA[$i]=<OUTDATA>;$i++){;}
速くなるとはおもえんが。
137:nobodyさん
02/12/10 20:44
$AAA= `cat file`;
138:135
02/12/11 11:49 d9JpgDns
>>136
ためしてみましたが、速くはならないみたいです。
>>137
すみません。説明が足りませんでした。
ハンドルはopen/open2で取得した標準出力なので、実ファイルは
ないんですよ。
やっぱり無理かなあ
139:nobodyさん
02/12/11 11:54
>>137
興味半分でそれ試して見たが
逆に遅くなったぞ（ｗ
140: ◆hMJAPH9PWA
02/12/11 12:08
>>138
push @array, $_ while <OUTDATA>;
とでもすれば少しはマシになる事もあるかな。
でも配列に入れる必要がないなら、配列に入れないのが一番いいだろうね。
141:おまんこは地球を救う
02/12/11 14:11 QC8qbww2
URLﾘﾝｸ(yahooo.s2.x-beat.com)
142:nobodyさん
02/12/11 23:42
配列にぶち込んでる時点で負け。
allocするコストがでかいから、1行単位に読んだ方がはやかったりするよ。
143:nobodyさん
02/12/14 01:12 u240v51k
Wordのデータファイルをperlでプレーンテキストだけ出したいんですけど
Wordのデータファイルの構造がのっているサイトとかありませんか?
144:nobodyさん
02/12/14 01:19
２５歳。
去年まで金無し君だったけど、オンラインカジノとパチンコで
二年で３５０万貯めた。一度やってみなよ。
初回のみだけど、１ドル以上のチップを買えば３０ドル（４０００円くらい）貰える。
もらうだけもらってプレイせずに換金することもできるし、ルーレットで赤か黒に
思い切って賭けてしまえば５０パーセントで二倍になる。
金なきゃオフラインでゲームすればいいだけ。暇つぶしになる。
ビデオポーカーとかスロとか色々あるのでマジでお勧め。
URLﾘﾝｸ(www.imperialcasino.com)
145:nobodyさん
02/12/14 05:11
２５歳。
去年まで菜食主義だったけど、吉野家の牛丼並で
二年で３５０杯食った。一度行ってみなよ。
牛丼の日のみだけど、１杯以上の並を買えばスピードくじ貰える。
もらうだけもらって外れても味噌汁か玉子に換金することもできるし、
思い切って特盛にすれば５５０円で二倍になる。
金なきゃお茶飲んで帰ればいいだけ。店員にマークされる。
ねぎだくとか牛鮭とか色々あるのでマジでお勧め。
146:nobodyさん
02/12/16 23:29
>>143
自分でさがしてみてなければ自分で作る。
んで、それをサイトに公開するとアンタが一番乗りの栄誉。多分。
147:nobodyさん
02/12/24 11:45
今使ってるperlソースの本体が大きいため、パフォーマンス向上の為に
dump label;
label：
を使用してundumpで取り出したソースを使えないかと相談されました。
なんでも実行時のperlソースのコンパイルが一番時間がかかるらしい。
これって要するに変数の使用領域とかずっと固定になると思うんです
が、大丈夫なもんなんですか？ もしパフォーマンスが上がって安全
であれば、もっと一般的な手法になってそうなので。要は動作させるた
めの安全性を知りたいわけです。使用してるperlのverは5.6です。
148:nobodyさん
02/12/24 12:17 pfcNuncp
ageてみる。
>147
別に使用領域は固定ではなかろう？
149:nobodyさん
02/12/24 23:24 2kS8TiT1
>>147
ソースを書き直すとかCで書き直すとかの選択はなしですか?
150:147
02/12/25 14:30 Uwnh35ZY
ソース修正はありですが、期間とコストの問題で全面改修は無理との事です。
dumpのほかにperlccを使用することも検討しているようなのですが。
151:nobodyさん
02/12/25 14:52
>>150
Apache::Registry 使うのがてっとり早くていいでしょう。
152:まつり
02/12/25 15:17 bCo3fgvu
ｽﾚﾘﾝｸ(entrance板)
153:147
02/12/25 15:19 Uwnh35ZY
>>151
webサーバーがネットスケープサーバーという。
私もそれ最初に言って却下されますた．．
154:nobodyさん
02/12/25 17:20 X8KgKfIl
んでPerl6はいつでますの？
大方
JavaVM=ParrotVM
Jave+Perl+Python=Perl6
みないなもんだろうけど
155:nobodyさん
02/12/25 17:48
にちゃんねるの鯖監視所みたいな鯖監視やってみたいんですが
URLを設定して
それがGET出来た場合1を返すプログラムってどんな感じなるんでしょうか？
156:nobodyさん
02/12/25 20:50 TE37817o
>>155
1. Connect出来たらTRUE
2. HTTP/1.1 200 OKならTRUE
3. 持ってきた内容に、指定したキーワードが入ってたらTRUE
どれがいい?
157:nobodyさん
02/12/26 12:01 GtbbpgRM
>>156
2ですかね？
余裕があれば3
158:nobodyさん
03/01/02 16:49
Perlでネットワーク関連のおもちゃ作ってるんですが
バイナリデータの処理はやっぱpackやunpackでいいんですかね
ビットフィールドの扱いはvec関数がいいとかは聞いたんですが。。
159:(･∀･)p
03/01/05 16:54
WINでDOS窓消して、バックグラウンドで実行する方法って無いでつか？
WHSよりPERLの方が使い慣れてるので･･･
160: ◆hMJAPH9PWA
03/01/05 19:16
>>158
用途が違うのでいいとか悪いとかは無いよ。
やりたい事が実現できるのならどっちでもいいと思う。
>>159
wperl script.pl
で。
ただしSTDERRの出力先は開けといた方がいいかも。
161:(♥・∀・）
03/01/05 20:21
おおー 有難う御座います >>◆hMJAPH9PWA さま
wperl(とVER付きの実行ファイル)は自分でも何となく試したのですが、パスの指定が間違えて居た様です。
拡張子を関連付けたら上手く行きますた
STDERRは適当にリダイレクトして使いたいと思います。
侍のVBSを色々弄ってるんですが、文字列の扱いに辟易してたんです
これで正規表現パワー炸裂できます
やっぱりPERLはｲｲ(･∀･)!!
多謝!!
162:nobodyさん
03/01/08 01:05
>>153
Netscape enterprise server ならNSAPIでPerl組み込めばイイじゃん。
URLﾘﾝｸ(search.cpan.org)
Netscape::Registry とか色々あるよ。
163:nobodyさん
03/01/08 01:08
>>158
ぃえす。pack()/unpack()で気持ち良くなれます。
ただ32bit以上の大きめな桁で論理演算しようとすると悲しいことが起こるので、
そーいうときは分割して処理するかMath::BigIntをつかうかXSで書くとよろし。
164:158
03/01/08 23:50
>>160
>>163
仕事が忙しくて来れませんですた。。
レスさんきぅです。やぱしpack、unpackがラクでいいですね。
それと、話ついでの質問で恐縮ですが、
時刻合わせのためにNTPサーバに接続して
タイムスタンプを取得しますよね。
そんで自分のPCをサーバに同期させる、
というようなプログラムを作ってるんですが、
DOSに取得した時刻を渡すことってできるんでしょうか？
自PCがWinXPなので
system("C:\windows\cmd.exe");
でDOSを開くところまでは行ったんですがそのあとが分かりません。。
pack、unpackと全く関係ない質問で申し訳ないですが(;´д`)A
165:nobodyさん
03/01/10 11:50 deTFlKvI
腐れﾏｶｰのみんな、CamelBonesで、Perl + Cocoaしよう。
RealBASICが買えないチミにおすすめですよ。
URLﾘﾝｸ(sourceforge.net)
166:山崎渉
03/01/15 13:34
（＾＾）
167:nobodyさん
03/02/17 16:45 sH+lSeTa
Delegateでない、普通の串をPerlで作りたいんですが、無理ですか？
Proxomitronに限界を感じる…
168:nobodyさん
03/02/18 13:07 AzMunH4n
みんな気がついてないのか？
気がついていていえないのか？
どうみてもスレタイ日本語変だろ？
Perlに依存しないCGIの話題一般 っていうなら日本語になってるｗ
169:nobodyさん
03/02/18 15:14
3つ目の選択肢。
・気がついていて言わないのか？
170:nobodyさん
03/02/18 15:16
なんでPerlのスレなのに逆の意味になるんだYO アフォ
171:nobodyさん
03/02/18 18:39
CGIに依存しない、Perlの話題。これでわからないか?
172:nobodyさん
03/02/18 19:22
>>168はPerlをCGI専用の言語だと思ってるのかな？
173:nobodyさん
03/02/18 19:38
ＣＧＩってのはライブラリか何かだと？
174:nobodyさん
03/02/18 22:39
一般と書いたら、一般にしないといけないそうです。
175:nobodyさん
03/02/19 09:32
やっぱ話題のレベルが下がると俄然伸びるなぁ。
176:山崎渉
03/03/13 17:14
（＾＾）
177:nobodyさん
03/03/30 18:00 Okt0zbYe
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で書いてます。
178:マリモーマ ◆r6PDGT6Xd2
03/03/31 05:02 opWXfh3V
>>177
そりゃ 両方成り立ってるからでは？
179:nobodyさん
03/03/31 05:11
まあひとつ言えることはおそらく板違いだということ。
プログラム技術板にPerlスレあるだろ。
WebProgに依存しないと言ったら確実に板違いだな。
180:nobodyさん
03/03/31 08:59
>>179
Perl・CGI／レンタルサーバ板からPerl・CGIがPHP板に移動してきて出来たのがWebProg板なので板違いではありません
181:4
03/03/31 16:29 i9DdbQyy
>>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とでる？
182:nobodyさん
03/03/31 19:18
>>179
177が板違いなのは間違いないがスレ自体が板違いの可能性大
スレタイの日本語からしておかしいが
WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通
100歩譲ってCGIに限定しないPerlの話題一般 と解釈するならばこのスレ自体が板違い
183:nobodyさん
03/04/03 11:58
>>182
昔からPerlはプログラム板とは独立してレン鯖板にあって、
それがココに移ってきたから板違いじゃない。
新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。
184:nobodyさん
03/04/04 00:08 tjlK2qT8
>>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がわからないです。
185: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 のパターンマッチは失敗してるってかんじでないかい？
186:nobodyさん
03/04/04 01:00
てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。
日本語のな。
187:nobodyさん
03/04/04 01:14
>>186
自分で出来ねーんだったらエラそーにすんな
大体OSもいわねーのに手順も糞もあるかボケ
188:4
03/04/04 02:36 QX5gDFpX
>>186
$ perlcc foo.pl
話題にのって質問。
perlを無料でwindowsのexeにコンパイルできないだろうか?
贅沢言うとTk.pmも使いたいのですが。
ActivePerlのperlccは単体では使えないもよう。
189:184
03/04/04 02:39 tjlK2qT8
>>185
下のスクリプトから123が出てくるのは期待通りなんですが，
上から1しかでてこないのが理解不能なんです。
use encodingの使い方間違ってる？
190:251
03/04/04 02:42
>>188
perl2exe
URLﾘﾝｸ(www.indigostar.com)
がexeにできるけどシェアウェアか・・・
どうせおもちゃだし・・・
191:nobodyさん
03/04/04 03:24
>>189
encodingプラグマを理解していないんじゃない？
>>185で回答してもらっているでしょ
なんのためにencoding使おうとしている？
192:nobodyさん
03/04/04 04:49
>>183
だから、それならプログラム版に移ればよかっただけの話だろ
大量の２ｃｈ系掲示板郡が散在していて、
それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが
板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ
ただのごみため場と化すのが自然の理
別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ
移動するときプログラム版が許容量いっぱいで無理だったとかか？
それなら、移動する時期を誤ったか 無理せずもとの場所で存続するか
元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？
少なくとも、移ってきたから板違いじゃないっていうのは見当違い
193:nobodyさん
03/04/04 08:53
>>192
よーするにだ。後から出てきて勝手な講釈たれんなﾎﾞｹナス。
そー言う事。
194:nobodyさん
03/04/04 13:55
よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。
そー言う事。
195:nobodyさん
03/04/04 19:33
WebProgだけ別にした管理者が馬鹿。
196:nobodyさん
03/04/07 06:35
それだけWebプログラム関連の負荷が大きかったって事だろ
まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな
197:nobodyさん
03/04/08 00:48
だってム板にたてたらおっぱらわれるじゃん…
198:デフォルトの名無しさん
03/04/08 10:41 ibnCgWfp
もうるびキティいなくなったから大丈夫だよ。
199:nobodyさん
03/10/31 01:47
テストかきこ
200:nobodyさん
03/11/04 16:26 ZhxpP0UW
随分落ちてるなage
201:nobodyさん
03/11/06 23:56 GvRKtYWY
perlのパイプってのは非同期なのでしょうか？
b.pl ---------------------------------処理終了
|パイプ開始 |パイプクローズ
a.pl-----------------------------処理終了
パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？
また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？
答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。
202:nobodyさん
03/11/07 12:29
そりゃあ前代未聞だ
203:nobodyさん
03/11/08 22:34
>>201
確かに前代未聞だ。
答え。やってみれば良い。理論上は、close処理をしっかりすれば動作するはずだが。
204:nobodyさん
03/11/08 23:12 U/fdC1Uy
ActivePerlで試したよ。
local($from,$to,@data) = @_;
unless(open(DELI,"| " . $deliveryprocess . " " . $from . " " . $to)){
return 0;
}
print DELI @data;
close(DELI);
return 1;
てなコードで、
#! /usr/bin/perl
print $ARGV[0] . "\r\n";
print $ARGV[1] . "\r\n";
while(<STDIN>){
print;
}
while(1){}
なスクリプトにパイプでデータ送ったら見事にブロックしてくれやがりました。
開発中止。
205:nobodyさん
03/12/15 05:04 Scf5jbcR
普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。
非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。
206:nobodyさん
03/12/15 06:33
>>205
> 普通は
普通でない場合について詳しく教えてください。
207:nobodyさん
03/12/15 22:28 qGs1Vqs+
>>205
一ヶ月前のレスを煽ってるのも大概だと思われ。
208:nobodyさん
03/12/17 12:28
あれれ、5.8.2が出たのか
めんどくさいなあ
209:nobodyさん
04/05/20 13:10
perl 5.005 を使っていますが、
このような古い環境で UTF-8 → Shift JIS (EUC でも可) の
変換方法がありましたらお教え願えますか?
210:nobodyさん
04/05/20 13:57
>>209
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(openlab.ring.gr.jp)
ｽﾚﾘﾝｸ(php板)
ｽﾚﾘﾝｸ(tech板)
211:209
04/05/20 14:07
>>210
jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。
スレ汚しすいませんでした。
212:nobodyさん
04/05/26 11:48 3xdgk57n
use strict;
sub new {
my $that = shift;
my $class = ref($that) || $that;
my $self = { a=>{A=>'A',B=>'B'}, b=>[qw/A B/] };
bless ($self, $class);
return $self;
}
sub method {
my $self = shift;
my $a = $self->{'a'};
my $b = $self->{'b'};
}
$a,$bをデリファレンスして利用するのではなくて
型グロブで選択的別名定義して%a,@bと実装できますか？
できるのでしたらどのように実装するのでしょうか？
213:nobodyさん
04/05/26 17:14
sub method{
my $self = shift;
our(%a, @b); # or use vars pragma
local *a = $self->{a};
local *b = $self->{b};
$a{foo} = 1;
push @b, 'foo';
}
またはAlias.pmとかな。
URLﾘﾝｸ(search.cpan.org)
どっちにしてもあまりメリットは感じないが。
214:nobodyさん
04/08/08 10:03 Ejd6WZ6r
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift
equips => undef
}, $pkg;
}
ここでequipsを配列にしたいのですが、
そのような事は可能でしょうか？
push($self->{equips}, $object);
$self->{equips}->[1]->getEffect();
($objectは別のクラスオブジェクトでgetEffectはそのメソッド)
みたいな感じで使いたいのですが。
215:nobodyさん
04/08/08 13:06
equips を配列へのリファレンスにすることならできる
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift,
equips => []
}, $pkg;
}
としておいて
push(@{$self->{equips}}, $object);
$self->{equips}->[1]->getEffect();
216:nobodyさん
04/08/09 19:13
巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない
ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？
プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？
sub func($$@) #プロトタイプ宣言あり
sub func #プロトタイプ宣言無し
217:nobodyさん
04/08/09 20:38
>>216
反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何?
その「巷のスクリプト」とやらはサブルーチン呼び出すのに &
つけてたり、メソッドとして呼び出してたりしてないか?
あと Perl 関係のメインスレは以下なので以後はそちらに。
ｽﾚﾘﾝｸ(php板)
ｽﾚﾘﾝｸ(tech板)
218:nobodyさん
04/08/09 21:35
>>217
コンパイルタイムの型チェックと最適化がされるらしいので、
より効率的でより安全だと思うのですが。
219:nobodyさん
04/08/20 07:16
らしいじゃなぁ
PerlOPみて調べて自分で考えろ
220:nobodyさん
04/08/31 01:56
>>219
要するにあなたは何も知らないんですね ;-)
221:山崎 渉 ◆hG4XfSMGTg
06/02/17 13:07:09
ブヒャヒャヒャヒャｗｗｗｗｗｗｗ
222:nobodyさん
07/02/10 21:36:53
簡単にお金稼ぎ！！！
以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の１日目で 2000 円～3000 円 は確実に稼げます。
実際の作業は数十分程度、１時間はかかりません。
(1) URLﾘﾝｸ(sinsetsu.lxl.jp)
↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
そこで無料会員登録をする。
※フリーメールアドレスでもＯＫ。
(3)ポイントを稼ぎます。
懸賞の応募や無料会員登録をすればするほど、
ポイントが貰えます。
他にも沢山種類があるので、１日目で
約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
そこから交換をしましょう。
これで現金を稼ぐといいですよ！！！
無料会員登録はこちらから↓
URLﾘﾝｸ(sinsetsu.lxl.jp)
223:nobodyさん
07/03/23 07:33:44
>>168
お前頭悪いなｗｗｗ
ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ
死ねクズｗｗ