camsaul · March 15, 2024 18:19
diff --git a/biggest-files.sh b/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
	#! /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