#! usr/bin/perl -w # polyfive means Polybius 5x5 # script prints a 5x5 polybius based on keyword # to modify to 6x6 change modulo from "% 5" to "% 6" and 5+1 to 6+1 use Term::ANSIColor; my $i; my @alpha = (A..Z); splice (@alpha, 9, 1); # get rid of J print color 'bold blue'; print "\t 1 2 3 4 5\n"; # row number for ($i=0; $i<=24; $i++) { print "\n".($i/5+1)."\t" if (($i) % 5 == 0); print " $alpha[$i]"; } print color 'reset'; print "\n";