Board logo

标题: [技术讨论] 一个Perl脚本小动画,没弄好 [打印本页]

作者: sxw    时间: 2012-4-29 20:13     标题: 一个Perl脚本小动画,没弄好

以下代码存为3.bat
  1. @rem = '
  2. @echo off
  3. color 06
  4. echo.&echo.
  5. c:\perl\bin\perl.exe -S 3.bat
  6. goto end_perl
  7. : end_perl
  8. pause>nul
  9. exit
  10. @rem ';
  11. #!/usr/bin/perl
  12. use Win32::Console;
  13. my $Out = new Win32::Console(STD_OUTPUT_HANDLE) || die;
  14. $Out->Cursor( 20, 20,0,0 );
  15. my $n=0;
  16. while (1) {
  17. unless ($n>=11) {
  18.   foreach (qw{ \\ | / - }){
  19.       $Out->FillChar("$_", 100*80, 0, 0);
  20.       select(undef,undef,undef,0.05);
  21.    }
  22.    }
  23.    if ($n>=12 and $n <=24) {
  24.     foreach (qw{ - / | \\ }){
  25.       $Out->FillChar("$_", 100*80, 0, 0);
  26.       select(undef,undef,undef,0.05);
  27.    }
  28.    }
  29.    $n++;
  30.    $n=0 if $n>24;
  31. }
复制代码

作者: canyuexiaolang    时间: 2012-4-30 07:03

没有安装perl不能看吗= =
作者: gawk    时间: 2012-4-30 11:27

回复 2# canyuexiaolang


    据说删掉cmd之后就不能运行批处理了-_-
作者: sxw    时间: 2012-4-30 12:25

回复 2# canyuexiaolang


    需要安装Perl,额。并且perl.exe的路径要是你自己安装Perl时的路径,忘了修改了。

就是实现 / - \ |轮流出现的效果。
作者: yangeren    时间: 2012-5-1 23:00

echo %dirName%&md %dirName%
作者: 523066680    时间: 2012-5-21 15:58

找出perl的图形接口模块,做真正的动画吧
作者: sxw    时间: 2012-5-28 17:44

回复 6# 523066680


    哪里有呢??呵呵




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