susunan Perl

Penulis：Eve Cole Waktu Pembaruan：2024-12-26 11:48:01

Array Perl adalah variabel daftar yang menyimpan nilai skalar. Variabelnya bisa dari tipe yang berbeda.

Variabel array dimulai dengan @. Untuk mengakses elemen array, gunakan format $+nama variabel+[nilai indeks] untuk membaca.

Contoh

#!/usr/bin/Perl @hits = ( 25 , 30 , 40 ) ; @nama = ( " google " , " codercto " , " taobao " ) ; " $ hit [0] = $hit [0] n " ; " $ hit[1] = $ hit [1] n " ; " $ hit [2] = $hit [2] n " ; " $ nama[0] = $nama [0] n " ; cetak " $ nama[1] = $nama [1] n " ; cetak " $ nama[2] = $nama [2] n " ;

Dalam program ini, simbol $ di-escape dengan , sehingga menghasilkan output apa adanya.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = taobao

membuat susunan

Variabel array dimulai dengan simbol @ , dan elemen ditempatkan dalam tanda kurung. Anda juga dapat mendefinisikan array yang dimulai dengan qw .

 @array = (1, 2, 'Halo');@array = qw/Ini adalah array/;

Array kedua menggunakan operator qw// , yang mengembalikan daftar string dengan elemen array yang dipisahkan oleh spasi. Tentu saja, Anda juga dapat menggunakan beberapa baris untuk mendefinisikan sebuah array:

 @hari = qw/googletaobao...codercto/;

Anda juga dapat menetapkan nilai ke array berdasarkan indeks, sebagai berikut:

 $array[0] = 'Senin';...$array[6] = 'Minggu';

Akses elemen array

Untuk mengakses elemen array, gunakan format $+nama variabel+[nilai indeks] untuk membaca.

Contoh

@situs = qw/ google taobao codercto / ; cetak " $situs [0] n " ; " $situs [1] n " ; " $situs [2] n " ; " $sites [-1] n " ; # Angka negatif, dibaca dengan arah sebaliknya

 googletaobaocoderctocodercto

Nilai indeks array dimulai dari 0, yaitu 0 adalah elemen pertama, 1 adalah elemen kedua, dan seterusnya.

Bilangan negatif dibaca dari arah sebaliknya, -1 adalah elemen pertama, -2 adalah elemen kedua

nomor urut larik

Perl menyediakan format array yang dapat di-output secara berurutan. Formatnya adalah nilai awal + .. + nilai akhir .

Contoh

#!/usr/bin/Perl @ var_1 0 = ( 1 . .10 ) ; @ var_2 0 = ( 10 . .20 ) ;" @var_10 n " ; # Keluaran 1 sampai 10 mencetak " @var_20 n " ; # Keluaran 10 hingga 20 mencetak " @var_abc n " ; # Keluaran a sampai z

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

ukuran susunan

Ukuran array ditentukan oleh konteks skalar di dalam array. :

 @array = (1,2,3);cetak "ukuran array: ",skalar @array,"n";

Panjang array mengembalikan ukuran fisik array, bukan jumlah elemen. Kita dapat melihat contoh berikut:

Contoh

#!/uer/bin/Perl @array = ( 1 , 2 , 3 ) ; $array [ 50 ] = 4 ; $ ukuran = @array ; $max_index = $#array ; " Ukuran larik: $ ukuran n " ; " Indeks maksimum: $max_index n " ;

 Ukuran array: 51 Indeks maksimum: 50

Terlihat dari outputnya, hanya ada empat elemen array, tetapi ukuran arraynya adalah 51.

Menambah dan menghapus elemen array

Perl menyediakan beberapa fungsi berguna untuk menambah dan menghapus elemen array.

Jika Anda tidak memiliki pengalaman pemrograman sebelumnya, Anda mungkin bertanya apa itu fungsi. Sebenarnya, print yang kita gunakan sebelumnya adalah fungsi output.

Tabel berikut mencantumkan fungsi operasi yang umum digunakan dalam array:

nomor seri	Jenis dan deskripsi
1	tekan @ARRAY, DAFTAR Letakkan nilai daftar di akhir array
2	pop @ARRAY Keluarkan nilai terakhir dari array dan kembalikan
3	geser @ARRAY Memunculkan nilai pertama array dan mengembalikannya. Nilai indeks array juga dikurangi satu.
4	unshift @ARRAY, DAFTAR Menempatkan daftar di depan array dan mengembalikan jumlah elemen dalam array baru.

Contoh

#!/usr/bin/Perl #Buat array sederhana @sites = ( " google " , " codercto " , " taobao " ) ; " 1. @ sites = @sites n " ; # Tambahkan elemen ke akhir array push ( @situs , " baidu " ) ; " 2. @ sites = @sites n " ; # Tambahkan elemen ke awal array unshift ( @sites , " weibo " ) ; " 3. @ sites = @sites n " ; # Hapus elemen di akhir array pop ( @situs ) ; " 4. @ sites = @sites n " ; # Hapus elemen di awal array shift ( @situs ) ; " 5. @ situs = @situs n " ;

Potong susunan

Kita dapat memotong sebuah array dan mengembalikan array baru setelah dipotong:

Contoh

#!/usr/bin/Perl @situs = qw/ google taobao codercto weibo qq facebook Netease / ; @situs2 = @situs [ 3 , 4 , 5 ] ; " @situs2 n " ;

 weibo qq facebook

Indeks array perlu menentukan nilai indeks yang valid, yang dapat berupa angka positif diikuti dengan angka negatif. Setiap nilai indeks dipisahkan dengan koma.

Jika ini adalah indeks berkelanjutan, Anda dapat menggunakan .. untuk menunjukkan rentang yang ditentukan:

Contoh

#!/usr/bin/Perl @situs = qw/ google taobao codercto weibo qq facebook Netease / ; @ situs2 = @situs [ 3 .5 ] ; " @situs2 n " ;

 weibo qq facebook

Ganti elemen array

Fungsi splice() digunakan untuk mengganti elemen array di Perl. Format sintaksnya adalah sebagai berikut:

 sambungan @ARRAY, OFFSET [ , PANJANG [ , DAFTAR ] ]

Deskripsi parameter:

@ARRAY: Array yang akan diganti.

OFFSET: posisi awal.

PANJANG: Jumlah elemen yang akan diganti.

DAFTAR: Daftar elemen pengganti.

Contoh berikut menggantikan 5 elemen dalam array yang dimulai dari elemen ke-6:

Contoh

#!/usr/bin/Perl @nums = ( 1 . .20 ) ; " Sebelum mengganti - @nums n " ; sambungan ( @nums , 5 , 5 , 21 . .25 ) ; " Setelah penggantian - @nums n " ;

 Sebelum penggantian - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Setelah penggantian - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Ubah string menjadi array

Untuk mengubah string menjadi array di Perl, gunakan fungsi split().

 pisahkan [ POLA [ , EKSPRES [ , BATAS ] ] ]

Deskripsi parameter:

POLA: pembatas, defaultnya adalah spasi.

EXPR: Menentukan jumlah string.

LIMIT: Jika parameter ini ditentukan, jumlah elemen dalam array akan dikembalikan.

Contoh

#!/usr/bin/Perl #definisikan string $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google , taobao,codercto,weibo " ; @test = membagi ( ' ' , $ var_test ) ; @string = membagi ( ' - ' , $var_string ) ; @nama = membagi ( ' , ' , $var_names ) ; " $test [3] n " ; # Keluaran o mencetak " $string [2] n " ; # Keluaran com mencetak " $nama [3] n " ; # Keluaran weibo

 ocomweibo

Ubah array menjadi string

Di Perl, fungsi join() digunakan untuk mengubah array menjadi string.

 bergabunglah dengan EXPR, DAFTAR

Deskripsi parameter:

EXPR: Konektor.

DAFTAR: Daftar atau larik.

Contoh

#!/usr/bin/Perl #definisikan string $var_string = " www-codercto-com " ; $var_names = " google,taobao,codercto,weibo " ; # Ubah string menjadi array @string = split ( ' - ' , $var_string ) ; @names = split ( ' , ' , $var_names ) # Ubah array menjadi string $string1 = gabung ( ' - ' , @rangkaian ) ; $string2 = bergabung ( ' , ' , @nama ) ; " $ string1 n " ; " $string2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

Sortir susunan

Penyortiran array di Perl menggunakan fungsi sort(), dan sintaksnya adalah sebagai berikut:

 urutkan DAFTAR [SUBRUTIN].

Deskripsi parameter:

SUBROUTINE: Tentukan aturan.

DAFTAR: Daftar atau larik.

Contoh

#!/usr/bin/Perl #definisikan susunan @sites = qw( google taobao codercto facebook ) ; " Sebelum mengurutkan: @sites n " ; # Urutkan array @situs = urutkan ( @situs ) ; " Setelah menyortir: @sites n " ;

 Sebelum menyortir: google taobao codercto facebook Setelah menyortir: facebook google codercto taobao

Catatan: Penyortiran array didasarkan pada nilai numerik ASCII. Jadi ketika kita mengurutkan array, yang terbaik adalah mengubah setiap elemen menjadi huruf kecil sebelum mengurutkannya.

Variabel khusus: $[

Variabel khusus $[ mewakili nilai indeks pertama dari array, yang umumnya 0. Jika kita menetapkan $[ ke 1, nilai indeks pertama dari array adalah 1, yang kedua adalah 2, dan seterusnya. Contohnya adalah sebagai berikut:

Contoh

#!/usr/bin/Perl #definisikan susunan @sites = qw( google taobao codercto facebook ) ; " Situs web: @sites n " ; # Tetapkan indeks pertama array menjadi 1 $ [ = 1 ; " @ situs[1]: $situs [1] n " ; cetak " @ situs[2]: $situs [2] n " ;

 Situs web: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

Secara umum, kami tidak menyarankan penggunaan variabel khusus $[ . Di versi baru Perl, variabel ini telah ditinggalkan.

Gabungkan array

Elemen array dipisahkan dengan koma. Kita juga bisa menggunakan koma untuk menggabungkan array, seperti yang ditunjukkan di bawah ini:

Contoh

#!/usr/bin/Perl @angka = ( 1 , 3 , ( 4 , 5 , 6 ) ) ; " angka = @angka n " ;

 angka = 1 3 4 5 6

Dimungkinkan juga untuk menyematkan beberapa array dalam sebuah array dan menggabungkannya ke dalam array utama:

Contoh

#!/usr/bin/Perl @ganjil = ( 1 , 3 , 5 ) ; @genap = ( 2 , 4 , 6 ) ; @angka = ( @ganjil , @genap ) ; " angka = @angka n " ;

 angka = 1 3 5 2 4 6

Pilih elemen dari daftar

Daftar dapat digunakan sebagai array. Menentukan nilai indeks setelah daftar dapat membaca elemen yang ditentukan, seperti yang ditunjukkan di bawah ini:

Contoh

#!/usr/bin/Perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " Nilai var adalah = $var n "

 Nilai var adalah = 1

Demikian pula, kita dapat menggunakan .. dalam array untuk membaca elemen dalam rentang tertentu:

Contoh

#!/usr/bin/Perl @daftar = ( 5 , 4 , 3 , 2 , 1 ) [ 1 .3 ] ; " nilai daftar = @daftar n " ;

 nilai daftar = 4 3 2