关于Math::Bigint问题

perldandan

写Perl需要64位，所以用了math::bigint，但是程序运行特别慢，什么原因

hrb_kid

回复 1# perldandan

可以用perl的profiler查看调用模块的效率

1. 
   
2. $ cat test.pl
   
3. #!/usr/bin/perl -w
   
4. 
   
5. use strict;
   
6. 
   
7. my %data =
   
8. (
   
9.     a => 1,
   
10.     b => [ { b => 1 }, { c => 2 }, 3 ],
    
11.     c => { x => [ 1, 3, 2 ], y => 4 }
    
12. );
    
13. 
    
14. my $copy = deep_copy( \%data );
    
15. 
    
16. sub deep_copy
    
17. {
    
18.     use YAML::XS;
    
19.     return YAML::XS::Load( YAML::XS::Dump( shift ) );
    
20. }
    
21. 
    
22. $
    
23. $ perl -d:DProf test.pl
    
24. $
    
25. $ dprofpp tmon.out
    
26. dprofpp will be removed from the Perl core distribution in the next major release. Please install Devel::DProf from CPAN.
    
27. Total Elapsed Time = 0.039857 Seconds
    
28.   User+System Time = 0.039857 Seconds
    
29. Exclusive Times
    
30. %Time ExclSec CumulS #Calls sec/call Csec/c  Name
    
31. 75.2   0.030  0.030      4   0.0075 0.0075  YAML::XS::BEGIN
    
32. 25.0   0.010  0.040      4   0.0025 0.0100  main::BEGIN
    
33. 0.00       - -0.000      1        -      -  re::bootstrap
    
34. 0.00       - -0.000      1        -      -  re::bits
    
35. 0.00       - -0.000      1        -      -  B::threadsv_names
    
36. 0.00       - -0.000      1        -      -  utf8::is_utf8
    
37. 0.00       - -0.000      1        -      -  mro::method_changed_in
    
38. 0.00       - -0.000      1        -      -  YAML::XS::LibYAML::Dump
    
39. 0.00       - -0.000      1        -      -  YAML::XS::LibYAML::bootstrap
    
40. 0.00       - -0.000      1        -      -  B::bootstrap
    
41. 0.00       - -0.000      1        -      -  Internals::SvREADONLY
    
42. 0.00       - -0.000      1        -      -  YAML::XS::LibYAML::Load
    
43. 0.00       - -0.000      1        -      -  re::import
    
44. 0.00       - -0.000      2        -      -  UNIVERSAL::isa
    
45. 0.00       - -0.000      2        -      -  base::has_version
    
46. $
    

复制代码

perldandan

好复杂啊！用perl的profiler查看调用模块的效率怎么查看，用下面的代码么？我是初学者不太懂啊！谢谢啊！

hrb_kid

回复 3# perldandan

在*nix/bsd上，假设你的可执行文件名字是 "myscript.pl", 执行下面的2个命令。

    perl -dProf myscript.pl

    dprofpp tmon.out

perldandan

我是在linux系统下，好像不对，Prof有问题啊！

xiyoulaoyuanjia

使用 Math::Bigint 会提高程序的精度 但是会让程序运行耗费更多的硬件资源和时间 可以限制Math::Bigint 的作用范围！

1. {
   
2.    use bignum;
   
3. ### do it now！
   
4. }

复制代码

perldandan

那如何优化呢？怎样限制范围呢？谢谢！现在是急需！谢谢！

   

xiyoulaoyuanjia

限制范围的意思就是在你需要高精度的地方 写上上面的代码块！

py

这一楼都是没用过Math::BigInt模块的吧

Math::BigInt的效率是很高的，你觉得慢是因为你没装GMP的库，所以没有成功安装Math::BigInt::GMP。这样Math::BigInt会用纯Perl模块Math::BigInt::Calc来处理。