EDITED to add: this has been solved. Thanks so much.

Yes, $json_string is a decoded JSON object, not a string. That's what comes from copy-pasting inappropriately when I don't know what I'm doing.

I can't emphasize enough how useful this feedback is to me. It doesn't just make the difference between easy and hard, it makes the difference between easy and impossible.

My latest problem is that when I try to load the output text file into a Google spreadsheet, I get the following error message (no matter how long I wait beforehand) as soon as I try to manipulate any of the cells:

"There was a problem. These cells are currently being loaded. Please retry when loading completes."

Below is my current working code.

use strict;
use warnings;
use Mojo::UserAgent;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use Data::Dump qw(dd);

my $outputFilename = "test_output.txt";
my $fh_data;

open( $fh_data, '>', $outputFilename )
  or die "Could not open file '$outputFilename' $!";

my $url =
"http://web.archive.org/cdx/search/cdx?url=anautismobserver.wordpress.
+com&output=json"
  ;    # &limit=3
my $ua       = Mojo::UserAgent->new;
my $json_aoa = $ua->get($url)->res->json;
# dd $json_aoa;    # for debug

for my $ar_jentry (@$json_aoa) {    # handle each decoded JSON entry
    printf $fh_data "%s\t%s\t%s\t%s\t%s\t%s\t%s\n", @$ar_jentry;
}
close $fh_data;
[download]

Thank you again.

... load the output text file into a Google spreadsheet ...

Now we're straying beyond the realm of my experience. There are many monks around the monastery who are much better qualified to answer this sort of question than I am. I will defer to their wisdom.

---

Give a man a fish:  <%-{-{-{-<

Can you suggest alternative ways of printing to try, such as doing a double loop and using print for each individual entry string (which worked for me before) rather than printf on an array?

Thanks.

Never mind. I just needed to reload the spreadsheet. The output file is fine.

Thanks so much!

For future reference: How do I get the size numerically of an array of arrays (AoA)?

... the size numerically of an array of arrays (AoA) ...

What does "size" mean in this context? Remember that a Perl array or hash is always and only an array or hash of scalars. However, any of these scalars may be a reference to another array or hash (and a few other things). To find the total number of elements in a nested array/hash structure, you have to figure out a way to recurse through the entire structure from top to bottom and add up the elements in any and all nested arrays/hashes. See the Perl Data Structure Cookbook.

However, for a simple array, the process is straightforward. An array evaluated in scalar context yields the number of elements in the array. An array identifier or reference dereferenced with the $# sigil yields the index of the highest element in the array.

Win8 Strawberry 5.8.9.5 (32)  Mon 05/09/2022 19:13:22
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my @array    = (9, 8, 7);
my $arrayref = \@array;

print  "elements of array: (@array) (@$arrayref) \n";

printf "number of array elements: %d %d \n",
        scalar(@array), scalar(@$arrayref);

print  "highest array index: $#array $#$arrayref \n";

^Z
elements of array: (9 8 7) (9 8 7)
number of array elements: 3 3
highest array index: 2 2
[download]

But why do you need to explicitly know the "size" of an array or array structure? There are many techniques that allow one to iterate over the elements of an array or recurse through a nested structure without ever knowing the number of elements present. It all depends on just what you are trying to do.

---

Give a man a fish:  <%-{-{-{-<

I have to admit to simply being lazy on this one, since I could have easily looked it up myself. Sorry to bother you with something so trivial.

I've gotten spoiled by how easy it is to ask questions here. I will try to be more respectful about not wasting people's time.

Mostly I use perl to create input to spreadsheets, so most of my variables are simple arrays.

That answers my question. Thanks again for all your help.

OK, I've tried to look this up myself, but it would take me several hours to figure out what you could write in a few minutes.

There are 108 rows in $json_aoa, with timestamps from

$json_aoa->[0][1]

to

$json_aoa->[108][1]

How do I modify the following code

for my $ar_jentry (@$json_aoa) {    # handle each decoded JSON entry
    printf $fh_data2 "%s\t%s\t%s\t%s\t%s\t%s\t%s\n", @$ar_jentry;
}
[download]

so that it only prints values corresponding to the last 10 timestamps, in reverse order (latest to earliest)?

The other columns in the array are urlkey, timestamp, original, mimetype, statuscode, digest, and length.

How do I specify an arbitrary subset of these to include in the print out?

Thanks.