Perl脚本如何获取当前年前一年的时间启动调度服务

如果是要取得服务器的时间的话使用localtime(time)可以得到，你可以按照你的需要读取相应的变量的值就可以了，函数格式如下： ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time) 只要读取左边括号中的变量就可以得到相应的时间。 程序参考： #! /usr/local/bin/perl $a = localtime(time) print "$a\n " 还考虑你的程序运行10秒哦。 但如果你是要读取客户端的时间的话就需要利用输出的javascript代码在客户端执行的时候取得了，因为perl是需要在服务器中执行的所以没有提供这样的函数！

一、打开SecureCRT

二、连接Unix系统

三、输入命令

perl -MPOSIX=strftime -le 'print strftime("%Y%m%d%M%S",localtime( (stat "file")[10] ))'

把下面这段代码保存下来，经常都需要的：

my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime(time)

$mon++

$year+=1900

你要判断星期一的方法简单，在上面的语句段之后加上这一句就行：

exit if ($wday!=1)

你的第二个问题首先给你个建议，把要把yyyymmdd.txt的所有文件放在一个目录下，这样这个目录下的文件会太多， *** 作系统对文件是顺序查找，这样性能会很低下，建议把文件分开保存在不同的目录的下，我一般是按年度建立一级目录，按星期建立二级目录，具体文件放在“年度\星期\”目录下。全年中第几个星期的值这样判断：int(($yday-1)/7)+1

如果你采纳了我的建议，自然就是判断某个目录下的所有文件，不需要核对名字了。

---