[原创]一个简单的控制上机时间的perl代码

[这个贴子最后由damnyou在 2004/08/21 08:52pm 第 2 次编辑] 代码内容如下: ########################################### #!perl -w #Code by tiger-->www.Xtiger.net&www.thysea.com my $time; my $hour; my $xxx; open (T,"time /t|") or print "[Err]不能获取系统时间!";#通过系统命令获取系统时间 read(T,$time,25); ($hour,$xxx) = split /\:/, $time; #获得当前时间 小时 if($hour<19 && $hour>7) #判断当前时间(小时)是否在7到19点间 { system("shutdown /s /c 请不要在上班时间进行娱乐活动!谢谢合作! /t 30"); #如果在7到19点执行系统命令关机并给出提示 } close T; #关闭句柄 ##################################### 保存为shut.pl,加到自启动中,就可以了。如果别人在7到19前打开你的电脑就会自动关机并给出提示 如果你对很多编程语言了解的话,还可以有很多种方法,上面只是简单实用的我自己使用过的一段代码. 其实光perl实现上面的功能就有很多种方法