Akhir koma di Perl, daftar

Item dalam daftar di Perl bahasa pemrograman yang dipisahkan dengan operator koma ,. Berikut ini adalah contoh kode yang menciptakan array yang merupakan 3 unsur:

▶ Run
#!/usr/bin/perl

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

Perl, berbeda dengan, misalnya, JSON memungkinkan anda untuk menentukan tanda koma pada akhir daftar. Kode ini menciptakan array yang sama seperti pada contoh sebelumnya:

▶ Run
#!/usr/bin/perl

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

Array ini terdiri dari tiga unsur. Fakta bahwa pada akhirnya ada titik desimal tidak memiliki efek. Anda akan menyarankan bahwa kehadiran koma di akhir daftar add undef sebagai nilai terakhir, tapi tidak ada, hal ini tidak terjadi. Jika ada koma di akhir list atau tidak — itu tidak mempengaruhi cara Perl interpreterpath daftar ini.

Rekomendasi

Bahasa pemrograman Perl pula — apakah ada di daftar akhir koma atau tidak, tetapi program menulis tidak hanya untuk memahami Perl, tetapi dalam rangka untuk dipahami oleh orang-orang. Oleh karena itu, ada rekomendasi berikut, jika anda mengikutinya, kode menjadi lebih mudah dibaca dan lebih mudah untuk berubah.

Rekomendasi berikut:

  • jika daftar ini ditulis untuk string, akhir koma tidak harus
  • jika masing-masing item daftar yang tertulis di baris yang terpisah, setelah elemen terakhir yang harus koma

Ini rekomendasi berikut yang

  • jika dalam daftar proses perubahan, yang digunakan untuk dituliskan dalam satu baris, dan tercatat dengan nilai dalam string, maka anda perlu menambahkan tanda koma
  • dan jika multiline daftar membuat daftar dalam satu baris, akhir koma ini diperlukan untuk menghapus

Berikut adalah contoh kode yang sesuai dengan rekomendasi ini:

▶ Run
#!/usr/bin/perl

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

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

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

Jika daftar, masing-masing unsur yang dicatat di baris tentu saja ada koma dan anda perlu untuk menambahkan elemen lain di akhir daftar, maka perbedaan akan terdiri dari satu remote baris dan dua menambahkan:

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'
 );

Jika rekomendasi diamati dan pada akhir dari daftar ini adalah akhir koma, diff terdiri dari satu langit line:

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',
 );

Artikel lainnya