一个Perl脚本小动画，没弄好

sxw

以下代码存为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. 
    
11. @rem ';
    
12. 
    
13. 
    
14. #!/usr/bin/perl
    
15. 
    
16. use Win32::Console;
    
17. 
    
18. my $Out = new Win32::Console(STD_OUTPUT_HANDLE) || die;
    
19. $Out->Cursor( 20, 20,0,0 );
    
20. 
    
21. my $n=0;
    
22. while (1) {
    
23. 
    
24. unless ($n>=11) {
    
25.   foreach (qw{ \\ | / - }){
    
26.       $Out->FillChar("$_", 100*80, 0, 0);
    
27.       select(undef,undef,undef,0.05);
    
28.    }
    
29.    }
    
30.    if ($n>=12 and $n <=24) {
    
31.     foreach (qw{ - / | \\ }){
    
32.       $Out->FillChar("$_", 100*80, 0, 0);
    
33.       select(undef,undef,undef,0.05);
    
34.    }
    
35.    }
    
36.    $n++;
    
37.    $n=0 if $n>24;
    
38. }

复制代码

canyuexiaolang

没有安装perl不能看吗= =

gawk

回复 2# canyuexiaolang


    据说删掉cmd之后就不能运行批处理了-_-

sxw

回复 2# canyuexiaolang


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

就是实现 / - \ |轮流出现的效果。

yangeren

echo %dirName%&md %dirName%

523066680

找出perl的图形接口模块，做真正的动画吧

sxw

回复 6# 523066680


    哪里有呢？？呵呵