diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-02-10 07:58:18 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-02-10 07:58:18 +0100 |
| commit | 61c0f26bb7721579308a879449efe6b45a4c7451 (patch) | |
| tree | 2c73587fae41e78bf9c8f53d9b3b9a642e7264a3 | |
| parent | 323110b0d053e2067a3cae6db62bc209f869bc57 (diff) | |
| download | perlweeklychallenge-club-61c0f26bb7721579308a879449efe6b45a4c7451.tar.gz perlweeklychallenge-club-61c0f26bb7721579308a879449efe6b45a4c7451.tar.bz2 perlweeklychallenge-club-61c0f26bb7721579308a879449efe6b45a4c7451.zip | |
simplify cmd-line processing
| -rwxr-xr-x | challenge-098/jo-37/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-098/jo-37/perl/ch-1.pl b/challenge-098/jo-37/perl/ch-1.pl index ac4435d70f..2af4affc21 100755 --- a/challenge-098/jo-37/perl/ch-1.pl +++ b/challenge-098/jo-37/perl/ch-1.pl @@ -51,7 +51,7 @@ EOS binmode STDOUT, ':utf8'; -/^\d+$/ and say readN($a, $_) and next or $a = $_ for @ARGV; +/^\d+$/ and say readN($a, $_) or $a = $_ for @ARGV; ### Implementation |