Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

3:nobodyさん
 07/09/16 19:52:04 
ム板Perlスレより 2 of 2 
 
[モジュール] 
CPAN.com: ttp://search.cpan.org/ 
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/ 
 
[テクニック] 
Perlメモ: ttp://www.din.or.jp/~ohzaki/perl.htm 
Perlのページ: ttp://homepage1.nifty.com/nomenclator/perl/ 
Perlの小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm 
 
[Perl5.8Unicodeメモ] 
ttp://www.pure.ne.jp/~learner/program/Perl_unicode.html 
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html 
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

4:1
 07/09/16 19:56:03 
独断でPBPとPerl Hacksを追加してます。

5:nobodyさん
 07/09/16 20:04:09 
>>1 
お疲れ様です。 
前スレ最後に質問してしまいました。 
こちらに再投稿させていただきますm(__)m 
 
 
use Math::BigFloat;  
my $tr = Math::BigFloat->new((@array * (1-0.68)/2));  
 
と書くの大変なので  
 
my $a = use Math::BigFloat;  
my $tr = $a->new((@array * (1-0.68)/2));  
 
と書いてみましたがエラーでした。  
こういう意図を実現するのは無理ですか？  
小数の計算をさせた上で配列のインデックスにする場合はBigfloatしておかないと危ないです。  
やってない$trに  
$array[-($tr +1)];  
とすると実質インデックスが２個変わってしまいます。  
15.999だったのが、+で16になり、さらに1が足されて17になる。  
そんな現象を確認しました。  
 
簡単な記述方法はないでしょうか。

次ページ