Dalam bahasa Perl terdapat fungsi File::Find, sebuah modul yang memperbolehkan user untuk mencari sebuah file. Fungsi  tersebut akan masuk ke sub directory dan mengunjungi setiap file satu kali, lalu akan mem-passing file yang diperoleh ke fungsi yang telah dibuat. Sejak Perl berlaku di cross platform bahasa pemrograman, fungsi tersebut dapat digunakan juga di banyak Sistem Operasi

Berikut langkah-langkah pembuatan script program untuk mencari file di bahasa pemrograman Perl :

1. Impor modul "File::Find" dengan menggunakan kunci "Use" keyword. Seluruh distribusi script Perl dimulai dengan modul "File::Find" , jadi modul tidak diinstal terpisah.:

use File::Find;

2. Tulis fungsi filter (bukan dengan script "File::Find::find", karena tidak akan berfungsi sebagai filter) yang akan menyimpan file dalam list, mencetaknya, menghapusnya,memindahkannya atau semua yang Anda ingin lakukan dengan file tersebut. File yang akan dilihat diawali dengan variable default $_. Contoh dalam penggunaan script program :

sub filter {
if($_ =~ /\.html$/i) {
print "$_\n";
}
}
 
3. Panggil fungsi "File::Find::find" dan kunci "Use" akan mengimpor segala data dari fungsi  File::Find ke global namespace. Fungsi "Find" memiliki dua argumen yakni mereferensikan fungsi filter dan syntax-nya merupakan bit berjumlah ganjil.

4. Membuat referensi ke fungsi "Filter" dengan menggunakan kode  "\&filter". Fungsi backslash (\) mereferensikan operator, yang akan mem-passing apapun yang melewati filter. Fungsi tanda “ & “ adalah sebagai fungsi atau subroutine prefix,digunakan untuk menjalankan fungsi. Penggunaannya seperti “ $ “ untuk  scalar, “ @ “ untuk list, dan  " %" untuk hash. 

5. Gunakan parameter untuk menemukan direktori untuk pencarian yang dibuat dengan syntax ".".
find(\&filter, ".");

6. Kunci "sub" memiliki fungsi sama dengan “ File::Find::find “ jika Anda ingin syntax yang simpel. Kunci tersebut akan menyimpan kode dalam satu tempat, sehingga tidak perlu mencari fungsi filter lagi. Contoh berikut akan menampilkan file apa saja yang ditemukan, tanpa regex filter
find(sub {print "$_\n";}, ".");

sumber : beritanet.com

Email (will not be published)

Name

Title

Comment

Post