Summary of file sizes for a directory tree, by extension

extsum.jl

using Printf
using Formatting

d=Dict{String, Integer}()
for (root, dirs, files) in walkdir(".")
    for file in files
        ff=joinpath(root, file)
	fs=filesize(ff)
	ar=rsplit(file,".";limit=2)
	ext=pop!(ar)
	nw=Dict(ext => fs)
	merge!(+,d,nw)
   end
end
d = [ (c,w) for (w,c) in d ]
sort!(d)
for (k,v) in d
	@printf("%s %s\n",lpad(format(k,commas=true),13),v)
end