Penggunaan Referensi Array yang Berbeda
Penggunaan variabel referensi array untuk berbagai tujuan ditunjukkan sebagai berikut:
Variabel susunan | Variabel referensi array | Tujuan |
@Himpunan | @{ $ref_array } | Ini digunakan untuk merujuk ke semua nilai array. |
skalar @array | skalar @ref_array | Ini digunakan untuk menghitung jumlah total array. |
$#array | $#ref_array | Ini digunakan untuk menentukan indeks terbesar. |
$array[indeks] | $tef_array->[indeks] | Ini digunakan untuk merujuk pada elemen tertentu dari array. |
Penggunaan Referensi Array Perl
Berbagai penggunaan variabel referensi array Perl ditunjukkan pada bagian tutorial ini.
Contoh 1: Buat Referensi Array
Buat file Perl dengan skrip berikut yang mendeklarasikan array yang terdiri dari empat nilai string dan variabel referensi dari array ini. Variabel referensi menyimpan lokasi memori array utama dan kedua variabel berbagi lokasi yang sama. Isi variabel referensi dan array utama dicetak nanti.
#!/usr/bin/Perl
gunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
gunakan Data::Dumper ;
#Deklarasikan array string
-ku @ orang yg tersesat = ( 'Perl' , 'Jawa' , 'Pesta' , 'Piton' ) ;
#Buat referensi variabel array
$ref_array saya = \ @ orang yg tersesat ;
mengatakan 'Isi referensi array adalah $ref_array' ;
mengatakan 'Nilai array yang menggunakan variabel Dumber adalah: ' ;
#Cetak variabel referensi dengan variabel Dumper
mencetak Pembuangan $ref_array ;
Keluaran:
Output berikut muncul saat menjalankan skrip:
Contoh 2: Perbarui Array setelah Membuat Referensi
Buat file Perl dengan skrip berikut yang menunjukkan bahwa jika ada elemen array utama yang diubah, nilai yang sesuai dari variabel array referensi juga berubah pada saat yang bersamaan. Semua nilai array utama dicetak sebelum memperbarui nilai array apa pun dan semua nilai array referensi dicetak setelah memperbarui elemen kedua menggunakan variabel “dump”.
#!/usr/bin/Perl
gunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
gunakan Data::Dumper ;
#Deklarasikan array string
-ku @ orang yg tersesat = ( 'Perl' , 'Jawa' , 'Pesta' , 'Piton' ) ;
mengatakan 'Nilai array utama adalah:' ;
#Cetak variabel referensi dengan variabel Dumper
mencetak Tempat sampah \ @ orang yg tersesat ;
#Buat referensi variabel array
$ref_array saya = \ @ orang yg tersesat ;
#Perbarui elemen ke-2 dari array
$strarr [ 1 ] = 'C++' ;
mengatakan 'Nilai Referensi Array (setelah memperbarui array utama) adalah: ' ;
#Cetak variabel referensi dengan variabel Dumper
mencetak Pembuangan $ref_array ;
Keluaran:
Output berikut muncul setelah menjalankan skrip. Berdasarkan output, elemen kedua diubah menjadi “C++” dalam array referensi karena elemen kedua dari array utama diperbarui dengan nilai “C++”:
Contoh 3: Meneruskan Referensi Array ke dalam Subrutin
Buat file Perl dengan skrip berikut di mana variabel referensi array dikirim sebagai argumen subrutin. Nilai indeks ketiga dari array diperbarui menggunakan variabel referensi di dalam subrutin. Nilai array utama dicetak sebelum dan sesudah memperbarui indeks ketiga dari variabel referensi menggunakan variabel “dump”.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
gunakan Data::Dumper ;
#Deklarasikan array angka
-ku @ angka = ( 67 , 3.4 , 90 , 12 , 39 ) ;
mengatakan 'Nilai array utama sebelum pembaruan:' ;
mencetak Tempat sampah \ @ angka ;
#Lewati array sebagai referensi ke dalam subrutin
baca_array ( \ @ angka ) ;
#Deklarasikan subrutin untuk mengubah nilai array
sub read_array
{
#Tentukan variabel referensi array
$arr_ref saya = $_ [ 0 ] ;
#Perbarui elemen ketiga dari array
$arr_ref- > [ 2 ] = 99 ;
}
mengatakan 'Nilai array utama setelah pembaruan:' ;
mencetak Tempat sampah \ @ angka ;
Keluaran:
Output berikut muncul setelah menjalankan skrip. Elemen ketiga dari array adalah 90 dan nilai ini diubah menjadi 99 menggunakan variabel referensi array. Elemen ketiga dari array asli juga diperbarui sebesar 99 karena kedua variabel berbagi lokasi yang sama:
Kesimpulan
Metode mengakses atau memperbarui nilai array dengan membuat variabel referensi array ditunjukkan dalam tutorial ini. Pengguna Perl akan mendapatkan konsep yang jelas tentang penggunaan variabel referensi array Perl setelah membaca tutorial ini.