Skip to content

Instantly share code, notes, and snippets.

@mgregoro

mgregoro/scan.sh

Created June 27, 2018 15:29
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mgregoro/ae9943891feccc799b9b011ba5ee93d7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mgregoro/ae9943891feccc799b9b011ba5ee93d7 to your computer and use it in GitHub Desktop.
Download ZIP
Perl One-liner: Find size of all subdirectories in a given path; and report time taken to scan sub-directory
Raw
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
@mgregoro
Copy link
Author

mgregoro commented Jun 27, 2018 •
edited
Loading 

#!/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"
  }
}

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment