perl自定义函数内部如何返回当前函数名?

Question

perl自定义函数内部如何返回当前函数名

Answer 1

错的 void Fun(int a, char* buf) //函数返回的值可以放在buf中, 这样就不需要return 是 "要求函数名返回一个值" 还是 "要求函数返回一个值" ?

Answer 2

1、有些应用中perl的速度比较慢，但是如果和c结合起来，就可以解决这样的问题了。
2、perl和c结合有三种办法，第一是用c来写xs制作perl模块，再在perl代码中加载，这个比较简单，CU和IBM都有文档看，我就不写了。
2、在C中嵌入perl脚本，这个对我来说没什么用，我还没看。
3、就是本文要说的，在Perl中嵌入C代码了。实现起来简单方便，唯一的要求是运行perl脚本的机器要有编译器，VC和GCC都行。

Answer 3

1、time函数：返回从1970年1月1日起累计的秒数 使用：my $t=time(); 2、 localtime函数：获取本地时区时间 使用：my $t=localtime(time()); 3、gmtime函数： 获取格林威治时间 使用：my $t=gmtime(time()); 得到格式化时间(以localtime函数为例)： my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $sec:秒$min:分$hour:小时$mday:日$mon:月$year:目前的年减去1990，不是仅将19xx年的19去掉，因此不会有Y2K的困扰。$wday:每周的日期(如Sunday是0)$yday:每年的日期(如Jan 1是0)$isdst:如果日光节约时间使用则是正值，其它为0。

4、POSIX 函数 strftime() 可以将时间格式化为我们想要的格式。

123456789

#!/usr/bin/perluse POSIX qw(strftime);  $datestring = strftime "%Y-%m-%d %H:%M:%S", localtime;printf("时间日期 - $datestring\n");  #  GMT 格式化时间日期$datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime;printf("时间日期 - $datestring\n");

得到一个小时以前的时间

perl -MPOSIX -le 'print strftime "%c", localtime(time()-3600);'

得到一天前的时间

perl -MPOSIX -le 'print strftime "%c", localtime(time()-86400);'