view bin/cygclean @ 5:bca2a490a6f4

updated
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Wed, 16 Sep 2026 19:50:53 +0100
parents 2aa53823fb21
children
line wrap: on
line source

#!/bin/bash
cd ~/u/Downloads/Cygwin\ setup
pat=http*%3a%2f%2f*
me=$$
find $pat -type f -print0 | xargs -0 ls -t > ssn$me
find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sso$me
wc -l ss?$me
cat ss?$me | while read f; do sed 's/^.*[/]//;s/.tar.\(xz\|zst\|bz2\)$//'; done > ssb$me
while read f; do sed 's/[-._][-._0-9x]*$//'; done < ssb$me | sort | uniq -c | egrep -v ' 1 |setup.ini' | tr -s ' ' ' ' | cut -d ' ' -f 3 | sed 's/+/\\\\+/g' > ssp$me
while read p; do egrep -h "/$p[-._][0-9]" ss?$me|tail -n +2 ; done <ssp$me | xargs -n 100 rm
find $pat -type f | xargs ls -t > snn$me
find -L oldMirrors/$pat -type f | xargs ls -t > sno$me
wc -l sn?$me