in reply to outputting fun
Here's my entry:
Cheers,
Shendal
#!/usr/bin/perl -w use strict; # always $_ = join("",('A' .. 'G'), reverse('A' .. 'F'),"\n"); foreach my $letter (reverse ('A' .. 'G')) { print; s/$letter/ /g; }
Cheers,
Shendal
|
---|
In Section
Seekers of Perl Wisdom