Pernyataan peralihan Perl

Penulis：Eve Cole Waktu Pembaruan：2024-12-24 17:12:01

Pernyataan switch memungkinkan pengujian variabel yang sama dengan beberapa nilai. Setiap nilai disebut case, dan variabel yang diuji diperiksa untuk setiap switch case .

Eksekusi switch case didasarkan pada modul Switch , yang tidak diinstal secara default.

Instal modul Switch.pm

Instal menggunakan CPAN

Buka jendela perintah, masukkan perintah cpan, lalu masukkan perintah install Switch:

 # cpancpan[1]> instal Switch // Instal cpan[2]> keluar // Keluar

Instalasi Ubuntu menggunakan apt-get

 sudo apt-get instal libswitch-Perl

tata bahasa

Format sintaksnya adalah sebagai berikut:

tata bahasa

gunakan Beralih ; kasus 1 { mencetak " Nomor 1 " } kasus " A " { mencetak " rangkaian a " } kasus [ 1..10,42 ] { mencetak " Nomornya ada di daftar " } kasus ( @array ) { mencetak " angka dalam larik " } kasus / w+ / { mencetak " pola pencocokan reguler " } kasus qr /w+/ { p r ke dalam " pola pencocokan reguler " } kasus ( %hash ) { mencetak " hash " } kasus ( & sub ) { mencetak " proses anak " } kalau tidak { mencetak " Tidak sesuai dengan kondisi sebelumnya " } }

Berikut ini adalah aturan untuk pernyataan switch:

Parameter skalar jenis apa pun dapat digunakan dalam tanda kurung pernyataan switch .

Terdapat sejumlah pernyataan kasus dalam sebuah switch. Setiap kasus diikuti oleh nilai yang akan dibandingkan dan titik dua.

Skalar setelah pernyataan case akan dibandingkan dengan skalar dalam pernyataan switch untuk menentukan apakah keduanya setara.

Ketika variabel yang diuji sama dengan konstanta case, pernyataan yang mengikuti case akan dieksekusi sampai pernyataan break ditemukan.

Pernyataan switch dapat memiliki pernyataan opsional lain di akhir, yang dijalankan jika semua kasus tidak cocok.

Ketika case cocok, kode blok pernyataan case akan dieksekusi, dan pernyataan switch akan keluar setelah eksekusi.

Setelah mencocokkan case, jika kita perlu melanjutkan eksekusi pernyataan case berikutnya, kita perlu menambahkan pernyataan berikutnya .

flow chart

Contoh

#!/usr/bin/Perl gunakan Beralih ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; kasus 10 { mencetak " Nomor 10 n " } kasus " A " { mencetak " rangkaian a " } kasus [ 1..10,42 ] { mencetak " Nomornya ada di daftar " } kasus ( @array ) { mencetak " angka dalam larik " } kasus ( %hash ) { mencetak " di dalam hash " } kalau tidak { mencetak " Tidak ada kondisi yang cocok " } }

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 Nomor 10

Selanjutnya mari kita lihat contoh penggunaan next :

Contoh

#!/usr/bin/Perl gunakan Beralih ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; kasus 10 { mencetak " Nomor 10 n " ; selanjutnya ; # Lanjutkan eksekusi setelah pencocokan kasus " A " { mencetak " rangkaian a " } kasus [ 1..10,42 ] { mencetak " Nomornya ada di daftar " } kasus ( @array ) { mencetak " angka dalam larik " } kasus ( %hash ) { mencetak " di dalam hash " } kalau tidak { mencetak " Tidak ada kondisi yang cocok " } }

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 Nomor 10 Nomor dalam daftar