58 lines
1.6 KiB
Bash
58 lines
1.6 KiB
Bash
#!/bin/bash
|
|
|
|
make_csv() {
|
|
# Create XXXsepYYY.csv (XXX rows, YYY cols, sep as separator)
|
|
normal() {
|
|
perl -e '($m,$sep,$n) = $ARGV[0]=~/(\d+)(\D+)(\d+)/; $sep = eval "\"$sep\""; for $l (1..$m){ print join $sep, map {"$_-$l"} (1..$n); print "\n" }' $@ > $@
|
|
}
|
|
transposed() {
|
|
perl -e '($m,$sep,$n) = $ARGV[0]=~/(\d+)(\D+)(\d+)/; $sep = eval "\"$sep\""; for $l (1..$n){ print join $sep, map {"$l-$_"} (1..$m); print "\n" }' $@ > $@.t
|
|
}
|
|
export -f normal transposed
|
|
parallel -q {} "$@" ::: normal transposed
|
|
}
|
|
|
|
md5transpose() {
|
|
local file
|
|
file=$1
|
|
blk="$2 $3"
|
|
echo File $file
|
|
transpose $blk -d "$(echo "$file" | perl -pe 's/.*\d(\D+)\d.*/$1/')" $file | md5sum
|
|
cat $file |
|
|
transpose $blk -d "$(echo "$file" | perl -pe 's/.*\d(\D+)\d.*/$1/')" | md5sum
|
|
cat $file.t | md5sum
|
|
|
|
transpose $blk -d "$(echo "$file" | perl -pe 's/.*\d(\D+)\d.*/$1/')" $file.t | md5sum
|
|
cat $file.t |
|
|
transpose $blk -d "$(echo "$file" | perl -pe 's/.*\d(\D+)\d.*/$1/')" | md5sum
|
|
cat $file | md5sum
|
|
}
|
|
|
|
dotest() {
|
|
if [ ! -e "$1".t ] ; then
|
|
make_csv "$1"
|
|
fi
|
|
md5transpose "$@"
|
|
echo
|
|
}
|
|
|
|
. `which env_parallel.bash`
|
|
env_parallel -r <<EOF
|
|
# Test --block 1 (problem with GNU Parallel < 20180422)
|
|
dotest /tmp/table-3,1000.csv -b 1
|
|
dotest /tmp/table-3,1000.csv
|
|
dotest /tmp/table-3,10000.csv
|
|
dotest /tmp/table-3,100000.csv
|
|
dotest /tmp/table-3,1000000.csv
|
|
dotest /tmp/table-3,10000000.csv
|
|
|
|
dotest '/tmp/table-10\\t20.csv'
|
|
dotest /tmp/table-10';'20.csv
|
|
dotest '/tmp/table-100\\t200.csv'
|
|
dotest /tmp/table-1,100.csv
|
|
dotest /tmp/table-10,1000.csv
|
|
dotest /tmp/table-100,10000.csv
|
|
dotest /tmp/table-1000,100000.csv
|
|
EOF
|
|
|