Sample Perl Script
Below is a sample perl script capable of running on a CUE linux host (e.g. jlabl1) to retrieve logbook content,.#!/apps/bin/perl use LWP::Simple; use JSON::PP qw( decode_json ); use Data::Dumper; use strict; use warnings; my $url = 'https://logbooks.jlab.org/api/elog/entries?book=HALOG'; # Base logbook query url $url .= '&field=lognumber&field=title&field=body'; # Desired output fields $url .= '&title=Start_Run_20685'; # Additional queriy my $json = get( $url ); die "Could not get $url!" unless defined $json; my $decoded_json = decode_json( $json ); if ($decoded_json->{stat} eq 'ok'){ my @entries = @{$decoded_json->{data}->{entries}}; foreach (@entries){ print $_->{lognumber}.": ".$_->{title}."\n"; print "\n-----\n"; print $_->{body}->{content}."\n\n"; } exit 0; }else{ print "The server did not return ok\n"; } exit 1;