Perl 编程格式指南

空白

    foo(@bar) ;     # 错
    foo(@bar);      # 对

    my $foo   = 1;
    my $bar   = 2;
    my $xyzzy = 3;

    open(FILE, $fh)   or die $!;
    open(FILE2, $fh2) or die $!;

    $rot13 =~ tr[abcedfghijklmnopqrstuvwxyz]
                [nopqrstuvwxyzabcdefghijklm];

    # note we use a-mn-z instead of a-z,
    # for readability
    $rot13 =~ tr[a-mn-z]
                [n-za-m];

    # this is my function!  这是我的函数
    sub foo {
        my (@data) = @_;
        my $obj = new Constructor;
        my ($var1, $var2);

        $obj->setFoo($data[1]);
        $var1 = $obj->getFoo(1);
        $var2 = $obj->getFoo($var1);

        display($var1, $var2);

        return($data[0]);
    }

    print 1;

圆括号

    for(@list)         # 错
    for (@list)        # 对

    my ($ref)          # 对
    my($ref)          # 首选

    localtime ($time); # 错
    localtime($time);  # 对

    my @array = ('a', 'b', 'c');
    my ($first_element) = @array;           # a
    my ($first_element) = ('a', 'b', 'c');  # a
    my $element_count  = @array;            # 3
    my $last_element   = ('a', 'b', 'c');   # c

    for ( map { [ $_, 1 ] } @list )     # 可以
    for ( @list )                       # 也还可以。

    @list = qw(
        bar
        baz
    );              # 正确

    if ($foo && $bar && $baz
         && $buz && $xyzzy
    ) {
        print $foo;
    }

    print foo(@bar), baz(@buz) if $xyzzy;

内容导航

• 第1页：Perl 编程格式指南
• 第2页：Perl 编程格式指南(2)
• 第3页：Perl 编程格式指南(3)
• 第4页：Perl 编程格式指南(4)
• 第5页：Perl 编程格式指南(5)
• 第6页：Perl 编程格式指南(6)
• 第7页：Perl 编程格式指南(7)
• 第8页：Perl 编程格式指南(8)