用perl重写“正在加载”进度条的疑问

sxw

感觉比批处理简洁一点，疑问是■为什么会出现在两条线段之间，而不擦除下面的那条？

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. $|=1;
   
7. print "正在加载...\n";
   
8. use Time::HiRes qw ( sleep );
   
9. print "┌──────────────────────────────────────┐\n";
   
10. print "└──────────────────────────────────────┘\n";
    
11. print "\t","" x 31;
    
12. print " ";
    
13. print "■" and sleep 0.1 for (1..35);
    
14. print "    100\%";
    
15. sleep 2;
    

复制代码