Truncar la longitud de la línea stdin?

Question

He estado analizando algunos archivos de registro y he descubierto que algunas líneas son demasiado largas para mostrarlas en una línea, por lo que Terminal.app amablemente las envuelve en la siguiente línea. Sin embargo, he estado buscando una manera de truncar una línea después de una cierta cantidad de caracteres para que Terminal no se ajuste, lo que hace que sea mucho más fácil detectar patrones.

me escribió un pequeño script en Perl para hacer esto:

#!/usr/bin/perl 

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

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

Pero tengo la sensación de que esta funcionalidad está construido probablemente en algunas otras herramientas que yo no sé lo suficiente sobre a (SED?) usar para esta tarea.

Así que mi pregunta es una pregunta inversa: ¿cómo trunco ​​una línea de stdin SIN escribir un programa para hacerlo?

Answer 1

producción de tubos a:

cut -b 1-LIMIT 

Dónde límite es la anchura de la línea deseada.

Answer 2

Otra táctica que uso para ver archivos de registro con líneas muy largas es conectar el archivo a "menos -S". La opción -S para menos imprimirá las líneas sin envolver, y puede ver la parte oculta de las líneas largas presionando la tecla de la flecha hacia la derecha.

Answer 3

No exactamente responder a la pregunta, pero si quiere seguir con Perl y utilizar una sola línea, una posibilidad es:

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

, donde 25 es la longitud de la línea deseada.

Answer 4

La manera habitual de hacer esto sería

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

golfed (para 5.10):

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

(No pensar en ella como la programación, piensa en él como el uso de una línea de comandos herramienta con un gran número de opciones.) (Sí, la referencia python es intencional.)

Answer 5

Una solución de shell Korn (truncar a 70 caracteres - fácil de parametrizar):

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

Answer 6

Usted puede utilizar una variable ligada que clips de su contenido a una longitud fija:

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

Esto no es exactamente lo que están pidiendo, pero GNU Screen (incluido con OS X, si Recuerdo correctamente, y es común en otros sistemas * nix) le permite activar/desactivar el ajuste de línea (Ca r y Ca Cr). De esta manera, simplemente puede cambiar el tamaño de su terminal en lugar de canalizar cosas a través de un script.

La pantalla básicamente le proporciona terminales "virtuales" dentro de una aplicación de terminal de nivel.

Answer 8

use strict; 
use warnings 
use String::FixedLen; 

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

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

Answer 9

A menos que me falta el punto, el UNIX "pliegue" comando fue diseñado para hacer exactamente eso:

$ 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