论坛 › Perl › perl倒计时脚本

fjqzyc 发表于 2018-8-31 12:26:50

perl倒计时脚本

　　#!/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";
　　~

查看完整版本: perl倒计时脚本