如何截断 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)'

Golfed（对于 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 （包含在操作系统中） X（如果我没记错的话，在其他 *nix 系统上很常见）可以让您打开/关闭换行（Car 和 Ca Cr）。 这样，您可以简单地调整终端的大小，而不用通过脚本传递内容。

Screen 基本上为您提供了一个顶级终端应用程序中的“虚拟”终端。

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 的“fold”命令就是为了做到这一点而设计的：

$ 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