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

1 名前：デフォルトの名無しさん mailto:sage [2006/12/21(木) 22:35:39 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 28箱目 pc8.2ch.net/test/read.cgi/tech/1162273941/ リンク集は>>2-3 過去スレは>>4 752 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 13:51:21 ] なんの解決にもならないw＞ギブミーpatch 753 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 14:57:03 ] >>751-752 なにが「ひどく」て「解決にならない」なの？ ライセンスがArtisticとGNU GPLのデュアルライセンスで、 どっちもソースが公開されているものなんだから不具合あったらソースを追って自分で改変するくらい当たり前じゃん。 おまえらはフリーライダーなの？それともそれをやるだけの能力がない低脳なの？ 754 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 15:28:14 ] これは酷い混じれ酢だ 755 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 17:43:38 ] 少なくとも小飼氏よりは低能間違い無しです＞＜ 756 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 20:38:11 ] patchが作れるなら人に頼らないしメールも送らないってば。 757 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 20:55:47 ] 「ギブミーpatch」といわれたら、「無理!」って返事すればいいだけ。 キラクニヤレヤ〜♪ 758 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 22:05:02 ] （´・ω・） 759 名前：デフォルトの名無しさん [2007/02/24(土) 23:26:36 ] 質問です。 浮動小数点計算をループでしていてその結果を出力したら、 あるタイミングから#INDというのが出力されました。 これは一体なんでしょうか、、、 760 名前：デフォルトの名無しさん mailto:sage [2007/02/24(土) 23:35:56 ] 不定値（正負の無限大 or NaN） 0除算してるんじゃね？ 761 名前：デフォルトの名無しさん [2007/02/24(土) 23:48:49 ] >>760 レスありがとうございます。 数値扱いされてないのでしょうか？ 具体的なコードはこんなかんじなんですが、、 my $a = -0.1382 ** 0.000212494687632809; my $temp = -0.1382; my $b = $temp ** 0.000212494687632809; これだと$aはちゃんと出力されるんですが、$bは-1.#INDと出力されます。。 762 名前：デフォルトの名無しさん mailto:sage [2007/02/25(日) 00:11:04 ] >>759 indefinite 763 名前：デフォルトの名無しさん mailto:sage [2007/02/25(日) 00:27:05 ] >>761 "**"は"-"より強いので -0.1382 ** 0.000212494687632809 は -(0.1382 ** 0.000212494687632809)に等しい。 764 名前：デフォルトの名無しさん mailto:sage [2007/02/25(日) 01:53:36 ] >>761 Math::BigFloat 765 名前：デフォルトの名無しさん [2007/02/25(日) 02:10:48 ] >>762 >>763 >>764 レスありがとうございます。明日にでも試してみたいと思います。 766 名前：デフォルトの名無しさん mailto:sage [2007/02/25(日) 12:00:00 ] （´・ω・）１２時 767 名前：デフォルトの名無しさん mailto:sage [2007/02/25(日) 19:23:35 ] （´・ω・）時報スクリプトを作ってみました．． #!/usr/bin/perl use WWW::Mechanize; $mech = WWW::Mechanize->new(agent => 'Mozilla/4.0 (MSIE 6.0;)'); while(1){ my(@t) = localtime(time); unless( $t[1] == 59 && $t[0] > 20){sleep(30);next;} $mech->get($ARGV[0]); $mech->field("MESSAGE" => "時報"); $mech->click(); (@t) = localtime(time); sleep(60-$t[0]); $mech->click(); } 768 名前：デフォルトの名無しさん [2007/02/27(火) 20:41:51 ] 日本語PDF作るモジュールのお薦めってありますか? PDFJ? 769 名前：デフォルトの名無しさん mailto:sage [2007/02/27(火) 22:40:04 ] PDFJ 770 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 00:10:35 ] $input=<STDIN>; $input=~s/\n//; print "$input"; コマンドラインから「\n\n」と入力した場合に 「\n\n」と出力されるのではなく、改行2個が出力されるようにしたいんですが どうすればいいですか？ 771 名前：デフォルトの名無しさん [2007/02/28(水) 00:17:23 ] 自力でs/\\n/\n/g;とするかevalするか 772 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 00:24:39 ] >>771 わかりました。ありがとうございます。 773 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 00:52:29 ] >>771,772 evalは安易に使うとコマンド実行も出来ちゃうので正規表現にしとけ。 どうしてもeval使う場合は入力チェックしないと危険よ 774 名前：770 mailto:sage [2007/02/28(水) 01:14:01 ] >>773 アドバイスありがとうございます。 自分でちょっとしたテキスト処理をやりたいだけなので大丈夫です。 \< や \/ や \. などの入力が入った場合、その都度 s/\\\</\</; s/\\\./\./; を書かなければいけないのでevalにします。ありがとうございました。 775 名前：768 mailto:sage [2007/02/28(水) 13:05:37 ] >769 サンクス。 自由度がありすぎて面倒な部分もあるんだけど、 やっぱPDFJでいってみます。 776 名前：デフォルトの名無しさん [2007/02/28(水) 16:35:41 ] 質問です　頓珍漢だった笑ってください perlはCの　#include　に相当する機能はあるのでしょうか？ 今、Perlで統計解析の処理をしています。解析手法ごとに異なったスクリプト を作っています。 入出力部分が複雑なんでここの部分と全体で使える共通サブルーチンだけ切り出して 別ソースにして、実行時に組み込んで使いたいのですが、どうも旨くゆきません。 ぐぐったりしてみましたが、Use、Requireの話しか検索できません。何か単純に Includeする方法は無いのでしょうか? 777 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 16:48:38 ] >>776 そう難しくないからモジュールにしてuse使うべきだな。 778 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 16:48:43 ] 　 ｧ　 ∧＿∧　ｧ,､ 　,､'` （　´∀｀）　,､'` 　 '` 　( ⊃ ⊂)　　'` 779 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 16:49:14 ] 　ははは　　　　　　 　　　∧＿∧　 　　　　　　　　　　　　　　もうダメ　　　　　　 　　 （　´∀｀）　　　　　　　　　　　　　　 　 ∧＿∧　　　　　　　　　　ﾓｳ ｶﾝﾍﾞﾝ .　　（ つ ⊂ ）　 　 　ﾋﾋﾋﾋ　　　　　　　　 （´∀｀ ,,）、　あははは　　　 ｼﾃｸﾀﾞｻｲ 　 　.）　 ）　） 　○ 　 ∧＿∧ ,　　　　 , へ,, へ⊂）,　　　 ∧＿∧　○, 　　（_＿）＿）⊂ ´⌒つ´∀｀ ）つ　　 （＿（＿_）_丿　　⊂（´∀｀⊂ ⌒ヽつ 780 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 16:52:53 ] requireで問題なくできそうだけど駄目なんかな 781 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:02:56 ] 目線を高くしてオブジェクト指向にしたらどうだ？ 782 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:07:13 ] 776はrequireやuseの説明を読んでないのではないのでは？ includeとスペルが違うからって脊髄反射したのか？ そうでないのなら、ますはrequireでは駄目だった点を質問文につけないと回答者は答えようがないぞ 783 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:08:32 ] すまん ×776はrequireやuseの説明を読んでないのではないのでは？ ○776はrequireやuseの説明を読んでないのでは？ 784 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:11:40 ] 名前空間の問題とかあるし、普通にモジュール作るのがいいと 思うけどな。よほどこったことやるんじゃなけりゃ、Exporter 使えば一発だし。 785 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:14:16 ] >>776は最後に1;を入れ忘れてると見た 786 名前：笑われた　７７６ mailto:sage [2007/02/28(水) 17:22:05 ] すみません確かにRequireに関して真面目に読んでいないです Cの#includeのつもりだったので、 ------------ 今まで　------------ 初期の宣言など・・・ open(FP, $filename) or die($filename); while(<FP>) { $hash{$key} = hoge; } ------------ 変更　------------ 初期の宣言など・・・ require 'other.pl'; &sub($filename, \%hash); と変更しただけなんですが・・・・実行時に 787 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 17:25:10 ] ワッフルワッフル！！ 788 名前：デフォルトの名無しさん mailto:sage [2007/02/28(水) 23:16:02 ] 単純に定数の扱いがやっかいかな。perlは。 789 名前：デフォルトの名無しさん mailto:sage [2007/03/01(木) 01:53:41 ] use constant FOO => 'bar'; use Readonly; Readonly my $HOGE => 'fuga'; こういうのでいいじゃん。 790 名前：デフォルトの名無しさん [2007/03/01(木) 08:05:44 ] PerlでCPANによるモジュールのインストールが失敗します。 install LWP::Simple .... BEGIN failed--compilation aborted at /System/Library/Perl/Extras/5.8.6/darwin-thread-multi-2level/HTML/TokeParser.pm line 12. Compilation failed in require at ../blib/lib/HTML/Form.pm line 116. html/form-param.......dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-24 Failed 24/24 tests, 0.00% okay .... どなたかお助けを。 環境：MacOS X 10.4 Tiger, perl 5.8.6

---

---

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

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