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

1 名前：nobodyさん [02/08/29 00:30 ID:IO82UwTT] そんなスレ 116 名前：nobodyさん [02/10/05 19:31 ID:diYif7N0] ANhttpdとActivePerlをインストールしました。 DOSプロンプトではPerlが動いているのを確認できました。 IEでhtmlを見るのにローカルのアドレスを指定してもサーバーがみつかりませんと怒られますた。 アドレスバーに打ち込んだのこれです localhost/~HTTPD以下のフォルダ名/ファイル名 どうしたら見れるでしょうか？ どなたか教えてください。 おながいします。 117 名前：nobodyさん mailto:sage [02/10/05 20:00 ID:???] >>116 localhostではなくて、127.0.0.1とした時に動くなら、 IEオプション-接続-LANの 「ローカルアドレスにはプロキシサーバーを使用しない」 をチェックする。 IPアドレスで接続できないなら、AN HTTPDの設定がおかしい。 118 名前：116 mailto:sage [02/10/05 20:52 ID:???] >>117 レスありがとうございます。 勉強になりました パス間違ってますた。 お騒がせしてすみません。 119 名前：nobodyさん mailto:sage [02/10/08 00:39 ID:???] ttp://www.thinkgeek.com/stuff/docs/perl-camel-source.shtml いつ見ても感動するなあ、これ。 120 名前：nobodyさん <sage> mailto:sage [02/10/08 02:54 ID:???] >>119 実行すると４頭のラクダになるんですね。ほんとスゴイなぁ。 121 名前：nobodyさん mailto:sage [02/10/08 03:07 ID:???] >>119 すげー！ 感動した！ 122 名前： ◆hMJAPH9PWA [02/10/16 11:41 ID: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さん mailto:sage [02/10/16 20:18 ID:???] 引数の順に左右される可能性のあるコードなんか、まともな奴は書かない。 124 名前：nobodyさん mailto:sage [02/10/17 02:57 ID:???] まあ、またーりいこうや。 人少ないんだしさ。 125 名前： ◆hMJAPH9PWA mailto:sage [02/10/17 13:23 ID:???] >>123 引数の評価の順、というよりは、"引数の参照渡し"という意味を心の底から実感したのが私的には重要だなぁ。 このあたり、C++だと罠がなくていいね。 126 名前：rubyist＠カラアゲうまうま mailto:aasawdw [02/10/29 06:43 ID:???] asf86we785f78wqtrf7wqgfrutewiftd97s6tcft8sdgof しねやｈにおｄｂｓｃｊ 127 名前：nobodyさん [02/10/31 11:02 ID:LYtKJNHh] 正規表現の構造を図にして出力してくれるライブラリって どこにあったっけ？ たしか海外のサイトでそんなのを見かけたんだけど・・。 128 名前：nobodyさん <sage> mailto:sage [02/10/31 23:04 ID:???] >>127 parrotの中のGraphViewじゃないか。 ６４MBあるんで、DLしたがインスコはやめてる。誰か、やってない？ 正規表現スレで聞いてみたら。 129 名前：127 mailto:sage [02/11/01 01:11 ID:???] >>128 ありがとうございます！ parrot と GraphView で Google や use Perl を検索しても 何も出てこなかったですけど、正規表現スレで聞いてみます。 130 名前：nobodyさん <sage> mailto:sage [02/11/01 08:21 ID:???] >>129 CPANのsearchでModuleを選んで検索汁。 131 名前：127 mailto:sage [02/11/01 10:30 ID:???] www.cc.rim.or.jp/~midorin/mad-p/RegexDiagram.html これの使い方を教えてホスィ！であります！ >>130 CPAN は既に検索しました。でも↑これがベターっぽい？です。 132 名前：127 mailto:sage [02/11/03 03:24 ID:???] ↑Win では tgif のヴューワがないらしい？ というわけで bourbon.cs.umd.edu:8001/tgif/ ここから Linux 用の tgif を DL して、 Linux 上で PDF に変換してから Win に持ってきて使うことにしますた。 133 名前：nobodyさん mailto:sage [02/11/12 01:49 ID:???] Cygwin + Xサーバ入れればtgif使えるよ。 134 名前：rubyist@カラアゲうまうま mailto:uiiiu [02/11/18 19:34 ID:???] tju6y7i78i78i78o89p98p;09;p09;p0p0p0p0p0p0p; 135 名前：nobodyさん [02/12/10 19:24 ID:7jw5awUE] @AAA　=　<OUTDATA>; って感じで、ハンドルの内容を取得してるのだが、めちゃくちゃ遅い（汗） 高速化する方法知ってる人いません？ 136 名前：nobodyさん mailto:sage [02/12/10 19:36 ID:???] $i=0; for(;$AAA[$i]=<OUTDATA>;$i++){;} 速くなるとはおもえんが。 137 名前：nobodyさん mailto:sage　　 [02/12/10 20:44 ID:???] $AAA= `cat file`; 138 名前：135 [02/12/11 11:49 ID:d9JpgDns] >>136 ためしてみましたが、速くはならないみたいです。 >>137 すみません。説明が足りませんでした。 ハンドルはopen/open2で取得した標準出力なので、実ファイルは ないんですよ。 やっぱり無理かなあ 139 名前：nobodyさん mailto:sage [02/12/11 11:54 ID:???] >>137 興味半分でそれ試して見たが 逆に遅くなったぞ（ｗ 140 名前： ◆hMJAPH9PWA mailto:sage [02/12/11 12:08 ID:???] >>138 push @array, $_ while <OUTDATA>; とでもすれば少しはマシになる事もあるかな。 でも配列に入れる必要がないなら、配列に入れないのが一番いいだろうね。 141 名前：おまんこは地球を救う [02/12/11 14:11 ID:QC8qbww2] yahooo.s2.x-beat.com/linkvp/linkvp.html 142 名前：nobodyさん mailto:sage [02/12/11 23:42 ID:???] 配列にぶち込んでる時点で負け。 allocするコストがでかいから、1行単位に読んだ方がはやかったりするよ。 143 名前：nobodyさん [02/12/14 01:12 ID:u240v51k] Wordのデータファイルをperlでプレーンテキストだけ出したいんですけど Wordのデータファイルの構造がのっているサイトとかありませんか? 144 名前：nobodyさん mailto:sage [02/12/14 01:19 ID:???] ２５歳。 去年まで金無し君だったけど、オンラインカジノとパチンコで 二年で３５０万貯めた。一度やってみなよ。 初回のみだけど、１ドル以上のチップを買えば３０ドル（４０００円くらい）貰える。 もらうだけもらってプレイせずに換金することもできるし、ルーレットで赤か黒に 思い切って賭けてしまえば５０パーセントで二倍になる。 金なきゃオフラインでゲームすればいいだけ。暇つぶしになる。 ビデオポーカーとかスロとか色々あるのでマジでお勧め。 www.imperialcasino.com/~1kl5/japanese/ 145 名前：nobodyさん mailto:sage [02/12/14 05:11 ID:???] ２５歳。 去年まで菜食主義だったけど、吉野家の牛丼並で 二年で３５０杯食った。一度行ってみなよ。 牛丼の日のみだけど、１杯以上の並を買えばスピードくじ貰える。 もらうだけもらって外れても味噌汁か玉子に換金することもできるし、 思い切って特盛にすれば５５０円で二倍になる。 金なきゃお茶飲んで帰ればいいだけ。店員にマークされる。 ねぎだくとか牛鮭とか色々あるのでマジでお勧め。 146 名前：nobodyさん mailto:sage [02/12/16 23:29 ID:???] >>143 自分でさがしてみてなければ自分で作る。 んで、それをサイトに公開するとアンタが一番乗りの栄誉。多分。 147 名前：nobodyさん mailto:sage [02/12/24 11:45 ID:???] 今使ってるperlソースの本体が大きいため、パフォーマンス向上の為に dump　label; label： を使用してundumpで取り出したソースを使えないかと相談されました。 なんでも実行時のperlソースのコンパイルが一番時間がかかるらしい。 これって要するに変数の使用領域とかずっと固定になると思うんです が、大丈夫なもんなんですか？　もしパフォーマンスが上がって安全 であれば、もっと一般的な手法になってそうなので。要は動作させるた めの安全性を知りたいわけです。使用してるperlのverは5.6です。 148 名前：nobodyさん [02/12/24 12:17 ID:pfcNuncp] ageてみる。 >147 別に使用領域は固定ではなかろう？ 149 名前：nobodyさん [02/12/24 23:24 ID:2kS8TiT1] >>147 ソースを書き直すとかCで書き直すとかの選択はなしですか? 150 名前：147 [02/12/25 14:30 ID:Uwnh35ZY] ソース修正はありですが、期間とコストの問題で全面改修は無理との事です。 dumpのほかにperlccを使用することも検討しているようなのですが。 151 名前：nobodyさん mailto:sage [02/12/25 14:52 ID:???] >>150 Apache::Registry 使うのがてっとり早くていいでしょう。 152 名前：まつり [02/12/25 15:17 ID:bCo3fgvu] ex.2ch.net/test/read.cgi/entrance/1040792699/ 153 名前：147 [02/12/25 15:19 ID:Uwnh35ZY] >>151 webサーバーがネットスケープサーバーという。 私もそれ最初に言って却下されますた．． 154 名前：nobodyさん [02/12/25 17:20 ID:X8KgKfIl] んでPerl6はいつでますの？ 大方 JavaVM=ParrotVM Jave+Perl+Python=Perl6 みないなもんだろうけど 155 名前：nobodyさん mailto:sage [02/12/25 17:48 ID:???] にちゃんねるの鯖監視所みたいな鯖監視やってみたいんですが URLを設定して それがGET出来た場合1を返すプログラムってどんな感じなるんでしょうか？ 156 名前：nobodyさん [02/12/25 20:50 ID:TE37817o] >>155 1. Connect出来たらTRUE 2. HTTP/1.1 200 OKならTRUE 3. 持ってきた内容に、指定したキーワードが入ってたらTRUE どれがいい? 157 名前：nobodyさん [02/12/26 12:01 ID:GtbbpgRM] >>156 2ですかね？ 余裕があれば3 158 名前：nobodyさん mailto:sage [03/01/02 16:49 ID:???] Perlでネットワーク関連のおもちゃ作ってるんですが バイナリデータの処理はやっぱpackやunpackでいいんですかね ビットフィールドの扱いはvec関数がいいとかは聞いたんですが。。 159 名前：(･∀･)p mailto:(･∀･) [03/01/05 16:54 ID:???] WINでDOS窓消して、バックグラウンドで実行する方法って無いでつか？ WHSよりPERLの方が使い慣れてるので･･･ 160 名前： ◆hMJAPH9PWA mailto:sage [03/01/05 19:16 ID:???] >>158 用途が違うのでいいとか悪いとかは無いよ。 やりたい事が実現できるのならどっちでもいいと思う。 >>159 wperl script.pl で。 ただしSTDERRの出力先は開けといた方がいいかも。 161 名前：(♥・∀・） mailto:sage [03/01/05 20:21 ID:???] おおー　　有難う御座います　>>◆hMJAPH9PWA さま wperl(とVER付きの実行ファイル)は自分でも何となく試したのですが、パスの指定が間違えて居た様です。 拡張子を関連付けたら上手く行きますた STDERRは適当にリダイレクトして使いたいと思います。 侍のVBSを色々弄ってるんですが、文字列の扱いに辟易してたんです これで正規表現パワー炸裂できます やっぱりPERLはｲｲ(･∀･)!! 多謝!! 162 名前：nobodyさん mailto:sage [03/01/08 01:05 ID:???] >>153 Netscape enterprise server ならNSAPIでPerl組み込めばイイじゃん。 search.cpan.org/author/BSUGARS/nsapi_perl-0.24/ Netscape::Registry とか色々あるよ。 163 名前：nobodyさん mailto:sage [03/01/08 01:08 ID:???] >>158 ぃえす。pack()/unpack()で気持ち良くなれます。 ただ32bit以上の大きめな桁で論理演算しようとすると悲しいことが起こるので、 そーいうときは分割して処理するかMath::BigIntをつかうかXSで書くとよろし。 164 名前：158 mailto:sage [03/01/08 23:50 ID:???] >>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 ID:deTFlKvI] 腐れﾏｶｰのみんな、CamelBonesで、Perl + Cocoaしよう。 RealBASICが買えないチミにおすすめですよ。 sourceforge.net/projects/camelbones/ 166 名前：山崎渉 mailto:（＾＾）sage [03/01/15 13:34 ID:???] （＾＾） 167 名前：nobodyさん [03/02/17 16:45 ID:sH+lSeTa] Delegateでない、普通の串をPerlで作りたいんですが、無理ですか？ Proxomitronに限界を感じる… 168 名前：nobodyさん [03/02/18 13:07 ID:AzMunH4n] みんな気がついてないのか？ 気がついていていえないのか？ どうみてもスレタイ日本語変だろ？ Perlに依存しないCGIの話題一般　っていうなら日本語になってるｗ 169 名前：nobodyさん mailto:sage [03/02/18 15:14 ID:???] 3つ目の選択肢。 ・気がついていて言わないのか？ 170 名前：nobodyさん mailto:sage [03/02/18 15:16 ID:???] なんでPerlのスレなのに逆の意味になるんだYO アフォ 171 名前：nobodyさん mailto:sage [03/02/18 18:39 ID:???] CGIに依存しない、Perlの話題。これでわからないか? 172 名前：nobodyさん mailto:sage [03/02/18 19:22 ID:???] >>168はPerlをCGI専用の言語だと思ってるのかな？ 173 名前：nobodyさん mailto:sage [03/02/18 19:38 ID:???] ＣＧＩってのはライブラリか何かだと？ 174 名前：nobodyさん mailto:sage [03/02/18 22:39 ID:???] 一般と書いたら、一般にしないといけないそうです。 175 名前：nobodyさん mailto:sage [03/02/19 09:32 ID:???] やっぱ話題のレベルが下がると俄然伸びるなぁ。 176 名前：山崎渉 mailto:（＾＾） [03/03/13 17:14 ID:???] （＾＾） 177 名前：nobodyさん [03/03/30 18:00 ID: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 ID:opWXfh3V] >>177 そりゃ　両方成り立ってるからでは？ 179 名前：nobodyさん mailto:sage [03/03/31 05:11 ID:???] まあひとつ言えることはおそらく板違いだということ。 プログラム技術板にPerlスレあるだろ。 WebProgに依存しないと言ったら確実に板違いだな。 180 名前：nobodyさん mailto:sage [03/03/31 08:59 ID:???] >>179 Perl・CGI／レンタルサーバ板からPerl・CGIがPHP板に移動してきて出来たのがWebProg板なので板違いではありません 181 名前：4 [03/03/31 16:29 ID: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さん mailto:sage [03/03/31 19:18 ID:???] >>179 177が板違いなのは間違いないがスレ自体が板違いの可能性大 スレタイの日本語からしておかしいが WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通 100歩譲ってCGIに限定しないPerlの話題一般 と解釈するならばこのスレ自体が板違い 183 名前：nobodyさん mailto:sage [03/04/03 11:58 ID:???] >>182 昔からPerlはプログラム板とは独立してレン鯖板にあって、 それがココに移ってきたから板違いじゃない。 新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。 184 名前：nobodyさん [03/04/04 00:08 ID: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さん mailto:sage [03/04/04 00:28 ID:???] >>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 ID:???] てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。 日本語のな。 187 名前：nobodyさん mailto:sage　釣りか? [03/04/04 01:14 ID:???] >>186 自分で出来ねーんだったらエラそーにすんな 大体OSもいわねーのに手順も糞もあるかボケ 188 名前：4 [03/04/04 02:36 ID:QX5gDFpX] >>186 $ perlcc foo.pl 話題にのって質問。 perlを無料でwindowsのexeにコンパイルできないだろうか? 贅沢言うとTk.pmも使いたいのですが。 ActivePerlのperlccは単体では使えないもよう。 189 名前：184 [03/04/04 02:39 ID:tjlK2qT8] >>185 下のスクリプトから123が出てくるのは期待通りなんですが， 上から1しかでてこないのが理解不能なんです。 use encodingの使い方間違ってる？ 190 名前：251 mailto:sage [03/04/04 02:42 ID:???] >>188 perl2exe ttp://www.indigostar.com/perl2exe.htm がexeにできるけどシェアウェアか・・・ どうせおもちゃだし・・・ 191 名前：nobodyさん mailto:sage [03/04/04 03:24 ID:???] >>189 encodingプラグマを理解していないんじゃない？ >>185で回答してもらっているでしょ なんのためにencoding使おうとしている？ 192 名前：nobodyさん mailto:sage [03/04/04 04:49 ID:???] >>183 だから、それならプログラム版に移ればよかっただけの話だろ 大量の２ｃｈ系掲示板郡が散在していて、 それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが 板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ ただのごみため場と化すのが自然の理 別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ 移動するときプログラム版が許容量いっぱいで無理だったとかか？ それなら、移動する時期を誤ったか　無理せずもとの場所で存続するか 元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？ 少なくとも、移ってきたから板違いじゃないっていうのは見当違い 193 名前：nobodyさん mailto:sage [03/04/04 08:53 ID:???] >>192 よーするにだ。後から出てきて勝手な講釈たれんなﾎﾞｹナス。 そー言う事。 194 名前：nobodyさん mailto:sage [03/04/04 13:55 ID:???] よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。 そー言う事。 195 名前：nobodyさん mailto:sage [03/04/04 19:33 ID:???] WebProgだけ別にした管理者が馬鹿。 196 名前：nobodyさん mailto:sage [03/04/07 06:35 ID:???] それだけWebプログラム関連の負荷が大きかったって事だろ まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな 197 名前：nobodyさん mailto:sage [03/04/08 00:48 ID:???] だってム板にたてたらおっぱらわれるじゃん… 198 名前：デフォルトの名無しさん [03/04/08 10:41 ID:ibnCgWfp] もうるびキティいなくなったから大丈夫だよ。 199 名前：nobodyさん mailto:sage [03/10/31 01:47 ID:???] テストかきこ 200 名前：nobodyさん [03/11/04 16:26 ID:ZhxpP0UW] 随分落ちてるなage 201 名前：nobodyさん [03/11/06 23:56 ID:GvRKtYWY] perlのパイプってのは非同期なのでしょうか？ b.pl　　　　　　　　　---------------------------------処理終了 |パイプ開始　　|パイプクローズ a.pl-----------------------------処理終了 パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？ また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？ 答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。 202 名前：nobodyさん mailto:sage [03/11/07 12:29 ID:???] そりゃあ前代未聞だ 203 名前：nobodyさん mailto:sage [03/11/08 22:34 ID:???] >>201 確かに前代未聞だ。 答え。やってみれば良い。理論上は、close処理をしっかりすれば動作するはずだが。 204 名前：nobodyさん [03/11/08 23:12 ID: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 ID:Scf5jbcR] 普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。 非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。 206 名前：nobodyさん mailto:sage [03/12/15 06:33 ID:???] >>205 > 普通は 普通でない場合について詳しく教えてください。 207 名前：nobodyさん [03/12/15 22:28 ID:qGs1Vqs+] >>205 一ヶ月前のレスを煽ってるのも大概だと思われ。 208 名前：nobodyさん mailto:sage [03/12/17 12:28 ID:???] あれれ、5.8.2が出たのか めんどくさいなあ 209 名前：nobodyさん mailto:sage [04/05/20 13:10 ID:???] perl 5.005 を使っていますが、 このような古い環境で UTF-8 → Shift JIS (EUC でも可) の 変換方法がありましたらお教え願えますか? 210 名前：nobodyさん mailto:sage [04/05/20 13:57 ID:???] >>209 search.cpan.org/~dankogai/Jcode-0.83/ openlab.ring.gr.jp/Jcode/index-j.html pc5.2ch.net/test/read.cgi/php/1081148490/ pc5.2ch.net/test/read.cgi/tech/1079114157/ 211 名前：209 mailto:sage [04/05/20 14:07 ID:???] >>210 jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。 スレ汚しすいませんでした。 212 名前：nobodyさん [04/05/26 11:48 ID: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さん mailto:sage [04/05/26 17:14 ID:???] 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とかな。 search.cpan.org/~gsar/Alias-2.32/Alias.pm どっちにしてもあまりメリットは感じないが。 214 名前：nobodyさん [04/08/08 10:03 ID: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さん mailto:sage [04/08/08 13:06 ID:???] equips を配列へのリファレンスにすることならできる sub new { 　my $pkg = shift; 　bless 　{ 　　name => shift, 　　age => shift, 　　equips => [] 　}, $pkg; } としておいて push(@{$self->{equips}}, $object); $self->{equips}->[1]->getEffect(); 216 名前：nobodyさん mailto:sage [04/08/09 19:13 ID:???] 巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？ プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？ sub func($$@)　#プロトタイプ宣言あり sub func　　　　　#プロトタイプ宣言無し 217 名前：nobodyさん mailto:sage [04/08/09 20:38 ID:???] >>216 反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何? その「巷のスクリプト」とやらはサブルーチン呼び出すのに & つけてたり、メソッドとして呼び出してたりしてないか? あと Perl 関係のメインスレは以下なので以後はそちらに。 pc5.2ch.net/test/read.cgi/php/1089779036/ pc5.2ch.net/test/read.cgi/tech/1090889189/ 218 名前：nobodyさん mailto:sage [04/08/09 21:35 ID:???] >>217 コンパイルタイムの型チェックと最適化がされるらしいので、 より効率的でより安全だと思うのですが。 219 名前：nobodyさん mailto:sage [04/08/20 07:16 ID:???] らしいじゃなぁ PerlOPみて調べて自分で考えろ 220 名前：nobodyさん mailto:sage [04/08/31 01:56 ID:???] >>219 要するにあなたは何も知らないんですね ;-) 221 名前：山崎 渉 ◆hG4XfSMGTg mailto:sage [2006/02/17(金) 13:07:09 ID:???] ブヒャヒャヒャヒャｗｗｗｗｗｗｗ 222 名前：nobodyさん mailto:sage [2007/02/10(土) 21:36:53 ID:???] 簡単にお金稼ぎ！！！ 以下の手順でやれば、無料でお金稼ぎができます。 企業も広告の宣伝になるから、お金をくれるわけです。 最初の１日目で 2000 円〜3000 円 は確実に稼げます。 実際の作業は数十分程度、１時間はかかりません。 (1) sinsetsu.lxl.jp/#.2ch.net 　 　↑このアドレスからサイトに行く。 (2) ゲットマネー登録サイトに移動するので、 　そこで無料会員登録をする。 　※フリーメールアドレスでもＯＫ。 (3)ポイントを稼ぎます。 　懸賞の応募や無料会員登録をすればするほど、 　ポイントが貰えます。 　他にも沢山種類があるので、１日目で 　約 20000 ポイントは GET できます。 (4) 10000 ポイントから、現金に交換できます。 (5)キャッシュバックという所がありますので、 　そこから交換をしましょう。 これで現金を稼ぐといいですよ！！！ 無料会員登録はこちらから↓ sinsetsu.lxl.jp/#.2ch.net 223 名前：nobodyさん mailto:sage [2007/03/23(金) 07:33:44 ID:???] >>168 お前頭悪いなｗｗｗ ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ 死ねクズｗｗ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef