Cara Menghasilkan Daftar secara Dinamis di Perl

Daftar Perl adalah kumpulan item secara berurutan. Untuk membuat daftar, Anda harus menggunakan simbol "@" sebelum pernyataan nama. Anda dapat membuat daftar dinamis saat program Anda berjalan dengan menulis kode untuk mengizinkannya. Misalnya, Anda dapat meminta pengguna untuk beberapa informasi awal kemudian menghasilkan daftar angka yang sesuai dengan kriteria.

Anjuran Pengguna

Untuk mengetahui nilai apa yang diinginkan pengguna dalam daftar yang dibuat secara dinamis, Anda harus meminta beberapa informasi. Minimal, Anda harus tahu berapa banyak angka yang dia inginkan dalam daftar, dan kisaran nilai untuk angka-angka itu. Gunakan fungsi "cetak" untuk meminta pengguna jumlah item, dan ketik "$ num =;" untuk menyimpan nilai itu dalam variabel $ num. Kemudian tanyakan kisaran dan ketik "$ range =;" untuk menyimpan nilai itu dalam variabel $ range.

Fungsi Rand

Fungsi "rand" secara dinamis menghasilkan angka acak dengan beberapa fleksibilitas. Secara default, ini menciptakan angka desimal antara nol dan satu. Dengan menggabungkannya dengan fungsi "int", Anda dapat membuat bilangan bulat, dan Anda juga dapat memasukkan nilai rentang sebagai parameter. Misalnya, jika pengguna menyimpan "50" sebagai rentang yang Anda minta, ketikkan "$ random = int (rand ($ range + 1));" membuat angka acak antara nol dan 50. Anda perlu menambahkan "+1" ke pernyataan, atau rentangnya adalah nol hingga 49.

Fungsi Dorong

Anda menggunakan fungsi "push" untuk menambahkan item baru ke akhir daftar Perl. Dibutuhkan dua parameter: daftar untuk ditambahkan, dan nilai baru. Misalnya, mengetik "push (@list, $ random);" menambahkan nilai yang disimpan dalam variabel $ acak ke daftar. Atau, Anda dapat menggunakan fungsi "unshift" untuk menambahkan elemen ke awal array, tetapi ketika Anda membuat array dinamis dari awal, tidak masalah di sisi mana Anda menambahkan item baru.

Untuk Loop

Untuk menghasilkan daftar, gunakan loop "untuk". Untuk variabel penghitung, mulailah dari satu, minta mulai hingga sama dengan variabel $ num, dan tambahkan satu per satu. Misalnya, ketik "untuk ($ i = 1; $ i <= $ num; $ i ++)" untuk membuat loop. Di dalam, Anda hanya perlu menggunakan dua baris kode: panggilan ke fungsi rand dan fungsi push. Ketika loop selesai, Anda akan memiliki daftar angka yang dihasilkan secara dinamis.