diff options
Diffstat (limited to 'check.rc')
| -rwxr-xr-x | check.rc | 22 |
1 files changed, 13 insertions, 9 deletions
@@ -1,21 +1,25 @@ -#!/usr/local/plan9/bin/rc +#!/usr/bin/env rc + +fn read { + $HOME/9/plan9port-master/bin/read +} fn sum { - find . -type f | while (file = `{read}) { - if (test -f $"file ) { - sha256 $"file + find $1 -type f | while (f = `{read}) { + if (test -f $"f) { + shasum -a 256 $"f } } } +dir='b' previous = '' -sum | sed -E -e 's/(.*) = (.*)/\2 \1/' -e 's/SHA256 .//' -e 's/.$//' | sort | \ - tee sum | while (line = `{read}) { #cat sum | while (line = `{read}) { - sum = `{echo $line | sed -E -e 's/([^ ]*) (.*)/\1/'} - file = `{echo $line | sed -E -e 's/([^ ]*) (.*)/\2/'} +sum $dir | sort | tee sum | while (line = `{read}) { + sum = `{echo $line | sed -e 's/ .*//'} if (~ $sum $previous) { - echo $"file is a duplicate. + file = `{echo $line | sed -e 's/[^ ]*//'} + echo $"file } previous = $sum |