Mio Project!

ブロック

Perl では、K&Rスタイル を使用するとです。

配列の小括弧の場合

# 推奨　（K&R Style）
my @fruits = (
    'apple',
    'orange',
    'banana',
);

# 非推奨　（BSD Style）
my @fruits =
(
    'apple',
    'orange',
    'banana',
);

制御構文の中括弧の場合

# 推奨　（K&R Style）
foreach my $i (1..9) {
    foreach my $j (1..9) {
        print "[$i - $j]\n";
    }
}

# 非推奨　（BSD Style）
foreach my $i (1..9)
{
    foreach my $j (1..9)
    {
        print "[$i - $j]\n";
    }
}

# 非推奨　（GNU Style）
foreach my $i (1..9)
  {
    foreach my $j (1..9)
      {
        print "[$i - $j]\n";
      }
  }

mapブロックの中括弧の場合

# 推奨
my @clean_tag_str
    = map {
        my $str = $_;
        $str =~ s/</&lt;/gm;
        $str =~ s/>/&gt;/gm;
        $str;
    } @raw_tag_str;

# 非推奨
my @clean_tag_str
    = map { $my str = $_; $str =~ s/</&lt;/gm; $str =~ s/>/&gt;/gm; $str; }
@raw_tag_str;

これは、自分は守れていた。ってか、Perl に限らず、他のどんな言語でもその言語でのコーディングスタイルを無視して K&Rスタイル を多用する私って・・・。

インデント

Perlでは、インデントの幅は4列にするとです。

# 推奨　（タブ幅4）
sub new {
    my $class = shift;
    my $name = shift;
    return bless {
        name => $name,
    }, $class;
}

# 非推奨　（タブ幅2）
sub new {
  my $class = shift;
  my $name = shift;
  return bless {
    name => $name,
  }, $class;
}

# 非推奨　（タブ幅8）
sub new {
        my $class = shift;
        my $name = shift;
        return bless {
                name => $name,
        }, $class;
}

タブ幅2だと、すっごく読みづらいですね。かといって、タブ幅8だとワイドのディスプレイじゃなきゃ、しんどそうです。

#####コメント#####

本日のツッコミ

tako - 2010/05/16 (日) 17:43

僕も主にK&Rスタイルです…。
個人的に一番好きなスタイルですお。