Bagaimana menemukan daftar file dalam Perl seperti perintah find di UNIX? Jawabannya adalah FIle :: Find modul CPAN. Mari kita lihat dalam artikel ini bagaimana menggunakan File :: Find modul.
FIle :: Find berisi 2 modul: menggunakan FInd dan finddepth. Keduanya digunakan untuk mencari file, perbedaannya dalam urutan file dan direktori yang diurai. find memiliki semua pilihan seperti perintah find Unix.
use File::Find;
my @files;
my @dirpath=qw(/home/user1/);
find(sub {
push @files,$File::Find::name if (-f $File::Find::name and /\.txt$/);
}, @dirpath);
print join "\n",@files;
fungsi find memiliki 2 argumen:
1. Argumen pertama adalah yang disebut subroutine untuk setiap file yang ditemukan oleh fungsi find.
2. Argumen kedua adalah daftar direktori dimana fungsi find akan mencari file.
Secara default, pencarian fungsi find untuk semua file dan direktori di Unix perintah find dapat ditulis sebagai:
find.
Setiap berkas yang ditemukan oleh perintah find didorong ke dalam @files array yang jika itu adalah file (f) dan .Txt ekstensi (\. Txt $). Variabel $ File :: Find :: nama berisi nama path lengkap dari file.
Referensi: TheUNIXSchool
Tag: Find file, UNIX System, Perl UNIX
Perl | Mencari File dengan File::Find
4/
5
Oleh
Unknown