首页
登录 | 注册

Perl高精度计时器

use strict ;
use Time::HiRes qw(gettimeofday) ;

sub Test
{
    # sec: seconds
    # usec: microsecond
    my ($start_sec, $start_usec) = gettimeofday() ;
    
    #======================#
    # Place your code here!#
    #======================#
    
    my ($end_sec, $end_usec) = gettimeofday() ;
    
    # Compute time elipsed
    my $timeDelta = ($end_usec - $start_usec) / 1000 + ($end_sec - $start_sec) * 1000;
    print $timeDelta ;
}

&Test() ;
 ;

相关文章

  • 笔记之一       Ruby之所以设计模块的概念,在于弥补传统的C之类语言的模块概念的缺失.在软件设计中,模块化体现很多很有用,它直接关系到软件设计的效率和灵活性.C中没有明显的模块的概念,就要由程序员自己通过软件的手段来强化模块概念,通 ...
  • 作为网络工程师,日常工作大多数时间都是在用telnet同交换机.路由器等网络设备打交道.如果说perl中有什么好用的模块,当然得提Net::Telnet.Net::Telnet功能全面,对于日常管理写个针对几台.几十台交换机的小程序还是不错 ...
  • Perl的优势之一是其有庞大的CPAN库,安装这些库有很多方法. 一.通过专用的模块安装模块来安装模块 优点是可以解决依赖问题, 有三个模块,分别是cpan,cpanp,cpanm. 1. CPAN模块. cpan是一个重量级选手. Red ...
  • perl登录各种网站的原理与实现
    内容出自:http://my.oschina.net/tkorays/blog/305257 perl登录各种网站的原理与实现 tkorays(tkorays@hotmail.com) 小孩子才践行大道理,大人只会讲.         写脚 ...
  • 安装perl模块 对于新手来说是一个比较麻烦的事情,现在有一个比较好的工具可以解决这个问题,正题如下: wget  http://xrl.us/cpanm  --no-check-certificate -O cpanm chmod u+x ...
  • 1.首先要有个c编译器,推荐dev-cpp(开源免费的,网上自己搜索),记得要下含有mingw的就是了(不懂c,下载含有mingw的因为这个版本的bin目录里有gcc.exe等工具). 1.1安装好了编译器之后,要能在cmd中以命令方式运行 ...

2020 unjeep.com webmaster#unjeep.com
12 q. 0.012 s.
京ICP备10005923号