diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-08-22 10:26:59 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-08-22 10:26:59 +0200 |
| commit | df897f065e7737cc3b82c36fbbb9d4a7c9510603 (patch) | |
| tree | b260300dfc056ad83030b396ef78b4a13b7cc701 | |
| parent | ed86aba3173945ac27b43d38aca7bd73b7bc02d0 (diff) | |
| download | perlweeklychallenge-club-df897f065e7737cc3b82c36fbbb9d4a7c9510603.tar.gz perlweeklychallenge-club-df897f065e7737cc3b82c36fbbb9d4a7c9510603.tar.bz2 perlweeklychallenge-club-df897f065e7737cc3b82c36fbbb9d4a7c9510603.zip | |
Avoid unpdl
| -rwxr-xr-x | challenge-126/jo-37/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-126/jo-37/perl/ch-2.pl b/challenge-126/jo-37/perl/ch-2.pl index a19efd7e95..b01a53fe32 100755 --- a/challenge-126/jo-37/perl/ch-2.pl +++ b/challenge-126/jo-37/perl/ch-2.pl @@ -62,7 +62,7 @@ sub read_pdl ($fh) { # Print a 2-d piddle containing ascii character codes. sub print_pdl ($p) { - say "@{[map chr, @$_]}" for @{$p->unpdl}; + say "@{[map chr($_->sclr), $_->dog]}" for $p->dog; } |