#!/usr/bin/perl use Benchmark; timethese ( 100, { 'local'=>q { for ( 1..10000 ) { local $a=$_; $a *= 2; } }, 'my'=>q { for ( 1..10000 ) { my $a=$_; $a *= 2; } } } ); 可以拿来计算algorithm耗费多少时间. QUOTE: timethese ( 做几次iteration, { 'Algorithm名稱'=>q{ 要计算时间的algorithm }, 'Algorithm名稱'=>q{ 要计算时间的algorithm } } );
by: 发表于:2017-09-12 14:54:13 顶(0) | 踩(0) 回复
??
回复评论