#!/usr/bin/perl 

use strict;
use warnings;
use open ':std', OUT => ':utf8';

#my $file = '1.weather.json';
#system ("cat $file | jq '[.properties]' | more");
#system ("cat $file | jq '[.properties.cloudLayers]' >2.txt");
#system ("cat $file | jq '[.properties.temperature]' >3.txt");
# these were effective commands

##different json, same host
my $file = 'json_stuff/1.openapi.json';
#system ("cat $file | jq '[.]' >5.txt");
#system ("cat $file | jq '[.paths]' >6.txt");
system ("cat $file | jq '[.paths.get]' >7.txt");
                                      
__END__