diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2019-11-28 09:53:25 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2019-11-28 09:53:25 -0700 |
| commit | db4142b11f4a49fcce2041e367ddd47c13e37e62 (patch) | |
| tree | f0a36c5e8dd5d251589332099becd2d31632521c /challenge-036 | |
| parent | ca36179175f89cbbd23459a1751f58f95f243675 (diff) | |
| download | perlweeklychallenge-club-db4142b11f4a49fcce2041e367ddd47c13e37e62.tar.gz perlweeklychallenge-club-db4142b11f4a49fcce2041e367ddd47c13e37e62.tar.bz2 perlweeklychallenge-club-db4142b11f4a49fcce2041e367ddd47c13e37e62.zip | |
"say sprintf" replaced with "printf" :-)
Diffstat (limited to 'challenge-036')
| -rw-r--r-- | challenge-036/mark-anderson/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-036/mark-anderson/perl5/ch-2.pl b/challenge-036/mark-anderson/perl5/ch-2.pl index 583869b8a5..4f987df09e 100644 --- a/challenge-036/mark-anderson/perl5/ch-2.pl +++ b/challenge-036/mark-anderson/perl5/ch-2.pl @@ -35,7 +35,7 @@ foreach my $k (1 .. 5) { say "-" x 42 . "\nNumber Of Boxes | Colors | Weight | Amount\n" . "-" x 42; foreach my $answer (@answers) { - say sprintf "%-18d%-9s%-9d%d", $answer->@*; + printf "%-18d%-9s%-9d%d\n", $answer->@*; } # Output: |