一时兴起，想试试能不能用perl实现字符贪吃蛇，算法如下：
定义2个数组@bg、@snake，@bg用来显示整个界面，@snake从蛇头开始保存蛇的坐标点。
蛇每移动一次，新的坐标点放到@snake头部，并去除最后一个元素，再改变@bg对应坐标的值。
通过控制台窗口不断清屏再打印，使蛇“看起来在移动”。
简单的速度控制实现：每次移动后sleep 若干秒。
感觉原来的make_food算法不够好，修改如下：
sub make_food{ if(@snake < $full){ my @empty_points=(); foreach(0..$#bg){ my $y=$_; foreach(0..$#{$bg[0]}){ push @empty_points,[$y,$_] if($bg[$y][$_] eq \'.\'); } } # 找出所有空的坐标点，存入@empty_points数组 until($food){ my $num=int( rand( scalar(@empty_points) ) ); # 随机取出@empty_points下标 my ($y,$x)=@{ $empty_points[$num] }[0,1]; $bg[$y][$x]=\'O\'; $food=1; } } }
一个要解决的问题：无阻塞获取按键。通过度娘找到模块Term::ReadKey，新的问题产生了：批量输入方向，蛇会依次按照输入移动，暂时想不到好办法解决。
使用Time::HiRes的sleep，实现毫秒级等待，use 5.01 支持given...when语法。
使用 w a s d 控制移动，代码如下：
use strict; use 5.01; use Time::HiRes qw/sleep/; use Term::ReadKey; use constant {WIDTH=>10,HEIGHT=>6,DEBUG=>1}; my @bg=(); my @snake=(); my ($score,$food,$speed,$alive)=(0,0,1,1); # 长度、食物、速度、存活 my $full=WIDTH*HEIGHT; my %direct=( UP=>[-1,0], DOWN=>[1,0], LEFT=>[0,-1], RIGHT=>[0,1], ); # 移动方向 my $head=\'RIGHT\'; # 初始移动方向 &init; while($alive){ $speed=($speed<9)?(1+int($score/10)):9; # 速度控制 if(@snake==$full){ print "congratulations!\n"; # 蛇占满游戏区时显示 } else{ &move; &check_head; &show if $alive; sleep (1-$speed*0.1); } } sub init{ my $y=int(HEIGHT/2); @bg=map{my $x=$_;[map{$bg[$x][$_]=\'.\'}0..WIDTH-1]}0..HEIGHT-1; @{$bg[$y]}[1,2]=(\'#\',\'@\'); # 初始蛇身位置 @snake=( [$y,2],[$y,1], ); # 保存蛇身坐标 &make_food; # 产生食物 } sub show{ system("cls"); print "your score : $score\n"; print "current speed : ",$speed,"\n\n"; print @$_,"\n" foreach(@bg); } sub move{ ReadMode 2; my ($key,$cur); $key=ReadKey(-1); $key=~tr/a-z/A-Z/ if $key; given($key){ # 不允许反向移动 when(\'W\'){ if($head eq \'DOWN\'){ $cur=\'DOWN\'; } else{ $cur=$head=\'UP\'; } } when(\'A\'){ if($head eq \'RIGHT\'){ $cur=\'RIGHT\'; } else{ $cur=$head=\'LEFT\'; } } when(\'S\'){ if($head eq \'UP\'){ $cur=\'UP\'; } else{ $cur=$head=\'DOWN\'; } } when(\'D\'){ if($head eq \'LEFT\'){ $cur=\'LEFT\'; } else{ $cur=$head=\'RIGHT\'; } } default { $cur=$head; } } unshift @snake,[$snake[0][0]+$direct{$cur}[0],$snake[0][1]+$direct{$cur}[1]]; } sub make_food{ if(@snake < $full){ until($food){ my ($x,$y)=(int(rand(WIDTH)),int(rand(HEIGHT))); if($bg[$y][$x] eq \'.\'){ $bg[$y][$x]=\'O\'; $food=1; } } } } sub check_head{ # 蛇身超出范围 if($snake[0][0] < 0 || $snake[0][0] > HEIGHT-1 || $snake[0][1] < 0 || $snake[0][1] > WIDTH-1){ $alive=0; } # 蛇吃到自己 if(@snake>3){ foreach(1..$#snake){ if($snake[0][0] == $snake[$_][0] && $snake[0][1] == $snake[$_][1]){ $alive=0; } } } # 移动 if($bg[$snake[0][0]][$snake[0][1]] eq \'.\'){ $bg[$snake[0][0]][$snake[0][1]]=\'@\'; } # 吃到食物 if($bg[$snake[0][0]][$snake[0][1]] eq \'O\'){ $bg[$snake[0][0]][$snake[0][1]]=\'@\'; $score++; $food=0; &make_food; push @snake,[$snake[-1][0],$snake[-1][1]]; # 新的蛇身放在尾部 } $bg[$snake[-1][0]][$snake[-1][1]]=\'.\'; # 先清除尾巴显示 pop @snake; # 去掉尾巴 map{$bg[$snake[$_][0]][$snake[$_][1]]=\'#\'}1..$#snake; # 其他蛇身显示 }
游戏界面：
