Maze 2008: Sample Program

0402.pl

#!/usr/bin/perl

# Prepare a new terminal screen
require Term::Screen;
$rt=new Term::Screen;
$rt->clrscr();

# Get the contents of the map file
open (MF, "< maze04.map");
@map = <MF>;
close (MF);

$left=25;
$vert=5;
foreach $l (@map)
{
  $rt->at($vert, $left)->puts("$l");
  $vert = $vert + 1;
}