List all open files sorted by size, including deleted files

openfiles

#!/usr/bin/perl -w
use strict;
use Number::Bytes::Human qw/format_bytes/;

my $count = 30;
if( @ARGV ) {
    die "Usage: $0 <count>\n" if @ARGV > 1;
    $count = shift @ARGV;
    die "bad count\n" unless $count =~ /^\d+/;
}

my (@names, @sizes);
foreach (</proc/*/fd/*>) {
    my @s = stat($_);
    next unless @s;
    my $size = $s[7];
    die unless defined $size;
    push @names, $_;
    push @sizes, $size;
}

my %skip;
for( sort { $sizes[$b] <=> $sizes[$a] } (0 .. $#sizes) ) {
    my $realname = readlink $names[$_];
    if(defined $realname) {
        next if $skip{$realname};
        $skip{$realname} = 1;
    } else {
        $realname = "(cannot read link)";
    }
    printf "%s:\t%s\t%s\n", format_bytes($sizes[$_]), $names[$_], $realname;
    last if --$count <= 0;
}