perl倒计时脚本

2021-10-10 03:39:59

小工具，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";

~