find-iso-orphans: initial import

scripts/find-iso-orphans

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use warnings; use strict;
+
+my $depmap="/mnt/crux/setup.dependencies";
+my @orphans; my %DEPENDS;
+
+open (my $dfh, $depmap) or die "Cannot open dependency map $depmap!\n";
+while (<$dfh>) {
+  $DEPENDS{$1} = $2 if m/(.*): (.*)/;
+}
+close ($dfh);
+
+my $iso_deps="";
+foreach my $port (keys %DEPENDS) {
+   $DEPENDS{$port} =~ s/ $port / /;
+   $iso_deps .= " $DEPENDS{$port} " if ($DEPENDS{$port} !~ /^\s*$/);
+}
+@orphans = grep { $iso_deps !~ / $_/ } keys %DEPENDS;
+
+print "Orphans found on the iso:\n";
+foreach (@orphans) { print "$_\n"; }