- 论坛徽章:
- 0
|
回复 1# perldandan
可以用perl的profiler查看调用模块的效率
- $ cat test.pl
- #!/usr/bin/perl -w
- use strict;
- my %data =
- (
- a => 1,
- b => [ { b => 1 }, { c => 2 }, 3 ],
- c => { x => [ 1, 3, 2 ], y => 4 }
- );
- my $copy = deep_copy( \%data );
- sub deep_copy
- {
- use YAML::XS;
- return YAML::XS::Load( YAML::XS::Dump( shift ) );
- }
- $
- $ perl -d:DProf test.pl
- $
- $ dprofpp tmon.out
- dprofpp will be removed from the Perl core distribution in the next major release. Please install Devel::DProf from CPAN.
- Total Elapsed Time = 0.039857 Seconds
- User+System Time = 0.039857 Seconds
- Exclusive Times
- %Time ExclSec CumulS #Calls sec/call Csec/c Name
- 75.2 0.030 0.030 4 0.0075 0.0075 YAML::XS::BEGIN
- 25.0 0.010 0.040 4 0.0025 0.0100 main::BEGIN
- 0.00 - -0.000 1 - - re::bootstrap
- 0.00 - -0.000 1 - - re::bits
- 0.00 - -0.000 1 - - B::threadsv_names
- 0.00 - -0.000 1 - - utf8::is_utf8
- 0.00 - -0.000 1 - - mro::method_changed_in
- 0.00 - -0.000 1 - - YAML::XS::LibYAML::Dump
- 0.00 - -0.000 1 - - YAML::XS::LibYAML::bootstrap
- 0.00 - -0.000 1 - - B::bootstrap
- 0.00 - -0.000 1 - - Internals::SvREADONLY
- 0.00 - -0.000 1 - - YAML::XS::LibYAML::Load
- 0.00 - -0.000 1 - - re::import
- 0.00 - -0.000 2 - - UNIVERSAL::isa
- 0.00 - -0.000 2 - - base::has_version
- $
复制代码 |
|