repita duas vezes cada par de strings em um ciclo

2

Eu preciso passar para pdftk, uma lista de argumentos constituída por seqüências repetidas duas vezes como:

A1-2 B1-2 A3-4 B3-4 A5-6 B5-6... e assim por diante ...

Consegui alcançar isso com essa solução alternativa

for ((x=1, y=2;x>=18, y<=18;x++, y++)); do echo "A$x-$y B$x-$y "; done| awk 'NR %2==1 {print $1, $2} ' | tr '\n' ' '

que dá:

A1-2 B1-2 A3-4 B3-4 A5-6 B5-6 A7-8 B7-8 A9-10 B9-10 A11-12 B11-12 A13-14 B13-14 A15- 16 B15-16 A17-18 B17-18

mas estou insatisfeito e estou procurando uma maneira adequada, mais elegante e melhor para realizar essa tarefa

    
por Dingo 11.04.2012 / 14:17

3 respostas

5
for ((x=1; x<=18; x+=2)); do echo -n "A$x-$((x+1)) B$x-$((x+1)) "; done
    
por 11.04.2012 / 14:21
5

ou até mesmo awk puro:

awk 'BEGIN {for (i=1; i<19; i+=2) printf "A"i"-"i+1 " B"i"-"i+1" "}'
    
por 11.04.2012 / 14:27
1

Com apenas bash:

pdftk input.pdf cat $(for ((x=1; x<18; x+=2)); do echo {A,B}$x-$((x+1)); done) output output.pdf

Com utilitários GNU (Linux ou Cygwin):

pdftk input.pdf cat $(seq 1 2 17 | awk '{$1 = $1 "-" ($1+1); print "A" $1; print "B" $1}') output output.pdf

com o Perl:

pdftk input.pdf cat $(perl -e 'print map {"A$_ B$_ "} map {(2*$_-1) . "-" . (2*$_)} (1..9)') output output.pdf
    
por 12.04.2012 / 00:34