Switch to perl JSON::PP

`jq` is nice for prototyping, but many images do not have it...

Author: jsoref

gh-program-downloader

@@ -44,7 +44,8 @@ find_artifact() {
         arch_re='(?:i[3-6]|x)86';;
     esac
   fi
-  jq -r '['"$version_selector"'.assets[] | select (.name | test("'"$os_re"'") and test("'"$arch_re"'")) | .browser_download_url // empty] | .[-1]' "$releases"
+  os_re="$os_re" arch_re="$arch_re" version_selector="$version_selector" \
+  "$GITHUB_ACTION_PATH/program-filter" "$releases"
 }
 
 select_artifact() {

program-filter

@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+use JSON::PP;
+my $content;
+{
+  local $/=undef;
+  $content=<>;
+}
+
+$releases_or_release=decode_json($content);
+
+if ($ENV{version_selector}) {
+  $release=$releases_or_release->[0];
+} else {
+  $release=$releases_or_release;
+}
+
+$os_re=$ENV{os_re} || ".";
+$arch_re=$ENV{arch_re} || ".";
+
+$assets=$release->{assets};
+
+my $result;
+for $asset (@{$assets}) {
+  my $browser_download_url = $asset->{browser_download_url};
+  next unless $browser_download_url;
+  my $name = $asset->{name};
+  next unless $name =~ /$os_re/;
+  next unless $name =~ /$arch_re/;
+  $result = $browser_download_url;
+}
+
+print $result;