Stdin Linienlänge abschneiden?

Question

Ich habe einige Protokolldateien analysiert und festgestellt, dass einige der Zeilen zu lang sind, um in einer Zeile angezeigt zu werden, sodass Terminal.app sie in der nächsten Zeile umschließt. Ich habe jedoch nach einer Möglichkeit gesucht, eine Zeile nach einer bestimmten Anzahl von Zeichen abzuschneiden, so dass Terminal nicht umgebrochen wird, wodurch das Erkennen von Mustern wesentlich erleichtert wird.

Ich schrieb einen kleinen Perl-Skript, dies zu tun:

#!/usr/bin/perl 

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

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

Aber ich habe das Gefühl, dass diese Funktionalität wahrscheinlich in einige anderen Tools gebaut ist, dass ich weiß nicht, gerade genug, um zu (sed?) Verwenden Sie für diese Aufgabe.

Also meine Frage eine Art umgekehrte Frage: Wie trenne ich eine Zeile von stdin OHNE ein Programm zu schreiben, um es zu tun?

Answer 1

Rohrausgang:

cut -b 1-LIMIT 

LIMIT Wo die Linienbreite gewünscht ist.

Answer 2

Eine andere Taktik, die ich zum Anzeigen von Protokolldateien mit sehr langen Zeilen verwende, besteht darin, die Datei nach "weniger -S" zu leiten. Die Option -S für weniger Zeilen druckt Zeilen ohne Umbruch und Sie können den verborgenen Teil von langen Zeilen anzeigen, indem Sie die Nach-rechts-Taste drücken.

Answer 3

Nicht gerade die Frage zu beantworten, aber wenn man mit Perl halten wollen und verwenden Sie einen Einzeiler, eine Möglichkeit ist:

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

wo 25 die Leitungslänge erwünscht ist.

Answer 4

Der üblicher Weg, dies zu tun

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

golfed (für 5.10) wäre:

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

(Denken Sie nicht, es als Programmierung, eine Befehlszeile daran denken, wie mit Werkzeug mit einer großen Anzahl von Optionen.) (Ja, die python Referenz ist beabsichtigt.)

Answer 5

Eine Korn-Shell-Lösung (auf 70 Zeichen abgeschnitten - einfach zu parametrisieren):

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

Answer 6

Sie können eine gebundene Variable verwenden, dass Clips seinen Inhalt auf eine feste Länge:

#! /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

Dies ist nicht genau das, was Sie fragen, aber GNU Screen (mit OS X enthalten, wenn Ich erinnere mich richtig, und üblich auf anderen * nix-Systemen) können Sie Zeilenumbruch ein-/ausschalten (Ca r und Ca Cr). Auf diese Weise können Sie einfach die Größe Ihres Terminals ändern, anstatt die Daten durch ein Skript zu leiten.

Bildschirm gibt Ihnen im Grunde "virtuelle" Terminals innerhalb einer Toplevel-Terminal-Anwendung.

Answer 8

use strict; 
use warnings 
use String::FixedLen; 

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

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

Answer 9

Wenn ich den Punkt bin fehlt, die UNIX „fold“ wurde Befehl ausgelegt, dass genau das zu tun:

$ 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