#!/usr/bin/env perl -w
use Parallel::ForkManager;
my $filename = 'all.txt';
my $failuresfilename="failed.tsv";
open (my $target, "<", $filename) or die "Cannot open < $filename: $!";
open (my $failures, ">", $failuresfilename) or die "Cannot open > $failuresfilename: $!";
sub readinFile {
  @lines = <$target>;
}
sub execute {
  $multiprocess = Parallel::ForkManager->new(2);
  TARGETS:
  foreach $processme (@lines) {
    $multiprocess->start and next TARGETS;
    
    chomp $processme;
    $command="cfn_nag_scan -o json --input-path $processme > $processme_.cfnag.json";
    `$command`;
     $multiprocess->finish;
  }
}
sub findFailures {
  @files=`find ./ -iname "*cfnag*"`;
  $jqcommand='jq --raw-output \'.[] | select (.file_results.failure_count > 0) |[.filename, .file_results.failure_count] |@tsv\'';
  foreach (@files) {
    chomp;
    s/\/\//\//g;
    @a=`cat $_ |$jqcommand`;
    print $failures @a;
  }
}
readinFile();
execute();
#findFailures();
close $failures;
close $failuresfilename;