Dua jenis variabel dapat digunakan dalam bahasa skrip shell: satu adalah variabel shell dan yang lainnya adalah variabel lingkungan. Variabel lingkungan berfungsi sebagai variabel global untuk bahasa skrip. Data terkait lingkungan yang digunakan untuk menjalankan skrip disimpan dalam variabel lingkungan. Variabel-variabel ini disimpan berdasarkan pasangan nilai kunci. Nama variabel ditentukan oleh kunci yang menyimpan nilai variabel. Nilai variabel lingkungan apa pun dapat diatur atau diakses oleh skrip Perl. Metode mengakses dan memodifikasi variabel lingkungan menggunakan skrip Perl ditampilkan dalam tutorial ini.
Penggunaan Variabel Lingkungan dalam Skrip Perl
Metode mengakses variabel lingkungan tertentu atau semua dan mengatur ulang variabel lingkungan apa pun ditunjukkan di bagian tutorial ini.
Contoh 1: Cetak Variabel Lingkungan Tertentu
Variabel lingkungan disimpan dalam larik %ENV yang berfungsi seperti larik asosiatif. Nama variabel adalah kunci dari array %ENV dan nilainya disimpan dalam kunci tersebut. Buat file Perl dengan skrip berikut yang mencetak tiga variabel lingkungan. Nama pengguna login saat ini disimpan dalam variabel $ENV{‘USER’}. Nilai shell saat ini disimpan dalam variabel $ENV{‘SHELL’}. Direktori kerja saat ini disimpan dalam variabel $ENV{‘PWD’}. Ketiga variabel ini diakses dan dicetak dalam skrip.
#!/local/bin/Perl
gunakan ketat;
gunakan peringatan;
gunakan 5.34.0;
#Cetak nilai dari tiga variabel lingkungan
mengatakan 'Nama pengguna adalah' . $ENV { 'PENGGUNA' } ;
mengatakan 'Cangkang saat ini adalah' . $ENV { 'KERANG' } ;
mengatakan 'Direktori kerja saat ini adalah ' . $ENV { 'penyandang disabilitas' } ;
Keluaran:
Output serupa berikut ini muncul setelah menjalankan skrip:
Contoh 2: Cetak Lima Variabel Lingkungan Pertama
Buat file Perl dengan skrip berikut untuk membaca lima nilai pertama array %ENV yang berisi semua variabel lingkungan. Di sini, loop “foreach” digunakan untuk membaca semua variabel lingkungan berdasarkan nilai kunci yang diurutkan. Variabel “$counter” digunakan dalam skrip untuk menghentikan loop setelah mencetak lima variabel lingkungan. Variabel “$counter” bertambah di setiap iterasi perulangan dan ketika nilai “$counter” adalah 5, pernyataan “terakhir” dijalankan untuk keluar dari perulangan.
#!/local/bin/Perlgunakan ketat;
gunakan peringatan;
gunakan 5.34.0;
#Inisialisasi penghitung
-ku $penghitung = 0 ;
#Iterasi loop untuk membaca semua variabel lingkungan
untuk setiap ( menyortir kunci % ENV ) {
#Baca nama variabel lingkungan
-ku $kunci = $_ ;
#Baca nilai variabel lingkungan
-ku $nilai = $ENV { $kunci } ;
#Cetak nama variabel dengan nilainya
mengatakan ' $kunci => $nilai ' ;
#Tambahkan penghitung
$penghitung ++;
#Periksa nilai penghitung
jika ( $penghitung > = 5 )
{
#Hentikan dari loop
terakhir ;
}
}
Keluaran:
Output serupa berikut ini muncul setelah menjalankan skrip:
Contoh 3: Reset Variabel Lingkungan
Dalam contoh sebelumnya, nilai variabel lingkungan yang telah ditentukan sebelumnya diakses secara individual dan menggunakan loop. Namun, nilai variabel lingkungan apa pun dapat diubah menggunakan skrip Perl. Buat file Perl dengan skrip berikut yang mencetak lokasi HOME, mengubah lokasi menjadi “/temp/files”, dan mencetak lagi lokasi HOME setelah pembaruan.
#!/local/bin/Perlgunakan ketat;
gunakan peringatan;
gunakan 5.34.0;
#Cetak nilai variabel lingkungan tertentu
mengatakan 'Nilai HOME saat ini adalah ' . $ENV { 'RUMAH' } ;
#Reset variabel lingkungan
$ENV { 'RUMAH' } = '/temp/file' ;
#Cetak nilai variabel lingkungan tertentu setelah pembaruan
mengatakan 'Nilai HOME saat ini adalah' . $ENV { 'RUMAH' } ;
Keluaran:
Output serupa berikut ini muncul setelah menjalankan skrip:
Contoh 4: Cetak Variabel Lingkungan dengan Pemformatan
Buat file Perl dengan skrip berikut yang mencetak variabel lingkungan dengan format menggunakan fungsi printf(). Di sini, loop “foreach” digunakan untuk membaca semua variabel lingkungan seperti pada contoh sebelumnya. Pasangan kunci-nilai dari variabel lingkungan dicetak dengan menambahkan titik dua (:) di antara kunci dan nilai, dan memberi spasi 15 karakter untuk kunci tersebut.
#!/local/bin/Perlgunakan ketat;
gunakan peringatan;
gunakan 5.34.0;
#Iterasi loop untuk membaca semua variabel lingkungan
depan saya $k ( menyortir kunci % ENV ) {
#Cetak keluaran variabel lingkungan yang diformat
printf ( '%15dtk : %s \N ' , $k , $ENV { $k } ) ;
}
Keluaran:
Output serupa berikut ini muncul setelah menjalankan skrip. Beberapa bagian di awal keluaran ditampilkan di sini:
Kesimpulan
Variabel lingkungan digunakan untuk tujuan yang berbeda dan terkadang diperlukan untuk mengubah nilai variabel lingkungan tertentu saat ini untuk tujuan pemrograman apa pun. Metode untuk mendapatkan dan mengatur nilai variabel lingkungan menggunakan skrip Perl ditunjukkan dalam contoh tutorial ini untuk membantu pengguna Perl.