Firstly, apologies for the double posting of this question.
On Wed, 01 Apr 2009 09:49 +0200, "Thomas Bätzler"
wrote:
> How about (untested):
>
> sub display_board {
> foreach my $ref (@_){
> foreach my $piece ( @$ref ){
> print substr( $piece, -2);
> }
> }
> }
>
> The Perl wa
Richard Hobson wrote:
> Please be patient with this beginner. I have a subrouting as follows,
> that prints out an ASCII representation of chess board
>
> sub display_board {
> foreach (0..7) {
> my $ref = @_[$_];
> foreach (0..7) {
> my $pi
