Mercurial > hg > paul
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 4:1641fdbc1809 | 5:bca2a490a6f4 |
|---|---|
| 3 pat=http*%3a%2f%2f* | 3 pat=http*%3a%2f%2f* |
| 4 me=$$ | 4 me=$$ |
| 5 find $pat -type f -print0 | xargs -0 ls -t > ssn$me | 5 find $pat -type f -print0 | xargs -0 ls -t > ssn$me |
| 6 find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sso$me | 6 find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sso$me |
| 7 wc -l ss?$me | 7 wc -l ss?$me |
| 8 cat ss?$me | while read f; do echo `basename $f`; done > ssb$me | 8 cat ss?$me | while read f; do sed 's/^.*[/]//;s/.tar.\(xz\|zst\|bz2\)$//'; done > ssb$me |
| 9 while read f; do echo ${f%%-[0-9]*}; done < ssb$me | sort | uniq -c | egrep -v ' 1 |setup.ini' | tr -s ' ' ' ' | cut -d ' ' -f 3 | sed 's/+/\\\\+/g' > ssp$me | 9 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 |
| 10 while read p; do egrep -h "/$p-[0-9]" ss?$me|tail -n +2 ; done <ssp$me | xargs -n 100 rm | 10 while read p; do egrep -h "/$p[-._][0-9]" ss?$me|tail -n +2 ; done <ssp$me | xargs -n 100 rm |
| 11 find $pat -type f -print0 | xargs -0 ls -t > snn$me | 11 find $pat -type f | xargs ls -t > snn$me |
| 12 find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sno$me | 12 find -L oldMirrors/$pat -type f | xargs ls -t > sno$me |
| 13 wc -l sn?$me | 13 wc -l sn?$me |
| 14 |