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秒後開始關機。