[技术讨论] 一个Perl脚本小动画，没弄好

sxw

以下代码存为3.bat

@rem = '
@echo off
color 06
echo.&echo.
c:\perl\bin\perl.exe -S 3.bat 
goto end_perl
: end_perl
pause>nul
exit

@rem ';


#!/usr/bin/perl

use Win32::Console; 

my $Out = new Win32::Console(STD_OUTPUT_HANDLE) || die;
$Out->Cursor( 20, 20,0,0 );

my $n=0;
while (1) {

 unless ($n>=11) {
  foreach (qw{ \\ | / - }){
      $Out->FillChar("$_", 100*80, 0, 0);
      select(undef,undef,undef,0.05);
   }
   }
   if ($n>=12 and $n <=24) {
    foreach (qw{ - / | \\ }){
      $Out->FillChar("$_", 100*80, 0, 0);
      select(undef,undef,undef,0.05);
   }
   }
   $n++;
   $n=0 if $n>24;
}
复制代码

canyuexiaolang

没有安装perl不能看吗= =

gawk

回复 2# canyuexiaolang


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

sxw

回复 2# canyuexiaolang


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

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

yangeren

echo %dirName%&md %dirName%

523066680

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

sxw

回复 6# 523066680


    哪里有呢？？呵呵