views:

1158

answers:

8

I've been parsing through some log files and I've found that some of the lines are too long to display on one line so Terminal.app kindly wraps them onto the next line. However, I've been looking for a way to truncate a line after a certain number of characters so that Terminal doesn't wrap, making it much easier to spot patterns.

I wrote a small Perl script to do this:

#!/usr/bin/perl

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

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

But I have a feeling that this functionality is probably built into some other tools (sed?) that I just don't know enough about to use for this task.

So my question sort of a reverse question: how do I truncate a line of stdin WITHOUT writing a program to do it?

+6  A: 

Pipe output to:

cut -b 1-LIMIT

Where LIMIT is the desired line width.

Andrew Medico
+9  A: 

Another tactic I use for viewing log files with very long lines is to pipe the file to "less -S". The -S option for less will print lines without wrapping, and you can view the hidden part of long lines by pressing the right-arrow key.

Andrew Medico
+2  A: 

Not exactly answering the question, but if you want to stick with Perl and use a one-liner, a possibility is:

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

where 25 is the desired line length.

Yanick
Clever regex, but I am/was looking to get away from programmatic solutions.
Kyle Cronin
A: 

The usual way to do this would be

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

Golfed (for 5.10):

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

(Don't think of it as programming, think of it as using a command line tool with a huge number of options.) (Yes, the python reference is intentional.)

ysth
A: 

A Korn shell solution (truncating to 70 chars - easy to parameterize though):

typeset -L70 line
while read line
do
  print $line
done
runrig
A: 

You can use a tied variable that clips its contents to a fixed length:

#! /usr/bin/perl -w

use strict;
use warnings
use String::FixedLen;

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

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

This isn't exactly what you're asking for, but GNU Screen (included with OS X, if I recall correctly, and common on other *nix systems) lets you turn line wrapping on/off (C-a r and C-a C-r). That way, you can simply resize your terminal instead of piping stuff through a script.

Screen basically gives you "virtual" terminals within one toplevel terminal application.

CapnNefarious
A: 

use strict; use warnings use String::FixedLen;

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

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