我想生成以下页面列表(用于拼版工作); (页数是可变的,但我使用 16 页的列表制作了我的需求示例,较长列表的逻辑是相同的)
1,16
8,9
15,2
10,7
3,14
6,11
13,4
12,5
我为循环写了这个:
for ((x=16, y=1, z=8, w=9;x>=4, y<=4, z>=12, w<=12;x--, y++, z--, w++)); do echo "$x $y;$z $w"; done | tr ";" "\n" | tr " " ","
然而,这会产生:
16,1
8,9
15,2
7,10
14,3
6,11
13,4
5,12
而不是我想要的页面列表。因此,我需要使用 awk 或其他命令,按照此模式交换某些列中的字段(每 4 页重复一次)
交换字段
没有交换字段
没有交换字段
交换字段
16,1 (swap: becomes: 1,16
8,9 (no swap: remains 8,9
15,2 (no swap: remains 15,2
7,10 (swap: becomes: 10,7
14,3 (swap: becomes: 3,14
6,11 (no swap: remains 6,11
13,4 (no swap: remains 13,4
5,12 (swap: becomes: 12,5
概括这种拼版的逻辑(我需要在 A4 页面格式上拼版 A6 书的单个副本)我编写了一个更通用的脚本
#!/bin/sh
pages=$1
halfpages="`let DIVISION=$pages/2; echo $DIVISION`"
incr="$(echo "scale=0; $halfpages+1" |bc -l)"
dividedby4="$(echo "scale=0; $pages/4" |bc -l)"
lastupperpage="$(echo "scale=0; $pages-$dividedby4" |bc -l)"
u="u"
for ((x=$pages, y=1, z=$halfpages, w=$incr;x>=4, y<=4, z>=$lastupperpage, w<=$lastupperpage;x--, y++, z--, w++)); do echo "$x$u $y$u;$z $w"; done | tr ";" "\n" | tr " " "," | tr "\n" ","
exit 0
但是我只能生产:
16u,1u,8,9,15u,2u,7,10,14u,3u,6,11,13u,4u,5,12
而不是正确的:
1u,16u,8,9,15u,2u,10,7,3u,14u,6,11,13u,4u,12,5
我传递给多价jar
我附上一张 A6 横跨 A4 的正确拼版图片,以显示正确的拼版顺序
我试图获得的是一种将整本 A6 书强加到 A4 页面上的方法一包含所有页面的签名(不是 8 页拼版),为了剪裁 A4 页的一半,将两半合在一起,将获得的纸张反转,剪裁一半并在左边缘涂上胶水以应用封面
要执行此任务,我需要或从头开始重新考虑我的脚本,或找到一种通过固定模式(交换、不交换、不交换、交换)交换列中字段的方法,以纠正我的脚本产生的错误顺序
编辑
解决了使用以下语法将脚本的标准输出发送到 awk 的问题:
awk -F "," '{
print $2 "," $1;
getline; print;
getline; print;
getline; print $2 "," $1
}'
答案1
以下脚本是获取所需输出的更简洁的方法。
#!/usr/bin/env bash
(($# == 0)) && {
echo "Usage: $0 <page_count>"
exit 1
} >&2
# nTotal = $1 rounded up to a multiple 8
nTotal=$(($1 + 7))
nTotal=$((nTotal - nTotal % 8))
nHalf=$((nTotal / 2))
nQuarter=$((nTotal / 4))
# print page numbers in groups of 4, 2 groups at a time
for ((x=0; x < nQuarter; x+=2)); do
printf '%du,%du\n%d,%d\n' \
$((x + 1)) $((nTotal - x)) $((nHalf - x)) $((nHalf + x + 1))
printf '%du,%du\n%d,%d\n' \
$((nTotal - (x + 1))) $((x + 2)) \
$((nHalf + x + 2)) $((nHalf - x - 1))
done
例子
$ ./imposition8 16
1u,16u
8,9
15u,2u
10,7
3u,14u
6,11
13u,4u
12,5
我重写了你的脚本,因为原来的脚本有几个问题。
您使用了不
sh
兼容的bash
特定语法,因此我更正了 shebang 行以匹配。整个事情可以用 pure 来完成
bash
。使用多次tr
调用、外部调用awk
和bc
是低效的。特别是,您应该知道,bash
甚至 POSIX 兼容的也sh
可以在内部进行数学运算。
答案2
这是一个干净利落地完成的脚本(希望如此)..我不熟悉打印/装订方法,所以我不确定排序是否正确,但它肯定是从中心向外工作的...我只是不知道不知道您需要的折叠/切割顺序(超出您的 16 页示例)...我已经提供了 24 页输出示例。
pages=${1:-16}
pagesPerSheet=4
sheets=$(( (pages/pagesPerSheet)
+((pages%pagesPerSheet)>0) ))
pagesTot=$((sheets*pagesPerSheet))
Ob=0 # overall begin
Ox=$((pagesTot+1)) # overall max
Hb=$((Ox/2)) # 2nd Half begin
hx=$((Hb+1)) # 1st half max
for ((s=sheets;s>0;s-=2)) ;do
printf '%su,%su,%s,%s,%su,%su,%s,%s%s' \
$((Ob+=1)) $((Ox-=1)) \
$((hx-=1)) $((Hb+=1)) \
$((Ox-=1)) $((Ob+=1)) \
$((Hb+=1)) $((hx-=1)) \
$(((s>2)) && echo ,)
done; echo
输出
# 16 page
1u,16u,8,9,15u,2u,10,7,3u,14u,6,11,13u,4u,12,5
# 24 page
1u,24u,12,13,23u,2u,14,11,3u,22u,10,15,21u,4u,16,9,5u,20u,8,17,19u,6u,18,7
此代码片段打印图形视图
Ob=0 # overall begin
Ox=$((pagesTot+1)) # overall max
Hb=$((Ox/2)) # 2nd Half begin
hx=$((Hb+1)) # 1st half max
for ((s=sheets;s>0;s-=2)) ;do
printf '%2su %2su | %2su %2su\n%2s %2s | %2s %2s\n------- -------\n' \
$((Ob+=1)) $((Ox-=1)) $((Ox-=1)) $((Ob+=1)) \
$((hx-=1)) $((Hb+=1)) $((Hb+=1)) $((hx-=1))
done
输出
# 16 page
1u 16u | 15u 2u
8 9 | 10 7
------- -------
3u 14u | 13u 4u
6 11 | 12 5
------- -------
# 24 page
1u 24u | 23u 2u
12 13 | 14 11
------- -------
3u 22u | 21u 4u
10 15 | 16 9
------- -------
5u 20u | 19u 6u
8 17 | 18 7
------- -------
答案3
我理解导出公式的愿望,但是从维护的角度来看,使用这样的公式不是更容易,因此更好:
#!/bin/bash
arr=(1 16 8 9 15 2 10 7 3 14 6 11 13 4 12 5)
for i in {0..3}; do
for n in ${arr[*]}; do
echo -n $((n+16*i))","
done
echo
done | sed -r 's/([^,]+,[^,]+),/\1\n/g'
或者模式不会像这样重复:
1,16
8,9
15,2
10,7
3,14
6,11
13,4
12,5
17,32
24,25
31,18
26,23
19,30
22,27
29,20
28,21
...