论坛 › Perl › perl写的一个迷宫游戏

goodmm 发表于 2015-12-28 10:05:15

perl写的一个迷宫游戏

　　#!/user/bin/perl
　　my @maze=(
,
,
,
,
);
my %direction=(n=>[-1,0],s=>,e=>,w=>);
　　my %full=(e=>'East',n=>'North', w=>'West',s=>'South' );
my($curr_x,$curr_y,$x,$y)=(0,0,3,3);
my $move;
　　sub disp_location{
my($cx,$cy)=@_;
print "You may move ";
while($maze[$cx][$cy]=~/()/g){
print "$full{$1}";
}
print "($maze[$cx][$cy])n";
}
sub move_to{
my($new,$xref,$yref)=@_;
　　$new=substr(lc($new),0,1);
if($maze[$$xref][$$yref]!~/$new/){
print "Invalid direction,$new.b";
return;
}
$$xref+=$direction{$new};
$$yref+=$direction{$new};
}
until($curr_x==$x and $curr_y==$y){
disp_location($curr_x,$curr_y);
print "what's way?";
$move = <STDIN>;chomp $move;
exit if ($move=~/^q/);
move_to($move,$curr_x,$curr_y);
}
print "You made it through the maze!n";

查看完整版本: perl写的一个迷宫游戏