perl倒计时脚本

前端之家收集整理的这篇文章主要介绍了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秒后开始关机。

猜你在找的Perl相关文章