如何截断 STDIN 行长度？

Question

我一直在解析一些日志文件，发现有些行太长而无法在一行上显示，因此 Terminal.app 将它们包装到下一行。但是，我一直在寻找一种方法来在一定数量的字符之后截断一行，这样终端就不会换行，从而更容易发现模式。

为此我编写了一个小的 Perl 脚本：

#!/usr/bin/perl

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

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

但我有一种感觉，这个功能可能内置在其他一些工具（sed？）中，我只是不太了解如何用于这项任务。

所以我的问题是一个相反的问题：如何在不编写程序的情况下截断一行标准输入？

Answer 1

管道输出到：

cut -b 1-LIMIT

其中 LIMIT 是所需的线宽。

Answer 2

我用于查看具有很长行的日志文件的另一种策略是将文件通过管道传输到“less -S”。 less 的 -S 选项将打印不换行的行，您可以通过按右箭头键查看长行的隐藏部分。

Answer 3

不完全回答这个问题，但如果你想坚持使用 Perl 并使用单线，一种可能性是：

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

其中 25 是所需的行长。

Answer 4

通常的做法是

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

打高尔夫球（适用于 5.10）：

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

（不要将其视为编程，将其视为使用具有大量选项的命令行工具。）（是的，python 引用是故意的。）

Answer 5

Korn shell 解决方案（截断为 70 个字符 - 但易于参数化）：

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

Answer 6

您可以使用绑定变量将其内容剪辑为固定长度：

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

这并不完全符合您的要求，但 GNU Screen（包含在 OS X 中，如果我没记错的话，并且在其他 *nix 系统上很常见）可以让您打开/关闭换行（C r 和钙铬）。这样，您可以简单地调整终端的大小，而不是通过脚本来传递内容。

屏幕基本上在一个顶级终端应用程序中为您提供“虚拟”终端。

Answer 8

use strict;
use warnings
use String::FixedLen;

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

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

Answer 9

除非我没有抓住重点，否则 UNIX 的“折叠”命令就是为了做到这一点而设计的：

$ 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