最后的逗号在Perl,列表

在列表中的项目在Perl编程语言的分离操作员的逗号 ,. 这里是一个例子 代码,创造阵列,这是3单元:

▶ Run
#!/usr/bin/perl

my @arr = ('one', 'two', 'three');

Perl,在对比,例如,java允许指定一个逗号。 这个代码创建一个 同阵列如前面的例子:

▶ Run
#!/usr/bin/perl

my @arr = ('one', 'two', 'three',);

这一阵列包括三个元素。 事实上,在结束有一个小数点没有任何影响。 你的 将表明,存在一个逗号在列表的最后添加 undef 作为最后的价值,但不, 这是不会发生。 如果有一个逗号在列表的最后或没有—这并不影响如何Perl interpreterpath这个名单。

建议

Perl编程语言无论如何—有没有在清单最后的逗号或者没有,但程序 书面的,不仅要了解Perl,但是可以理解的人。 因此,有以下建议, 如果你按照它的代码变得有点更加容易阅读并容易一点改变。

建议如下:

  • 如果列表是写到一串,最后的逗号应该不
  • 如果每个列表中的项目是编写一个单独一行,此后的最后一件应该是一个逗号

这项建议如下,

  • 如果在这个过程表的变化,用来编写一线,以及记录的价值在弦,然后你需要添加后的逗号
  • 如果一个多行列创建一个列表中的一线,最后的逗号,是有必要删除

这里的一个例子是代码,它遵守了这一建议:

▶ Run
#!/usr/bin/perl

my @arr1 = ('one', 'two', 'three');

my @arr2 = (
    'one',
    'two',
    'three',
);

my %h = (
    a => 1,
    b => 2,
);

如果列表中,每一元的,这是记录在线当然还有逗号,你需要添加另一种元素 在结束清单,然后,差异将包括一个远程线路和两个补充:

diff --git a/script.pl b/script.pl
index 5634af0..eabe2f1 100644
--- a/script.pl
+++ b/script.pl
@@ -3,5 +3,6 @@
 my @arr = (
     'one',
     'two',
-    'three'
+    'three',
+    'four'
 );

如果该建议是观察和结束的这个名单是最后的逗号,差异包括一个清楚 行:

diff --git a/script.pl b/script.pl
index 8575677..82b3adf 100644
--- a/script.pl
+++ b/script.pl
@@ -4,4 +4,5 @@ my @arr = (
     'one',
     'two',
     'three',
+    'four',
 );

其他文章