Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
use strict;
...
for (keys %$player) {
        print "$_: ", $player->{$_}, $/;
}
  2. or download this
    package Player;
use Mover;
...
}

1;
  3. or download this
    package Mover;
use Object;
...
}

1;
  4. or download this
    package Object;
use strict;
...
}

1;
  5. or download this
    $ ./test.pl
score: 0
vx: -1
symbol: _