Script to see what casks depend on other casks (the inverse of 'brew deps')

brew-depends-on.pl

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my %deps = map { $_ => [] } map { chomp; $_ } `brew list`;

for my $cask (sort keys %deps) {
    print STDERR "\r\e[2KInspecting cask: '$cask'";

    my @deps = `brew deps $cask`;
    chomp @deps;

    push @{$deps{$_}}, $cask for @deps;
}
print STDERR "\r\e[2K";
say "\e[1;34m$_:\e[0m " . join ', ' => @{$deps{$_}} for sort keys %deps;