diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-06-25 11:23:44 -0400 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-06-25 11:23:44 -0400 |
| commit | a22549e96faaca73796ca9ee62cfa4cd3fe55343 (patch) | |
| tree | 699fbdf60b8acef80d182694d23b589cd436d5a1 | |
| parent | e4b4e63cbaae7faeb108231d2f859c244ce65925 (diff) | |
| download | perlweeklychallenge-club-a22549e96faaca73796ca9ee62cfa4cd3fe55343.tar.gz perlweeklychallenge-club-a22549e96faaca73796ca9ee62cfa4cd3fe55343.tar.bz2 perlweeklychallenge-club-a22549e96faaca73796ca9ee62cfa4cd3fe55343.zip | |
modified: challenge-275/mattneleigh/perl/ch-2.pl
| -rwxr-xr-x | challenge-275/mattneleigh/perl/ch-2.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-275/mattneleigh/perl/ch-2.pl b/challenge-275/mattneleigh/perl/ch-2.pl index 3967338edd..dfa47d6be8 100755 --- a/challenge-275/mattneleigh/perl/ch-2.pl +++ b/challenge-275/mattneleigh/perl/ch-2.pl @@ -28,6 +28,7 @@ foreach my $string (@strings){ character_advance($string) ); } +; exit(0); ################################################################################ @@ -68,11 +69,11 @@ sub character_advance{ # the bounds of the alphabet $char_value -= 26 unless( - # Upper case - (($char_value > 64) && ($char_value < 91)) - || # Lower case (($char_value > 96) && ($char_value < 123)) + || + # Upper case + (($char_value > 64) && ($char_value < 91)) ); # Store the new letter in place of |