Perlについての質問箱 37箱目

1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、 Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 ( WEBプログラミング板 pc11.2ch.net/php/ ) CGIの質問は答えが Perlと全然関係ない話に帰着する場合が 多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2008/08/11 現在の最新版（安定版）: 5.10.0 ● 2008/08/11 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 36箱目 pc11.2ch.net/test/read.cgi/tech/1215569470/ リンク集は>>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは>>5-6 あたり 369 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:49:22 ] >>361 それは結果がたまたま同じだっただけだ。 man perlvar の $, を100ぺん読み直せ 370 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:51:31 ] お尋ねします。 「○○もしくは△△を含む」は「○○|△△」でできますが、 「○○および△△を含む」はどうするのでしょうか？ つまりand検索です。 要素が二つとは限らず可変なのですが、どうするのが効率が良いのでしょうか？ 371 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 14:20:11 ] >>370 っ[?=] 372 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 14:29:36 ] >>370 っ[ブール代数] 373 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 16:00:48 ] >>366 アリ！バッチリです。これで仕事がはかどります。 374 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 17:06:01 ] もう見てもいないだろうけど my $hoge = q{hoge} ; $hoge =~ s{hoge} # これでも良くね？ {foo} ; print $hoge . "\n" ; 375 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 20:44:49 ] 他人が書いたソースコード読む場合なんだけど、 アロー演算子がでてきたときに、それが オブジェクト指向のアロー演算子なのか、それとも、 デリファレンスのアロー演算子なのか、どこを見て 見分ければいいの？ 376 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 20:54:27 ] オレ様が考えた、仕様を全部理解していなくてはならない度 レベル１　言語使用考案者（ラリー・ウオール） レベル２　仕様書を紙に書く人 レベル３　インタプリターを書く人 レベル４　専用エディター作る人 レベル５　モジュール作る人 レベル６　教科書や参考書を書く人 レベル７　このスレで初心者に教える人 レベル８　このスレで質問する人 377 名前：356 mailto:sage [2008/08/28(木) 02:10:26 ] とりあえずLexical::Aliasでお茶を濁すことにしました Data::Aliasとの違いに気を付けようと思います 378 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 09:59:37 ] 「はじめての人のためのかんたんPerl/CGI入門」 読んでるけど、よくわからんな。 379 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 10:03:39 ] ourってなに？ よく使うの？ 380 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 12:13:44 ] >>375 ぐぐれしね >>376 逆だしね >>378-379 最後まで読めしね 381 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 13:09:36 ] しねしね団ですね。わかります。 382 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 13:11:09 ] 「逆だし、ね」なのか 「逆だ、死ね」なのか 383 名前：355 mailto:sage [2008/08/28(木) 17:35:40 ] 回答がなかったので、結局、DBにつっこんだ。 今さらだが、もしハッシュでやるんならキーとvalue入れ替えてBTREEのハッシュ再構築して、 トラバースってことになるんだろうな。。。 DB_Fileはキー重複にも対応してたはずなので、やろうと思えばできそう。 384 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 17:45:38 ] >>383 とりあえず順番考えずにべたで出力したのをsortコマンドに食わせれば楽だったかもな。 ぜんぜんperlじゃないけどw sortコマンドはメモリ足りなけりゃ中間結果をディスクに書いてマージソートとかやってくれる。 385 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 18:55:18 ] >>384 × マージソートとかやってくれる。 ○ ソート済みファイルのマージとかやってくれる。 386 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 04:15:14 ] requireの相互呼び出しってできないんだな。 387 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 04:20:47 ] requireが実際に何をしているか知っていれば自ずと分かることだ 388 名前：デフォルトの名無しさん [2008/08/29(金) 11:13:17 ] ttp://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FLWP#i6 ↑のページの通りにLWPを使ってPOSTしているのですが、 どのようなデータをPOSTしているか確認する方法はないでしょうか？ %formdataの中を見るのではなく、requestした結果から見れたらいいのですが。 389 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 11:17:50 ] パケットキャプチャは一番確実。 暗号化されてたらバケラッタだけど 390 名前：388 mailto:sage [2008/08/29(金) 11:43:42 ] >>389 ありがとうございます。 Etherealというソフトで確認してみたいと思います。 391 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 18:10:06 ] Template-tooklkitでdoにあたるincludeやprocessは見つかったのですが evalのような関数は無いでしょうか。 [% 　　tt2_str = '[% cnt = 10 + 5; cnt; %]'; 　　EVAL(tt2_str); # ←のような感じ %] 期待する表示結果：15 392 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 18:53:40 ] ぐぐれ 393 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:08:14 ] 最近はなんでもかんでも「ぐぐれ」って返すのがブームなの？ 394 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:10:19 ] ぐぐれ 395 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:28:54 ] ぐぐっても解決しない質問ｷﾎﾞｳ 396 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:00:13 ] ファイル名　「a.pl」 ソースコード print "a"; require a.pl; ↑これを実行するとどうなる？ 397 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:23:10 ] 試せ 398 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:24:29 ] ↑が代わりに試せ 399 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 21:44:59 ] ＞これを実行するとどうなる？ 自分で実行すればいいじゃないかよ。 もしかしてナイコン？ 400 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 22:21:28 ] >>399は40代と見た。 401 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 23:14:08 ] いきなり考えなしに実行すると危険なことってあるよね。 コンソールレベルでも、 open FILE > C:/windows/comamnd.com とか。 コマンドコムが上書きされてしまう。 あと危険なのは、rmとか。 systemとか。 あと、レンタルサーバーで無限ループになったときって どうすればいいの？ 402 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 23:40:30 ] my a=1; これでエラーが出るんで、 「おかしいなーおかしいなー」 って悩んでたら、よく考えたら、 ＄が抜けてた。 403 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:00:37 ] use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; system q|cls|; #---------------------------------- my $bar = 'fuga.txt'; if (-f $bar) { print "ファイル".$bar."が存在します。\n"; } else { print"ファイル". $bar."が存在しません。\n"; } ↑このコードすごいよ。 ファイルが存在するかどうかを調べてくれて、 レポートまでしてくれるよ。 404 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:10:35 ] >>401 > いきなり考えなしに実行すると危険なことってあるよね。 ありますね。なので考えてやりゃいいんじゃないでしょうか。 > コマンドコムが上書きされてしまう。 とか、 > あと危険なのは、rmとか。 > systemとか。 とか、このへんがあなたにとって「危険」でありうる環境でなら、なんぼでもやってください。 ただしその程度の認識で公開のサーバを利用するのはできれば、できるかぎりやめてください。 405 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:11:04 ] グローバル変数って絶対使ったらだめなの？ ｍｙしか使っちゃだめなの？ 外で変数使いたい場合もあるんだが。 406 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:14:16 ] >>405 自己レス サブルーチンにして、 retrunつかったら解決した。 407 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:14:32 ] >>403 ファイルテストを行ってから、print するまでの間に、あったファイルが消えたり、なかったファイルが作られたりした場合はどうすんの? 408 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:19:47 ] 一回だけ初期化されるstateってどういう意味？ 説明四でも意味がわかんない。 ↓ state変数 * 一回だけ初期化される変数。 * Cのstatic相当 state変数 今までは... { my $i = 0; sub incr { $i++ }; } state変数 これからは... use feature 'state'; sub incr { state $i = 0; $i++; } 409 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:21:12 ] もしかして初めてアクセスされる一回目だけ初期化されて、 2回目以降はその初期化の行は実行されずにスルーされるってこと？ 410 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:37:37 ] それで？ 411 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:41:09 ] サブルーチンの中に サブルーチンって書いていいの？ 412 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:46:50 ] >>408 それを読んでわかんねー、というか理解に少しでも不安があるようなら正直かなりマズい。 Perl をまるで読めてねーっつーことだから。 基礎からがんばれ。 413 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:52:02 ] >>411 どこのサブルーチンの中にサブルーチンが書いてあるの？ 414 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:56:15 ] >>413 いやだから、 自分でこれから、そういうコードを書いても いいのかなあ？って。 415 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:59:19 ] fuga.txtがあるかどうかを調べ、もしあるならあると言い、なければないと言い、ない場合はわざわざ作成してあげて、 作成したと言い、ある場合は、ファイルサイズを調べてレポートするプログラム。↓ binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; use feature qw( :5.10 ); system q|cls|; #---------------------------------- my $bar = 'fuga.txt'; my $a=&file; sub file{ if (-f $bar) { print "ファイル".$bar."が存在します。\n"; return 1; } else { print"ファイル". $bar."が存在しません。\n"; return 0; } } given($a){ when (1){ my $file_size; $file_size = (stat'./fuga.txt')[7]; say $bar."のファイルサイズは、".$file_size."バイトです"; } when (0){ open FH, ">fuga.txt"; say "ファイル". $bar."を作成しました。"; } } 416 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:01:09 ] use utf8; use open IO => ":encoding(cp932)"; ↑先頭の2行にこれを忘れていた。入れてください。 417 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:08:23 ] >>415 -f してから open するまでの間に誰かが fuga.txt を作っていた場合、 何もかも台無しになるという点で >>403 より性質が悪化してるんだが それはいいのか。 418 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:08:30 ] ねーねーこれ↓って、実行されちゃうよね？ ＆で明示的に実行を指示したときだけ サブルーチンを実行したいんだけど、 これだと、処理の流れがそこまできたときに、 なしくずし的に実行されてしまうんだけど、 それって正常な動作なの？ sub a; { print "a"; } 419 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:10:23 ] ようは、&aってしたときだけ、そのサブルーチンが実行されて ほしいのに、ソースコードの一番下にそのサブルーチンの定義部を 置いておくと、そこまできたときに、勝手に実行されてしまうのが 困るといっているんです。 420 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:14:20 ] >>418-419 は自己解決したごめん もう一回ためしたら実行されなかった。 ；（セミコロン）が余計に入っていた。 421 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:14:54 ] mapの場合はゆっくり出力するってできないのかな？ foreachの場合は、sleepかませて 1行づつゆっくり出力するってできるけど、 mapだと、一度に一気に配列に全部入ってしまうから、 一個づつゆっくり出すとか無理だよね？ 422 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:16:31 ] 久しぶりに来たけど激しくゆとり臭くなったな 423 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:17:30 ] map {print $_, $/; sleep 1;} 0..100; なにが不満なの？ 424 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:19:54 ] sleepかませ 425 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:24:09 ] system q|cls|; map { system q|cls|; print $_, $/; # sleep 1; } 0..100000; こりゃーすげー 426 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 06:55:02 ] >>422 明日まで我慢。 あさってには居なくなるから。 427 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 14:38:11 ] mod_perl2導入の途中でmod_perl.soを配置するApache2\modulesの指定をしくじりました mod_perl.soが配置されないままmod_perl2がインストールされてしまいやり直そうにも "Package 'mod_perl' is already installed."と表示されてやり直しも利きません どうにか導入する方法は無いでしょうか？ 428 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:03:51 ] my　$a; ってファイルの上のほうで宣言して、 ５，０００行下でも、その＄aにアクセスできるよね。 でもこれって「グローバル変数」とは呼ばないんだよね。 429 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:05:45 ] a.plと b.plとあって、 requireで呼び出して使う状況で、 両方とも、$aって変数をつかってても、 myでプライベート化してれば、問題ないのかな？ 逆に、myを使ってないで グローバル変数として使っていたら、 a.plとb.plで同じ$aがあったら、 それは同じ変数として扱われてしまうの？ つまり、複数人で作業するときに、どつぼにはまる 可能性が高い？ 430 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:26:47 ] 参考までにどうぞ。 ttp://www.rwds.net/kuroita/program/Perl_tips.html#my ttp://d.hatena.ne.jp/perlcodesample/20080310/1205162964 431 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 19:39:18 ] >>427 よく知らんけど mod_perl 無しの状態にロールバックしてやり直せない状態だとしたら、初手から構築し直すのが安全じゃないかな。 432 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 22:56:41 ] a.plで、 require b.pl print "$a"; にして、b.plで、 my $a=1; にしたら、a.plを実行したときに、 １って表示されないんだけど、 別ファイルでrequireされることがわかっているときは、 変数はmy化したらだめで、グローバル変数にしておかないとだめなの？ 433 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 22:58:11 ] b.plがrequireされるファイルで、その中でなんかの処理をして、 その処理の結果をa.plに渡す、ってときに、通常 どんな手段で渡しているのかなー？って。 とりあえず、その変数をmy化したら渡せないってのはわかった。 グローバル変数だったら渡せるというのもわかったが、 それって普通の方法なのかな？ 434 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 02:51:00 ] length q eq ge and print chr ord q each le このコードの意味わかる？ 漏れはわからない。 435 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 03:11:47 ] B::Deparseに食わせろ 436 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 03:59:39 ] >>434 qがquote-like operatorだということに注意すればそんなに難しくはない。 437 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 07:42:52 ] >432-433 2000〜3000円くらいの安い入門書を買うことをすすめる。 サブルーチンの項目あたりに書いてるはず。 ぶっちゃけ、Perlというか、 プログラミングにおける基本的な考え方の1つなので、そこから勉強するべき。 あと>430は無視なのかい？ 438 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 11:38:11 ] http.confにLoadModule perl_module modules/mod_perl.soって書くと起動出来ない… これはバージョンの相性が良くないってことなんでしょうか。Apache自体が起動しないです 439 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 13:26:43 ] >>438 ログにエラーが出ていませんか? 出ていればそれを手がかりに調べてください。 440 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 14:46:33 ] >>438 どうにか解決しました どうもです 441 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:28:31 ] サブルーチンの説明は書いてあっても、 requireとからめた使い方が書いてないんだよっ！ で、requireでインクルード？したファイルの中の 変数を使いたいときって、どうすればいいの？ 442 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:31:56 ] a.plがあったとして、そのa.plの中で、一生懸命に計算なり 処理なりをするよね。そんで、なんかの結果が出てきて、 それを$aに代入したとする。 そんで、b.plを作って、b.plの中で、 require　a.pl ってやって、さっきの$aの結果を利用しようとしたときに、 a.plの中で、 my　$a ってmy化されていたら、b.plから利用できないじゃん。 もちろん、ourでグローバル化しておけば利用できるのは知ってるけど、 やたらとグローバル変数を使うのはバグの元だからやめろって教科書に書いてあるし。 つまり、a.plの中でサブルーチンを作って、 return渡しをすればいいのか？ 443 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:37:43 ] >>441 答えは”モジュール”にあると思う 444 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 16:26:09 ] length q pop and print chr oct oct ord q local このコードの意味がわからん 445 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 16:37:55 ] >>444 きみ、Perl に向いてない。 446 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:06:15 ] use warnings; use strict; use diagnostics; print "a" ↑これでなんのエラーもでないんだが、 もしかして、ワンライナーの場合は セミコロンは必須ではないのか？ 447 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:07:47 ] つまりセミコロンがついてないのに なんで実行できてしまうんかと。 448 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:46:06 ] >>446 ありがちっちゃありがちだけどもな、 Perl の文法をいい加減に覚えていると、そういう疑問を持ってしまう。 perl は文の区切りとして ; を要求するのであって、 文の終端として、ではないのだ。 ブロック内の最後の行で ; を省略できるのも、 ブロック生成子としての {} が文を区切ってしまうためなのだ。 基礎からやり直しつつ1年ほどROMれ。 449 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 18:57:27 ] >442 一番最後の行で答えが出てるじゃないか。 >444 まさにPerlの美学であると同時にデメリットだよなあ。 自分なら適当に区切るか括弧をつける。 >448 でもまあ、付けるけどな、俺。 450 名前：448 mailto:sage [2008/08/31(日) 19:33:07 ] >>449 >>444 にあるコードは読み手を混乱させるのが目的なので、あえてそのように書いているのはお分かりかと思います。従って可読性を上げては意味がありません。 ただ今回のコードはまったくややこしくない、いわば子供だましの類なので、読めないとちょっとアレなのは確かですが。 >>448 もちろんそれがよいでしょう。理由は…、言うまでもありませんな。 451 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 19:51:31 ] >>444 ppencode の出力の一部じゃないのか? ppencode が何者かはぐぐればわかる。 452 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:28:16 ] print q pop これでoって出るのがすげーわらえる 453 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:53:40 ] はいはいわろすわろす 454 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:45:17 ] >>444って要するに、"q"の意味がわかれば簡単だよね？ 455 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:47:55 ] >>444 それぞれ一つ一つの意味は分かっても、こうやって並ばれると分からないです＞＜ 456 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:54:00 ] 残念ながらそれは、知らないと ﾊｧ? なレベルの知識だ。 457 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 22:08:19 ] ﾊｧ? 458 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:02:46 ] 今日からＰｅｒｌを始めたいと思ってます。　 Active Perlというものは今でも無料で入手できるのでしょうか。。。　 Windowsで使いたいのです。　 459 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:11:26 ] なぜ実際に自分で試そうとしない？ 460 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:11:48 ] >>458 ActivePerl そのものは現在も無料です。楽しんでね。 461 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:40:46 ] なるほど、ここで生成されたものか ppencode - JavaScript demo namazu.org/~takesako/ppencode/demo.html 462 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:49:55 ] >>458 ActivePerlは無料です。 でもダウンロードのリンクは IQ１５０以上でないと 探せないようになっております。 463 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:51:06 ] ちなみに最新バージョンは ５．１０です。 ごーてんいち、でなくて ごーてんじゅう、です。 464 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:51:58 ] ダウンロードしてきたファイルは、 msiファイルを右クリで、インストールを 選べばインストールできます。 ダブクリではインストできないこともあります。 465 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:52:45 ] ちなみに、VISUALPerlというものは 開発中止になった模様です。 466 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 01:59:27 ] レンタルサーバのLWPでhttpsなサイトにアクセスしようとしたら、 Protocol scheme 'https' is not supported (Crypt::SSLeay not installed) と怒られました。 telnetやsshでログインできないサーバなのですが、httpsなサイトにアクセスできるように出来ないでしょうか？ 467 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 02:03:33 ] できません 468 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 02:50:24 ] 鯖缶にモヅル入れろと頼めば突っ込んでくれるとこもある 469 名前：デフォルトの名無しさん [2008/09/01(月) 02:52:58 ] use Term::ANSIColor qw(:constants); my @colors = qw(RED GREEN BLUE); for (@colors) {   print $_, "$_", "\n"; } みたいな事をやって、ループ内の動きが以下と等価になるようにしたいです。 print RED, 'RED', "\n"; print GREEN, 'GREEN', "\n"; print BLUE, 'BLUE', "\n"; 現状はループ内の print の第一引数に文字列がそのままわたっているだけなので、 希望通りの動作をしませんが、希望通りに動かすにはどうしたら良いのでしょうか？ よろしくお願いします。

---

---

[ 続きを読む ] / [ 携帯版 ]

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