Board logo

标题: [问题求助] 用perl重写“正在加载”进度条的疑问 [打印本页]

作者: sxw    时间: 2011-9-5 10:31     标题: 用perl重写“正在加载”进度条的疑问

感觉比批处理简洁一点,疑问是■为什么会出现在两条线段之间,而不擦除下面的那条?
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. $|=1;
  5. print "正在加载...\n";
  6. use Time::HiRes qw ( sleep );
  7. print "┌──────────────────────────────────────┐\n";
  8. print "└──────────────────────────────────────┘\n";
  9. print "\t","" x 31;
  10. print " ";
  11. print "■" and sleep 0.1 for (1..35);
  12. print "    100\%";
  13. sleep 2;
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2