Skip to content

Instantly share code, notes, and snippets.

View mperry2's full-sized avatar

Matt Perry mperry2

1 follower · 5 following
  • San Francisco Bay Area
View GitHub Profile
@mperry2
mperry2 / largest
Created August 16, 2013 13:38
A Perl script to find the largest files in the given directories. See http://www.reddit.com/r/perl/comments/1kcfy1/largest_morning_challenge_to_you_all_improve_this/ for more information.
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
if ($#ARGV < 1) {
die "Usage: $0 <count> <dir> [dir ...]\n";
}
my $count = shift @ARGV;