小工具,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倒计时脚本全部内容,希望文章能够帮你解决perl倒计时脚本所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)