untranspose.sh 616 B

1234
  1. #!/bin/sh
  2. perl -pe 's/(\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w)/$1 $5 $9 $13 $2 $6 $10 $14 $3 $7 $11 $15 $4 $8 $12 $16/g' |
  3. perl -pe 's/(\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w) (\w\w \w\w \w\w \w\w)/$1 $5 $9 $13 $2 $6 $10 $14 $3 $7 $11 $15 $4 $8 $12 $16/g'