Perl One-liner: Find size of all subdirectories in a given path; and report time taken to scan sub-directory

scan.sh

perl -MString::ShellQuote -E 'opendir(DIR, $ARGV[0]) or die "no: $!\n"; while (my $dir = readdir(DIR)) { next if $dir =~ /^\.+$/; if (-d join(q|/|, join(q| |, @ARGV), $dir)) { say "---------- START $dir ----------"; system("bash -c \"time du -hs @{[shell_quote_best_effort(join(q|/|, join(q| |, @ARGV), $dir))]}\""); say "----------- END $dir -----------\n" }}' $HOME/Library

#!/usr/bin/env perl

# The not-line-nose version
use String::ShellQuote;
use v5.10;

opendir(DIR, join(' ', @ARGV) // '.') or die "no: $!\n";

while (my $dir = readdir(DIR)) {
  next if $dir =~ /^\.+$/;
  $ctx_dir = join(q|/|, join(q| |, @ARGV), $dir);
  if (-d $ctx_dir) {
    say "---------- START $dir ----------";

    # time is a bash builtin
    system("bash -c \"time du -hs @{[shell_quote_best_effort($ctx_dir)]}\"");
  
    say "----------- END $dir -----------\n"
  }
}