perl倒计时脚本

小工具，60秒倒计时，然后执行其他工作。

#!/usr/bin/perl
#赵云

for ($i=16 ; $i>= 0; $i-- )
{
  if($i >= 10){
    print "\a\b\b\b\b\b\b\b\b\b\b\b";
    system 'sleep 1';
    print "### $i ###";
   }else{
    print "\a\b\b\b\b\b\b\b\b\b\b\b";
    system 'sleep 1';
    print "### 0$i ###";
  }
}
system 'ls -l ';
print "\n";


~

比如说倒计时60秒后开始关机。

本文转自zhaoyun00 51CTO博客，原文链接:http://blog.51cto.com/zhaoyun/794976