#! usr/bin/perl -w # mkvig is Make Vigenere Table # script prints out a V-table # use Term::ANSIColor; my $i=1; # counter my @alpha = (A..Z); print "pt\t@alpha\n\n"; # print plaintext alphabet print "$alpha[0]\t"."@alpha\n"; # print the first line for ($i; $i<=25; $i++) { push(@alpha, shift(@alpha)); # take off first letter, add to end print "$alpha[0]\t@alpha\n"; # print and repeat }