perl的logwrapper使用实例代码

这里为大家举二个小例子,供朋友们学习参考。

对任何的函数记录函数运行的时间。


代码如下:

#!/usr/bin/perl
use warnings;
use strict;
no strict "refs";
sub testLogToStd{
print "Test stdout : \n";
open LOG,"> 2.txt";
select LOG;
print "just a test\n";
#recover STDOUT
select STDOUT;
print "just a test2\n";
close LOG;
}
sub testFun{
  print "From testFun\n";
  print STDERR "From TestFun Error\n";
}
sub testFun2{
  my $arg1 = shift;
  my $arg2 = shift;
  print "From testFun2\n";
  print $arg1."\n";
  print $arg2."\n";
}
my $log_root = "log" if(! $3 ||$3 == "");
my $ret = system("mkdir $log_root") if(! -e $log_root);
my $report_log = "$log_root/report.log";
open my $REPORTLOG,">",$report_log or die "cannot not open log file report.log\n";
sub logWrapper{
  my $log_root = shift;
  my $REPORTLOG  = shift;
  my $fun = shift;
  my @parameters = @_;
  *old_stdout = *STDOUT;
  *old_stderr = *STDERR;
  open LOG, ">","$log_root/$fun.log" or die "annot open log file $fun.\n";
  *STDOUT = *LOG;
  *STDERR = *LOG;
  my $start = time;
  my $ret = &$fun(@parameters);
  my $end = time;
  *STDOUT = *old_stdout;
  *STDERR = *old_stderr;
  close LOG;
  my $duration = $end - $start;
  print $REPORTLOG "$fun\n";
  print $REPORTLOG "start:".localtime($start)."\n";
  print $REPORTLOG "end:".localtime($end)."\n";
  print $REPORTLOG "duration:".formatTimeDuration($duration)."\n";
  print $REPORTLOG "result:$ret\n";
  print $REPORTLOG "\n";
  print $REPORTLOG "\n";
}
sub formatTimeDuration($){
  my $t = shift;
  my $hrs = int($t/3600);
  my $mins = int($t%3600/60);
  my $secs = int($t%3600%60);
  return "$hrs:$mins:$secs";
}
&logWrapper($log_root,$REPORTLOG,"testFun");
&logWrapper($log_root,$REPORTLOG,"testFun2","arg1","arg2");
print "thanks\n";

若需要调用外部命令,则需要如下:


代码如下:

#!/usr/bin/perl
use strict;
use warnings;
# run external commands
# redirect stdout and stderr
sub run_cmd{
  my $cmd = shift;
  my $pid = open(PH, "$cmd 2>&1 |");
  while (<PH>) {print $_; }
}
open(FH, ">", "perl-test.log");
*old_stdout = *STDOUT;
*old_stderr = *STDERR;
*STDOUT = *FH;
*STDERR = *FH;
my $ret = undef;
$ret = readpipe("cp a b ");
$ret = system("cp a b");
$ret = `cp a b`;
run_cmd("cp a b");
print "AA";
print STDERR "BB";
*STDOUT = *old_stdout;
*STDERR = *old_stderr;

(0)

相关推荐

  • perl的logwrapper使用实例代码

    这里为大家举二个小例子,供朋友们学习参考. 对任何的函数记录函数运行的时间. 复制代码 代码如下: #!/usr/bin/perluse warnings;use strict;no strict "refs";sub testLogToStd{print "Test stdout : \n";open LOG,"> 2.txt";select LOG;print "just a test\n";#recover STD

  • Perl使用chdir的实例代码

    复制代码 代码如下: use strict;use warnings; # Print all files in a directorysub print_files {    my $dir = 'd:/code';    opendir DIR, $dir or die $!;    my @files = readdir DIR;    chdir $dir; # Use chdir or -f will not work, since -f need absolutely path   

  • MySQL 序列 AUTO_INCREMENT详解及实例代码

    MySQL 序列 AUTO_INCREMENT详解及实例代码 MySQL序列是一组整数:1, 2, 3, ...,由于一张数据表只能有一个字段自增主键, 如果你想实现其他字段也实现自动增加,就可以使用MySQL序列来实现. 本章我们将介绍如何使用MySQL的序列. 使用AUTO_INCREMENT MySQL中最简单使用序列的方法就是使用 MySQL AUTO_INCREMENT 来定义列. 实例 以下实例中创建了数据表insect, insect中id无需指定值可实现自动增长. mysql>

  • Java thrift服务器和客户端创建实例代码

    Thrift是一个软件框架,用来进行可扩展且跨语言的服务的开发.它结合了功能强大的软件堆栈和代码生成引擎,以构建在 C++, Java, Python, PHP, Ruby, Erlang, Perl, Haskell, C#, Cocoa, JavaScript, Node.js, Smalltalk, and OCaml 等等编程语言间无缝结合的.高效的服务. Thrift最初由facebook开发,07年四月开放源码,08年5月进入apache孵化器.thrift允许你定义一个简单的定义文

  • Angularjs2不同组件间的通信实例代码

    AngualrJs2官方方法是以@Input,@Output来实现组件间的相互传值,而且组件之间必须父子关系,下面给大家提供一个简单的方法,实现组件间的传值,不仅仅是父子组件,跨模块的组件也可以实现传值 /** *1.定义一个服务,作为传递参数的媒介 */ @Injectable() export class PrepService{ //定义一个属性,作为组件之间的传递参数,也可以是一个对象或方法 profileInfo: any; } /** *2.传递参数的组件,我这边简单演示,直接就在构

  • Angular动态添加、删除输入框并计算值实例代码

    Angular动态添加.删除输入框并计算值实例代码 摘要: 在学习群中交流时,有人分享了一个动态添加输入框的方法,我在其基础上进行了一些改进 这个功能本身并不复杂,但还是要注意,每个ng-model的对象必须是不同的,这样才能把它们分隔开. 下面是完整代码: JS: angular.module("myApp",[]) .controller("inputController",function($scope){ $scope.items=[]; //初始化数组,以

  • 正则表达式匹配(URL、电话、手机、邮箱)的实例代码

    正则表达式,又称规则表达式.(英语:Regular Expression,在代码中常简写为regex.regexp或RE),计算机科学的一个概念.正则表通常被用来检索.替换那些符合某个模式(规则)的文本.下面通过实例代码给大家介绍正则表达式匹配(URL.电话.手机.邮箱)的实例代码,一起看看吧! 废话不多说了,直接给大家贴代码了,具体代码如下所示: <!DOCTYPE html> <html lang="en"> <head> <meta ch

  • JS实现分页浏览横向图片(类轮播)实例代码

    昨天朋友问我怎么用js实现分页浏览横向图片功能,其实实现代码很简单的,下面小编给大家带来了具体实现代码,代码如下所示: common.js function $(id) { return document.getElementById(id); } function $_tag(tag) { return document.getElementsByTagName(tag); } index.html <!DOCTYPE html> <html lang="en"&g

  • Ajax邮箱、用户名唯一性验证实例代码

    废话不多说了,直接给大家贴代码了,具体代码如下所示: <script type="text/javascript"> $(function () { $("#txtEmail").blur(function () { $.ajax({ type: "post", url: "reg.ashx?email=" + $.trim($("#txtEmail").val()) + "&

  • Django中使用jquery的ajax进行数据交互的实例代码

    jquery框架中提供了$.ajax.$.get.$.post方法,用于进行异步交互,由于Django中默认使用CSRF约束,推荐使用$.get 示例:实现省市区的选择 最终实现效果如图: 将jquery文件拷贝到static/js/目录下 打开booktest/views.py文件,定义视图area1,用于显示下拉列表 #提供显示下拉列表的控件,供用户操作 def area1(request): return render(request,'booktest/area1.html') 打开bo

随机推荐