Saya tampaknya telah menemukan beberapa cara berbeda untuk menemukan ukuran array. Apa perbedaan antara ketiga metode ini?

my @arr = (2);
print scalar @arr; # First way to print array size

print $#arr; # Second way to print array size

my $arrSize = @arr;
print $arrSize; # Third way to print array size

Cara pertama dan ketiga adalah sama: mereka mengevaluasi sebuah array dalam konteks skalar. Saya akan menganggap ini sebagai cara standar untuk mendapatkan ukuran array.

Cara kedua sebenarnya mengembalikan indeks terakhir dari array, yang tidak (biasanya) sama dengan ukuran array.

Pertama, yang kedua tidak setara dengan dua lainnya. $#arraymengembalikan indeks terakhir array, yang lebih kecil dari ukuran array.

Dua lainnya hampir sama. Anda hanya menggunakan dua cara berbeda untuk membuat konteks skalar. Itu datang ke pertanyaan keterbacaan.

Saya pribadi lebih suka yang berikut ini:

say 0+@array;          # Represent @array as a number

Saya merasa lebih jelas daripada

say scalar(@array);    # Represent @array as a scalar

dan

my $size = @array;
say $size;

Yang terakhir terlihat cukup jelas sendirian seperti ini, tetapi saya menemukan bahwa garis tambahan menghilangkan kejelasan ketika bagian dari kode lain. Ini berguna untuk mengajarkan apa yang @arraydilakukan dalam konteks skalar, dan mungkin jika Anda ingin menggunakan $sizelebih dari sekali.

Ini mendapatkan ukuran dengan memaksa array ke dalam konteks skalar, di mana ia dievaluasi sebagai ukurannya:

print scalar @arr;

Ini adalah cara lain untuk memaksa array ke dalam konteks skalar, karena ia ditugaskan ke variabel skalar:

my $arrSize = @arr;

Ini mendapatkan indeks dari elemen terakhir dalam array, jadi sebenarnya ukuran minus 1 (dengan asumsi indeks mulai dari 0, yang dapat disesuaikan di Perl meskipun hal itu biasanya merupakan ide yang buruk):

print $#arr;

Yang terakhir ini tidak terlalu bagus untuk digunakan untuk mendapatkan ukuran array. Akan bermanfaat jika Anda hanya ingin mendapatkan elemen terakhir dari array:

my $lastElement = $arr[$#arr];

Juga, seperti yang Anda lihat di sini di Stack Overflow, konstruk ini tidak ditangani dengan benar oleh kebanyakan sintaksis ...

Untuk menggunakan cara kedua, tambahkan 1:

print $#arr + 1; # Second way to print array size

Ketiganya memberikan hasil yang sama jika kita sedikit memodifikasi yang kedua:

my @arr = (2, 4, 8, 10);

print "First result:\n";
print scalar @arr; 

print "\n\nSecond result:\n";
print $#arr + 1; # Shift numeration with +1 as it shows last index that starts with 0.

print "\n\nThird result:\n";
my $arrSize = @arr;
print $arrSize;

Contoh:

my @a = (undef, undef);
my $size = @a;

warn "Size: " . $#a;   # Size: 1. It's not the size
warn "Size: " . $size; # Size: 2

Bagian “Perl variable types” dari dokumentasi perlintro berisi

Variabel khusus $#arraymemberi tahu Anda indeks elemen terakhir array:

print $mixed[$#mixed];       # last element, prints 1.23

Anda mungkin tergoda untuk menggunakannya $#array + 1untuk memberi tahu Anda berapa banyak item yang ada dalam array. Jangan repot-repot. Seperti yang terjadi, menggunakan di @arraymana Perl mengharapkan untuk menemukan nilai skalar ("dalam konteks skalar") akan memberi Anda jumlah elemen dalam array:

if (@animals < 5) { ... }

The dokumentasi perldata juga mencakup ini dalam “nilai-nilai skalar” bagian .

Jika Anda mengevaluasi array dalam konteks skalar, ia mengembalikan panjang array. (Perhatikan bahwa ini tidak benar dari daftar, yang mengembalikan nilai terakhir, seperti operator koma C, atau fungsi bawaan, yang mengembalikan apa pun yang mereka inginkan). Berikut ini selalu benar:

scalar(@whatever) == $#whatever + 1;

Beberapa programmer memilih untuk menggunakan konversi eksplisit sehingga tidak ada keraguan:

$element_count = scalar(@whatever);

Sebelumnya di bagian yang sama mendokumentasikan cara mendapatkan indeks elemen terakhir array.

Panjang array adalah nilai skalar. Anda dapat menemukan panjang array @daysdengan mengevaluasi $#days, seperti pada csh. Namun, ini bukan panjang array; itu adalah subskrip dari elemen terakhir, yang merupakan nilai yang berbeda karena biasanya ada elemen ke-0.

Ada berbagai cara untuk mencetak ukuran array. Inilah arti dari semuanya: Katakanlah array kita adalahmy @arr = (3,4);

Metode 1: skalar

Ini adalah cara yang tepat untuk mendapatkan ukuran array.

print scalar @arr;  # prints size, here 2

Metode 2: Nomor indeks

$#arrmemberikan indeks terakhir dari sebuah array. jadi jika array berukuran 10 maka indeks terakhirnya adalah 9.

print $#arr;     # prints 1, as last index is 1
print $#arr + 1; # Add 1 to last index to get array size

Kami menambahkan 1 di sini mengingat array sebagai 0-diindeks . Tapi, jika bukan nol maka logika ini akan gagal .

perl -le 'local $[ = 4; my @arr=(3,4); print $#arr + 1;'   # prints 6

Contoh di atas mencetak 6, karena kami telah menetapkan indeks awal menjadi 4. Sekarang indeks akan menjadi 5 dan 6, dengan masing-masing elemen 3 dan 4.

Metode 3:

Ketika sebuah array digunakan dalam konteks skalar, maka ia mengembalikan ukuran array

my $size = @arr;
print $size;   # prints size, here 2

Sebenarnya metode 3 dan metode 1 sama.

Dari perldoc perldata , yang seharusnya aman untuk dikutip:

Berikut ini selalu benar:

scalar(@whatever) == $#whatever + 1;

Asalkan Anda tidak $ # apa pun ++ dan secara misterius meningkatkan ukuran atau array Anda.

Indeks array dimulai dengan 0.

dan

Anda dapat memangkas array menjadi kosong dengan menetapkan daftar nol () padanya. Berikut ini adalah setara:

    @whatever = ();
    $#whatever = -1;

Yang membawa saya ke apa yang saya cari yaitu cara mendeteksi array kosong. Saya menemukannya jika $ # kosong == -1;

Bagaimana int(@array)dengan itu mengancam argumen sebagai skalar.

Untuk menemukan ukuran array gunakan scalarkata kunci:

print scalar @array;

Untuk mengetahui indeks terakhir dari array ada $#(Perl default variabel). Ini memberikan indeks terakhir dari sebuah array. Ketika sebuah array dimulai dari 0, kita mendapatkan ukuran array dengan menambahkan satu ke $#:

print "$#array+1";

Contoh:

my @a = qw(1 3 5);
print scalar @a, "\n";
print $#a+1, "\n";

Keluaran:

3

3