Get names of installed packages and print out as json.

lsdeb2json.pl

#!/usr/bin/env perl
# git clone https://gist.github.com/433121ccbbca8f1c5fc3.git
# for ios-jb + debian linux

use warnings;
use strict;
use JSON;

my @ar;
my %bundle;
my $status = '/usr/bin/dpkg-query -l | cut -d" " -f3';
my @status = `$status`;

for (@status) {
	chomp($_);
	$bundle{"title"} = "$_";
	push @ar, {%bundle};
}

my $p = \@ar;
my $jay = to_json($p);
my $jane = JSON->new->utf8(1)->pretty(1)->encode($p);

unless ($ARGV[0] eq '-p') {
	print $jay;
	} else {print $jane};

=head1 NAME
	lsdeb2json     list all installed packages and print them in json
    .

=head1 SYNOPSIS		
	lsdeb2json     print out minified json list
	lsdeb2json -p  same as above but json is pretty printed
    .
    .
    .


=cut