Skracać długość linii stdin?

Question

Przeglądałem niektóre pliki dziennika i odkryłem, że niektóre linie są zbyt długie, aby wyświetlić je w jednym wierszu, więc Terminal.app łaknie je na kolejną linię. Jednak szukałem sposobu na obcinanie linii po określonej liczbie znaków, aby terminal nie zawijał, co znacznie ułatwiłoby wykrywanie wzorców.

napisałem mały skrypt Perla, aby to zrobić:

#!/usr/bin/perl 

die("need max length\n") unless $#ARGV == 0; 

while (<STDIN>) 
{ 
    $_ = substr($_, 0, $ARGV[0]); 
    chomp($_); 
    print "$_\n"; 
} 

Ale mam wrażenie, że ta funkcja jest zbudowany prawdopodobnie w niektórych innych narzędzi, które po prostu nie wiem wystarczająco dużo o do? (SED) użyć do tego zadania.

Moje pytanie typu odwrotne pytanie: w jaki sposób skracać linię stdin BEZ pisania programu, aby to zrobić?

Answer 1

wyjście rury do:

cut -b 1-LIMIT 

ograniczają się pożądaną szerokość linii.

Answer 2

Inną taktyką, której używam do przeglądania plików dziennika z bardzo długimi liniami, jest przekierowanie pliku do "less -S". Opcja -S dla less powoduje drukowanie linii bez zawijania, a widok ukrytej części długich linii można wyświetlić, naciskając klawisz strzałki w prawo.

Answer 3

Niezupełnie odpowiadając na pytanie, ale jeśli chcesz, aby trzymać z Perl i użyć jednego-liner, możliwość jest:

$ perl -pe's/(?<=.{25}).*//' filename 

gdzie 25 jest pożądaną długość linii.

Answer 4

Zwykłym sposobem na to byłoby

perl -wlne'print substr($_,0,80)' 

grałem (na 5.10):

perl -nE'say/(.{0,80})/' 

(Nie myśleć o tym jak programowanie, pomyśl o tym, jak za pomocą wiersza polecenia narzędzie z ogromną liczbą opcji.) (Tak, odniesienie python jest zamierzone.)

Answer 5

Rozwiązanie powłoki Korn (obcinanie do 70 znaków - łatwe do sparametryzowania):

typeset -L70 line 
while read line 
do 
    print $line 
done 

Answer 6

Można użyć zmiennej wiązanej że klipy jego zawartość do stałej długości:

#! /usr/bin/perl -w 

use strict; 
use warnings 
use String::FixedLen; 

tie my $str, 'String::FixedLen', 4; 

while (defined($str = <>)) { 
    chomp; 
    print "$str\n"; 
} 

Answer 7

To nie jest dokładnie to, o co prosisz o, ale GNU Screen (dołączony OS X, jeśli Dobrze pamiętam i często w innych systemach * nix) pozwala włączyć/wyłączyć owijanie linii (Ca r i Ca Cr). W ten sposób można po prostu zmienić rozmiar terminalu, zamiast przeciągać przez skrypt.

Ekran w zasadzie daje "wirtualne" terminale w ramach jednej aplikacji terminalowej.

Answer 8

use strict; 
use warnings 
use String::FixedLen; 

tie my $str, 'String::FixedLen', 4; 

while (defined($str = <>)) { 
    chomp; 
    print "$str\n"; 
} 

Answer 9

chyba że jestem brakuje punktu, UNIX „spasować” polecenie zostało zaprojektowane, aby dokładnie to zrobić:

$ cat file 
the quick brown fox jumped over the lazy dog's back 

$ fold -w20 file 
the quick brown fox 
jumped over the lazy 
dog's back 

$ fold -w10 file 
the quick 
brown fox 
jumped ove 
r the lazy 
dog's bac 
k 

$ fold -s -w10 file 
the quick 
brown fox 
jumped 
over the 
lazy 
dog's back