
我想產生以下頁面清單(用於拼版工作); (頁數是可變的,但我使用 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
...