截断标准行长度?

管道输出到:

cut -b 1-LIMIT

其中LIMIT是所需的线宽。

不完全回答这个问题,但如果您想坚持使用Perl并使用一行程序,则有可能:

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

通常的做法是

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

Golfed(适用于5.10):

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

(不要将其视为编程,而应将其视为使用具有大量选项的命令行工具。) python

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

可以使用绑定变量将其内容剪裁为固定长度:

#! /usr/bin/perl -w

use strict;
use warnings
use String::FixedLen;

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

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

这不是你想要的,但是 GNU Screen (如果我没记错的话,OSX附带,在其他*nix系统上很常见)允许您打开/关闭换行(C-a r和C-a C-r)。通过这种方式,您可以简单地调整终端的大小,而不是通过脚本管道传输内容。

use strict;
use warnings
use String::FixedLen;

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

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

除非我没有抓住要点,否则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