mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-25 15:37:56 +00:00
39 lines
1.1 KiB
Bash
39 lines
1.1 KiB
Bash
#!/bin/bash
|
|
|
|
PAR=parallel
|
|
|
|
rm -rf tmp 2>/dev/null
|
|
cd input-files
|
|
tar xjf random_dirs_with_newline.tar.bz2
|
|
cd ..
|
|
cp -a input-files/random_dirs_with_newline tmp
|
|
cd tmp
|
|
|
|
# tests if special dir names causes problems
|
|
find . -type d -print0 | perl -0 -pe 's:^./::' | $PAR -0 -v touch -- {}/abc-{}-{} 2>&1 \
|
|
| perl -e 'print sort (<>)' | md5sum
|
|
echo -n 'There are '
|
|
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo -n ' dirs with '
|
|
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo ' files'
|
|
echo 'Removing files'
|
|
find . -type d -print0 | perl -0 -pe 's:^./::' | $PAR -0 -v rm -- {}/abc-{}-{} 2>&1 \
|
|
| perl -e 'print sort (<>)' | md5sum
|
|
echo -n 'There are '
|
|
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo -n ' dirs with '
|
|
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo ' files'
|
|
echo 'Removing dirs'
|
|
find . -type d -print0 | perl -0 -pe 's:^./::' | $PAR -0 -v rmdir -- {} 2>&1 \
|
|
| perl -e 'print sort (<>)' | md5sum
|
|
echo -n 'There are '
|
|
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo -n ' dirs with '
|
|
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
|
|
echo ' files'
|
|
|
|
cd ..
|
|
rm -rf tmp
|