diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-30 00:49:16 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-30 00:49:16 +0100 |
| commit | 5a36dc73838d80b807db4f9d5d158431a30959df (patch) | |
| tree | b5395262d09b8eba082380b66bda2342f89705c6 | |
| parent | d66aa53b988a571018367c1fa3e56f6d056b2354 (diff) | |
| download | perlweeklychallenge-club-5a36dc73838d80b807db4f9d5d158431a30959df.tar.gz perlweeklychallenge-club-5a36dc73838d80b807db4f9d5d158431a30959df.tar.bz2 perlweeklychallenge-club-5a36dc73838d80b807db4f9d5d158431a30959df.zip | |
- Updated solution by Arne Sommer.
| -rwxr-xr-x | challenge-023/arne-sommer/perl5/ch-3.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-023/arne-sommer/perl5/ch-3.pl b/challenge-023/arne-sommer/perl5/ch-3.pl index c6656f574c..6b00bb150b 100755 --- a/challenge-023/arne-sommer/perl5/ch-3.pl +++ b/challenge-023/arne-sommer/perl5/ch-3.pl @@ -15,7 +15,7 @@ my $json = get('https://www.poemist.com/api/v1/randompoems'); my $data = from_json($json); -for ($count) +for (0 .. $count -1) { last unless $data->[$_]; |