Skip to content

Instantly share code, notes, and snippets.

@camsaul

camsaul/biggest-files.sh

Created March 15, 2024 18:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save camsaul/06f0e0d806ae6547fe29837613a5c18d to your computer and use it in GitHub Desktop.
Save camsaul/06f0e0d806ae6547fe29837613a5c18d to your computer and use it in GitHub Desktop.
Download ZIP
Biggest files
Raw
biggest-files.sh
#! /usr/bin/env bash
set -euo pipefail
for file in `find . -type f -name '*.clj' -or -name '*.cljc' -or -name '*.cljs'`; do \
wc -l "$file" |
perl -ne 'my @parts = /(^\d+)\s(.*$)/; printf("%05d %s\n", $parts[0], $parts[1]);'
done |
sort -r |
head -n 20
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment