Added solution for ch#23 - task#3

3 files changed, 30 insertions, 2 deletions

diff --git a/challenge-023/yet-ebreo/perl5/ch-3.pl b/challenge-023/yet-ebreo/perl5/ch-3.pl
new file mode 100644
index 0000000000..7d4bd97110
--- /dev/null
+++ b/challenge-023/yet-ebreo/perl5/ch-3.pl
@@ -0,0 +1,28 @@
+# Write a script to use Random Poems API. This is the easiset API, 
+# I have come across so far. You don’t need API key for this. 
+# They have only route to work with (GET). 
+# The API task is optional but we would love to see your solution.
+
+use strict;
+use warnings;
+use 5.010;
+
+use LWP::Simple qw(get);
+use JSON;
+binmode STDOUT, ":encoding(UTF-8)";
+
+my $api_content = get "https://www.poemist.com/api/v1/randompoems";
+my @data;
+push @data, @{$_} for JSON->new->utf8->decode($api_content);
+
+#Printing the info of the first poem
+say "$data[0]{title} - $data[0]{poet}{name} - $data[0]{url}\n";
+
+#Accessing all(5) poems
+# for (@data) {
+#     say "$_->{title} - $_->{poet}{name} - $_->{url}";
+# }
+
+#Printing the content of the first poem
+say "$data[0]{content}";
+
diff --git a/challenge-023/yet-ebreo/perl6/ch-1.p6 b/challenge-023/yet-ebreo/perl6/ch-1.p6
index bc69ef39d1..2bfc4c59df 100644
--- a/challenge-023/yet-ebreo/perl6/ch-1.p6
+++ b/challenge-023/yet-ebreo/perl6/ch-1.p6
@@ -10,7 +10,7 @@
 
 my ($n, @list) = @*ARGS;
 
-die "Usage: ch-1.pl <n> <list>\n\tn\tmust be less than the number of elements in list\n\tlist\tvalues are space separated\n" if !@*ARGS;
+die "Usage: ch-1.p6 <n> <list>\n\tn\tmust be less than the number of elements in list\n\tlist\tvalues are space separated\n" if !@*ARGS;
 die "n($n) must be less than the number("~@list.end+1~") of elements in list\n" if $n> @list.end;
 
 
diff --git a/challenge-023/yet-ebreo/perl6/ch-2.p6 b/challenge-023/yet-ebreo/perl6/ch-2.p6
index f3996115cc..07c92eaf53 100644
--- a/challenge-023/yet-ebreo/perl6/ch-2.p6
+++ b/challenge-023/yet-ebreo/perl6/ch-2.p6
@@ -6,7 +6,7 @@
 
 my $n   = @*ARGS[0];
 my $m   = $n;
-die "Usage: ch-2.pl <n> \n\tn is a postive number\n" if !@*ARGS;
+die "Usage: ch-2.p6 <n> \n\tn is a postive number\n" if !@*ARGS;
 die "n must be a postive number\n" if $n < 1;
 
 #Backticks solution using factor, works both on windows and linux :D