Perl：无法根据具体要求使用Text :: Wrap：wrap（）

Question

我想将列号限制为45个字符。 我正在使用Text::Wrap:wrap如下所示。

$Text::Wrap::columns = 44;
print FOUT wrap('','' ,<FIN>);

它使所有的colums成为44个字符，没有断字。 但它在开始时减少了一些线路的空间。

使用wrap()之前的文本：

EVENTS: KINJHK QDFMED QDFMED
        QDFMED KINJHK QDFMED
        KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
         QDFMED42 KINJHK524 MBCXZ
         56.321 ILOLKI 421

使用wrap()后的TeXt

EVENTS: KINJHK QDFMED QDFMED
      QDFMED KINJHK QDFMED
      KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
      QDFMED42 KINJHK524 MBCXZ
      56.321 ILOLKI 421

例如，在EVENTS部分中，空格在QDFMED KINJHK QDFMED线和下面的线之前减少。 但我希望在使用wrap()方法后不应该干扰对齐。

我尝试了很多使用这种包装的方法，但没有用。 可以请任何帮助我。

谢谢。 可见。

Answer 1

您使用的是哪个版本的Text :: Wrap模块？ 使用2009.0305

#! /usr/bin/env perl

use strict;
use warnings;

use Text::Wrap;

# demo only
*FIN = *DATA;
*FOUT = *STDOUT;

$Text::Wrap::columns = 44;
print FOUT wrap('', '', <FIN>);

__DATA__
EVENTS: KINJHK QDFMED QDFMED
        QDFMED KINJHK QDFMED
        KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
         QDFMED42 KINJHK524 MBCXZ
         56.321 ILOLKI 421

产生你想要的输出，但不减少缩进。

EVENTS: KINJHK QDFMED QDFMED
        QDFMED KINJHK QDFMED
        KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
         QDFMED42 KINJHK524 MBCXZ
         56.321 ILOLKI 421

注意：代码中的所有空格都是空格字符，没有TAB。 但是，用前导TAB字符替换空格对输出没有影响。

也许您的代码中还有一些其他重要的上下文我们还不知道。