Posso exibir um arquivo de texto em vários painéis verticais?

Question

Eu tenho um arquivo de texto com muitas linhas de 60 caracteres, onde faço uma pesquisa com o comando "/" para destacar os resultados. Gostaria de inspecionar visualmente esse longo arquivo com o texto realçado, mas em um layout de vários painéis, em vez de ter apenas texto nos primeiros 60 caracteres da janela do meu terminal. Por exemplo:

less file.txt
/CG <enter> #to find occurrences of token 'CG'

Em vez de ter linhas de 60 caracteres como esta:

xxxxxxxxxx
xxxxCGxxxx
xxxxxxxxxx
xxxxxxCGxx
xxxCGxxxxx
[...]

Eu gostaria de ter algo assim (aqui 4 painéis verticais):

xxxxxxCGxx|xxCGxxxxxx|xxCGxxxxxx|xxxxxxxxxx
xxxxxxxxxx|xxxxxxxxxx|xxxxxxxCGx|xxxxCGxxxx
xxxxCGxxxx|xxxxCGxxxx|xxxxxxxxxx|xxxxxxxxxx
xxxxxxxxxx|xxxxxxxxxx|xxxxxCGxxx|xxxCGxxCGx
xxCGxxxxxx|xxxxxxCGxx|xxxxxxxxxx|xxxxxxxxxx
[...]

Dessa forma, toda vez que eu clicar em "Page Down", eu rolaria 4x mais texto do que com um painel.

    

Answer 1

Isso é simples com um pouco de truque. É assim que eu fiz quando precisei de algo similar no passado (mas para fazer isso corretamente você precisa descobrir o total de linhas do seu arquivo primeiro e parar de capturar as linhas após o final das linhas, caso contrário você precisará ctrl-c para finalizar o loop e você perderá a última linha se você não tiver $ tot_lines% $ col_num == 0)

perl -lne '$|=1; $c1= $_; $c2=scalar <>; $c3=scalar <>; \
           chomp($c1, $c2, $c3); \
           print join("|", $c1, $c2, $c3); \
           ' \
           long_text_60_chars.txt \
| less

Esta é a resposta fácil em que as linhas de entrada se espalham.

[nota] você precisa unbuffer a impressão se você quiser passá-lo para less (devido à entrada esperando <> quando menos linhas do que o desejado <> )

Você se complica e quer que as linhas se espalhem por colunas, mas você precisa saber o tamanho das linhas de pager e o número total de linhas do seu arquivo. Para um pager de 50 linhas:

perl -lne 'BEGIN{$|=1; $max = 1301; $cl = 50; $pl = $cl*3; $pleft=$max % $pl; $cleft=$max % $cl; $pmax=$max - $pleft; $cmax=$max - $cleft;   print "cleft $cleft, pleft $pleft, pmax $pmax, cmax $cmax"}; if ($.<=$pmax){ @c1= ($_,map{$x=<>;chomp $x;$x} 2..$cl); @c2=map{$x=<>;chomp $x;$x} 1..$cl; @c3=map{$x=<>;chomp $x;$x} 1..$cl; foreach my $idx (0..($cl-1)){ print join("|", $c1[$idx], $c2[$idx], $c3[$idx]) }; print (q{=} x (3*60).qq{\n});  print "line $., pmax $pmax"; } else { print }'  long_text_60_chars_with_num_line.txt   | less

Eu coloquei muitas informações de depuração para que você possa adaptá-las às suas necessidades.

Aqui está uma versão humana amigável (mas copiar colar pode não funcionar)

perl -lne 'BEGIN{$|=1; \
          # max num lines (from wc -l) \
          $max=1301; \
          #lines per col \
          $cl=50; \
          # lines per pager \
          $pl=$cl*3; \
          # remainder lines for pager \
          $pleft=$max % $pl;  \
          # remainder lines for col \
          $cleft=$max % $cl;  \
          # max line for last full 3col page \
          $pmax=$max - $pleft;  \
          # max line for last full column \
          $cmax=$max - $cleft;  \
          # print info \
          print "cleft $cleft, pleft $pleft, pmax $pmax, cmax $cmax"};  \
          # END BEGIN \
          # START -n while LOOP \
          if ($.<=$pmax){ \
            # full 3col pages               \
            @c1= ($_,map{$x=<>;chomp $x;$x} 2..$cl); \
            @c2=map{$x=<>;chomp $x;$x} 1..$cl;  \
            @c3=map{$x=<>;chomp $x;$x} 1..$cl;  \
              foreach my $idx (0..($cl-1)){ \
                print join("|", $c1[$idx], $c2[$idx], $c3[$idx]) \
              }; \
            print (q{=} x (3*60).qq{\n}); \
            print "line $., pmax $pmax"; \
            } else { \
              # lazy approach: everyting else one column \
              print \
            }'  \
long_text_60_chars_with_num_line.txt  \
| less

    

Answer 2

Corte o arquivo em partes de linhas com tamanho de tela e paste junto com um delimitador de canais:

#!/bin/bash

working=/tmp/split.$$
pastetmp=/tmp/pasted.$$
screen_height=25
panes=4

rm -rf "$working" "$pastetmp"

mkdir -p "$working"
cd "$working"
split -l "$screen_height" "$1"

four=()
for file in * ; do
     four=("${four[@]}" "$file")
     if [ ${#four[@]} = "$panes" ] ; then
          paste -d'|' "${four[@]}" >> "$pastetmp"
          four=()
     fi
done

[ ${#four[@]} -gt 0 ] && paste -d'|' "${four[@]}" >> "$pastetmp"

less "$pastetmp"

Ligue para:

./script file.txt

Nota: não testado, mas você tem a ideia.