perltidy格式复杂如果

时间:2012-11-15 09:42:36

标签: perl perl-tidy

如何配置perltidy以格式化if if语句:

if (
    ('this is an example' =~ /an.*example/ and 1 * 2 * 3 == 6) or
    ('hello world' =~ /world/ and 6 = 3 * 2 * 1)
) {
    print "hello\n";
}

或者像这样

if (
    ('this is an example' =~ /an.*example/ and 1 * 2 * 3 == 6)
    or ('hello world' =~ /world/ and 6 == 3 * 2 * 1)
) {
    print "hello\n";
}

Edit1:perltidyrc

--maximum-line-length=100
--indent-columns=4
--default-tabsize=4
--continuation-indentation=4
--closing-token-indentation=0

--no-indent-closing-brace

--paren-tightness=2
--square-bracket-tightness=2
--block-brace-tightness=0

--trim-qw

--nospace-terminal-semicolon
--nospace-for-semicolon

--indent-spaced-block-comments
--ignore-side-comment-lengths

--cuddled-else

--no-opening-brace-on-new-line
--no-opening-sub-brace-on-new-line
--no-opening-anonymous-sub-brace-on-new-line
--no-brace-left-and-indent

--blanks-before-comments
--blank-lines-before-subs=1
--blanks-before-blocks
--maximum-consecutive-blank-lines=1

Edit2:我们的想法是在第一个(之后以及最后一个){一起换行。如果无法做到这一点,我们将不胜感激任何有关更好格式化的建议。

3 个答案:

答案 0 :(得分:4)

perltidy的默认样式是尽可能遵循Perl Style Guide。这导致了这个输出:

if (   ( 'this is an example' =~ /an.*example/ and 1 * 2 * 3 == 6 )
    or ( 'hello world' =~ /world/ and 6 == 3 * 2 * 1 ) )
{
    print "hello\n";
}

您可以控制花括号是否在新行上。您可以控制括号的紧密度。但是,您无法控制代码块中括号的新行。

默认样式尽可能接近您想要的输出。

答案 1 :(得分:2)

如果它长得令人讨厌,一个想法可能是用-l=n来限制每一行的最大长度,其中n是每行的最大长度:

$ cat perltidy_test.pl
if (
    ('this is an example' =~ /an.*example/ and 1 * 2 * 3 == 6) or('hello world' =~ /world/ and 6 = 3 * 2 * 1)
) {
    print "hello\n";
}

$ perltidy -l=60 perltidy_test.pl
$ cat pertidy_test.pl.tdy
if (
    (
        'this is an example' =~ /an.*example/
        and 1 * 2 * 3 == 6
    )
    or ( 'hello world' =~ /world/ and 6 == 3 * 2 * 1 )
  )
{
    print "hello\n";
}

答案 2 :(得分:0)

$ perltidy -bli -wba ='或'perltidy_test.pl

适用于此示例......