perl - 如何防止 PerlTidy 对齐分配但继续添加单个空格？

Question

如何防止 PerlTidy 对齐分配但继续添加单个空格？

这个问题类似于How can I prevent PerlTidy from aligning my assignments?但我希望在指示的地方添加单个空格。由于这个 -naws 开关对我不起作用。我只是不想插入多个空格。可以使用 perltidy 或其他工具吗？

Perl 整洁的变化:

my $a    = 1;
my $aa = 2;
my $aaa= 3;

进入

my $a   = 1;
my $aa  = 2;
my $aaa = 3;

使用 -naws 它保持不变:

my $a    = 1;
my $aa = 2;
my $aaa= 3;

我希望此代码的格式为:

my $a = 1;
my $aa = 2;
my $aaa = 3;

Answer 1

有一个未记录的标志--no-valign，它似乎可以在不修改 perltidy 源代码的情况下实现两全其美。

正如您所指出的，--no-add-whitespace 过于激进，会阻止在其他所需位置(运算符周围等)添加空格。使用 --no-valign perltidy 仍在将 my ($arg)=@_; 更正为 my ($arg) = @_; code> 但不会尝试跨行垂直对齐运算符。该设置不会完全禁用垂直对齐器，因此您仍然可以在其他地方获得一些好处(例如侧面注释)。

到目前为止，我发现的唯一问题是侧面注释 block 的第一个侧面注释与后续注释不一致:

my @DISAGREE_NONFATAL = grep { exists $warnings::Offsets{$_} } (
    'newline', # stat on nonexistent file with a newline in it
    'experimental', # no reason for these to be fatal
    'deprecated',   # unfortunately can't make these fatal
    'portable',     # everything worked fine here, just may not elsewhere
);

它仅尊重--minimum-space-to-comment。我不确定为什么后续(第三和第四)行可以正常工作。我不太使用旁注，因此这不是一个主要问题(您可以在此类 block 上使用 --format-skipping)。