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;