用perl写计时器,计算到毫秒精度。
来源:互联网 发布:transient java 编辑:程序博客网 时间:2024/04/28 17:36
1 #!/usr/bin/perl
2
3
4
5 my $receive_key;
6 my $end_key;
7 my $Time_Start;
8 my $Time_End;
9 my $Time_Snano;
10 my $Time_Enano;
11
12 print "Now it's time to start timing:";
13 $receive_key=<STDIN>;
14
15 $Time_Start=`date +%s`;
16 $Time_Snano=`date +%N`;
17 $Time_Snano=sprintf("%3d",$Time_Snano);
18 $Time_S=sprintf("%d.%d",$Time_Start,$Time_Snano);
19
20 while(1)
21 {
22 $end_key=<STDIN>;
23 if($end_key)
24 {
25 $Time_End=`date +%s`;
26 $Time_Enano=`date +%N`;
27 $Time_Enano=sprintf("%3d",$Time_Enano);
28 $Time_E=sprintf("%d.%d",$Time_End,$Time_Enano);
29
30 last;
31 }
32 }
33
34
35 #my $timing = $Time_End-$Time_Start;
2
3
4
5 my $receive_key;
6 my $end_key;
7 my $Time_Start;
8 my $Time_End;
9 my $Time_Snano;
10 my $Time_Enano;
11
12 print "Now it's time to start timing:";
13 $receive_key=<STDIN>;
14
15 $Time_Start=`date +%s`;
16 $Time_Snano=`date +%N`;
17 $Time_Snano=sprintf("%3d",$Time_Snano);
18 $Time_S=sprintf("%d.%d",$Time_Start,$Time_Snano);
19
20 while(1)
21 {
22 $end_key=<STDIN>;
23 if($end_key)
24 {
25 $Time_End=`date +%s`;
26 $Time_Enano=`date +%N`;
27 $Time_Enano=sprintf("%3d",$Time_Enano);
28 $Time_E=sprintf("%d.%d",$Time_End,$Time_Enano);
29
30 last;
31 }
32 }
33
34
35 #my $timing = $Time_End-$Time_Start;
36 my $timing = sprintf("The timing is %.2f seconds.\n",$Time_E-$Time_S);
38 print $timing;
相信大家对date +%N 有点陌生, 根据man date文档
%N nanoseconds (000000000..999999999)
求的是纳秒,在这里取前三位代表毫秒数。 这里是按一个回车开始计时,再按一个回车停止计时,如果你不想在开始按回车开始计时,去掉$receive_key=<STDIN>这一行。
0 0
- 用perl写计时器,计算到毫秒精度。
- 毫秒计时器
- 毫秒计时器
- 用javascript制作的简单毫秒计时器
- 计时器--精确到10毫秒(精确度可以自行设定)
- VB 6.0 精确到毫秒的计时器 demo
- 计时精度到底毫秒级别或者更高 如何使用C#制作一个精确计时器
- 计算圆周率到指定精度.
- 精确计算程序运行时间 秒杀毫秒级 精度远超毫秒
- 可以计算到<<毫秒级>>的控件
- 计算程序运行时间精确到毫秒
- java中计算时间差,精确到毫秒
- 跨平台毫秒计时器
- 计算毫秒
- 用formatdatetime精确到毫秒
- 用Shoes 写累积计时器
- C#实现毫秒级计时器
- Java中计算两个时间差(精确到毫秒)
- junit单元测试搭建
- Oracle Merge 使用介绍
- AF同步请求,转载原创
- C++构造函数和析构函数小结
- IOS中get同步异步请求与post同步异步请求
- 用perl写计时器,计算到毫秒精度。
- centos无线网到配置
- 如可在C中使用OpenOffice的SDK中的sequence
- 解决BASH SHELL脚本报错 ‘: not a valid identifier
- Event 10053 执行计划 绑定变量
- js ajax
- Shell-Check Redis
- 数据库存储过程简介与实例
- 查找算法之二分查找