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

Perlについての質問箱 ..

751:デフォルトの名無しさん
07/02/24 11:03:22
それはひどい＞ギブミーpatch

752:デフォルトの名無しさん
07/02/24 13:51:21
なんの解決にもならないw＞ギブミーpatch

753:デフォルトの名無しさん
07/02/24 14:57:03
>>751-752
なにが「ひどく」て「解決にならない」なの？
ライセンスがArtisticとGNU GPLのデュアルライセンスで、
どっちもソースが公開されているものなんだから不具合あったらソースを追って自分で改変するくらい当たり前じゃん。
おまえらはフリーライダーなの？それともそれをやるだけの能力がない低脳なの？

754:デフォルトの名無しさん
07/02/24 15:28:14
これは酷い混じれ酢だ

755:デフォルトの名無しさん
07/02/24 17:43:38
少なくとも小飼氏よりは低能間違い無しです＞＜

756:デフォルトの名無しさん
07/02/24 20:38:11
patchが作れるなら人に頼らないしメールも送らないってば。

757:デフォルトの名無しさん
07/02/24 20:55:47
「ギブミーpatch」といわれたら、「無理!」って返事すればいいだけ。

キラクニヤレヤ～♪

758:デフォルトの名無しさん
07/02/24 22:05:02
（´・ω・）

759:デフォルトの名無しさん
07/02/24 23:26:36
質問です。
浮動小数点計算をループでしていてその結果を出力したら、
あるタイミングから#INDというのが出力されました。
これは一体なんでしょうか、、、

760:デフォルトの名無しさん
07/02/24 23:35:56
不定値（正負の無限大 or NaN）
0除算してるんじゃね？

761:デフォルトの名無しさん
07/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:デフォルトの名無しさん
07/02/25 00:11:04
>>759
indefinite

763:デフォルトの名無しさん
07/02/25 00:27:05
>>761
"**"は"-"より強いので
-0.1382 ** 0.000212494687632809
は
-(0.1382 ** 0.000212494687632809)に等しい。

764:デフォルトの名無しさん
07/02/25 01:53:36
>>761
Math::BigFloat

765:デフォルトの名無しさん
07/02/25 02:10:48
>>762
>>763
>>764
レスありがとうございます。明日にでも試してみたいと思います。

766:デフォルトの名無しさん
07/02/25 12:00:00
（´・ω・）１２時

767:デフォルトの名無しさん
07/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:デフォルトの名無しさん
07/02/27 20:41:51
日本語PDF作るモジュールのお薦めってありますか?
PDFJ?

769:デフォルトの名無しさん
07/02/27 22:40:04
PDFJ

770:デフォルトの名無しさん
07/02/28 00:10:35
$input=<STDIN>;
$input=~s/\n//;

print "$input";

コマンドラインから「\n\n」と入力した場合に
「\n\n」と出力されるのではなく、改行2個が出力されるようにしたいんですが
どうすればいいですか？

771:デフォルトの名無しさん
07/02/28 00:17:23
自力でs/\\n/\n/g;とするかevalするか

772:デフォルトの名無しさん
07/02/28 00:24:39
>>771
わかりました。ありがとうございます。

773:デフォルトの名無しさん
07/02/28 00:52:29
>>771,772
evalは安易に使うとコマンド実行も出来ちゃうので正規表現にしとけ。
どうしてもeval使う場合は入力チェックしないと危険よ

774:770
07/02/28 01:14:01
>>773
アドバイスありがとうございます。
自分でちょっとしたテキスト処理をやりたいだけなので大丈夫です。
\< や \/ や \. などの入力が入った場合、その都度
s/\\\</\</;
s/\\\./\./;
を書かなければいけないのでevalにします。ありがとうございました。

775:768
07/02/28 13:05:37
>769 サンクス。
自由度がありすぎて面倒な部分もあるんだけど、
やっぱPDFJでいってみます。

776:デフォルトの名無しさん
07/02/28 16:35:41
質問です　頓珍漢だった笑ってください

perlはCの　#include　に相当する機能はあるのでしょうか？

今、Perlで統計解析の処理をしています。解析手法ごとに異なったスクリプト
を作っています。

入出力部分が複雑なんでここの部分と全体で使える共通サブルーチンだけ切り出して
別ソースにして、実行時に組み込んで使いたいのですが、どうも旨くゆきません。

ぐぐったりしてみましたが、Use、Requireの話しか検索できません。何か単純に
Includeする方法は無いのでしょうか?

777:デフォルトの名無しさん
07/02/28 16:48:38
>>776
そう難しくないからモジュールにしてuse使うべきだな。

778:デフォルトの名無しさん
07/02/28 16:48:43
　ｧ　 ∧＿∧　ｧ,､
　,､'` （　´∀｀）　,､'`
　 '` 　( ⊃ ⊂)　　'`

779:デフォルトの名無しさん
07/02/28 16:49:14
　ははは　　　　　　
　　　∧＿∧　　　　　　　　　　　　　　　もうダメ　　　　　　
　　（　´∀｀）　　　　　　　　　　　　　　　 ∧＿∧　　　　　　　　　　ﾓｳｶﾝﾍﾞﾝ
.　　（つ ⊂ ）　　　ﾋﾋﾋﾋ　　　　　　　　（´∀｀ ,,）、　あははは　　　ｼﾃｸﾀﾞｻｲ
　　.）　）　）　○ 　 ∧＿∧ ,　　　　 , へ,, へ⊂）,　　　 ∧＿∧　○,
　　（_＿）＿）⊂ ´⌒つ´∀｀）つ　　（＿（＿_）_丿　　⊂（´∀｀⊂ ⌒ヽつ

780:デフォルトの名無しさん
07/02/28 16:52:53
requireで問題なくできそうだけど駄目なんかな

781:デフォルトの名無しさん
07/02/28 17:02:56
目線を高くしてオブジェクト指向にしたらどうだ？

782:デフォルトの名無しさん
07/02/28 17:07:13
776はrequireやuseの説明を読んでないのではないのでは？
includeとスペルが違うからって脊髄反射したのか？
そうでないのなら、ますはrequireでは駄目だった点を質問文につけないと回答者は答えようがないぞ

783:デフォルトの名無しさん
07/02/28 17:08:32
すまん
×776はrequireやuseの説明を読んでないのではないのでは？
○776はrequireやuseの説明を読んでないのでは？

784:デフォルトの名無しさん
07/02/28 17:11:40
名前空間の問題とかあるし、普通にモジュール作るのがいいと
思うけどな。よほどこったことやるんじゃなけりゃ、Exporter
使えば一発だし。

785:デフォルトの名無しさん
07/02/28 17:14:16
>>776は最後に1;を入れ忘れてると見た

786:笑われた　７７６
07/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:デフォルトの名無しさん
07/02/28 17:25:10
ワッフルワッフル！！

788:デフォルトの名無しさん
07/02/28 23:16:02
単純に定数の扱いがやっかいかな。perlは。

789:デフォルトの名無しさん
07/03/01 01:53:41
use constant FOO => 'bar';

use Readonly;
Readonly my $HOGE => 'fuga';

こういうのでいいじゃん。

790:デフォルトの名無しさん
07/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