分享一个自己用Perl写的GUI桌面应用程序

rubyish

多谢分享，没Win
但看起来很有意思
谢谢

capfsxl

回复 1# iamlimeng

能否消息于我你的微信或手机号，以便酬谢！
   

dsadjkasd

写的不错，但提个小建议，就是获取本机时间那个补0的写的太烦，用sprintf就可以很简单处理，简单的修改了一下gettime的sub。

1. sub gettime {
   
2.         my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));
   
3.         $year += 1900;
   
4.         $mon++;
   
5.         return sprintf("%04s/%02s/%02s %02s:%02s:%02s",$year,$mon,$day,$hour,$min,$sec);
   
6. }

复制代码

iamlimeng

回复 13# dsadjkasd

这是好多年前写的代码，运行没问题，没想过去改进。太好了，非常感谢你的建议！

dsadjkasd

回复 14# iamlimeng
感觉你一直对perl的论坛很有贡献，win32gui的文档很少，只能拿写范例来学习，我也写过一些供大家参考。你是做什么工作的？我平时工作一直写些perl，处理大量的数据，只不过感觉PERL今非昔比了。

   

iamlimeng

回复 15# dsadjkasd


    你高抬我了。工作跟计算机无关，纯业余爱好。偶尔要分析点数据，用Perl也是分分钟搞定，Perl是一匹好骆驼，会一直爱下去，希望多交流。