diff options
Diffstat (limited to 'utils')
| -rwxr-xr-x | utils/auto_perltidy.sh | 6 | ||||
| -rwxr-xr-x | utils/bak_cleaner.sh | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/utils/auto_perltidy.sh b/utils/auto_perltidy.sh new file mode 100755 index 0000000..866dcfa --- /dev/null +++ b/utils/auto_perltidy.sh @@ -0,0 +1,6 @@ +#!/bin/sh + +alias perltidy='perltidy -utf8 -l=127 -f -kbl=1 -bbb -bbc -bbs -b -ple -bt=2 -pt=2 -sbt=2 -bvt=0 -sbvt=1 -cti=1 -bar -lp -anl'; +which perltidy; +cd ..; +for i in $(git status | grep '^[[:cntrl:]]*modified:' | egrep 'bin/|\.(pm|t)$' | perl -nE 'say +(split)[-1]'); do echo $i; perltidy -b $i; done diff --git a/utils/bak_cleaner.sh b/utils/bak_cleaner.sh new file mode 100755 index 0000000..cb8340e --- /dev/null +++ b/utils/bak_cleaner.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +for i in $(git status | grep \.bak$ | perl -nE 'say +(split)[-1]'); do echo $i; rm $i; done |