Daftar File dari Folder Menggunakan Perl

Beberapa baris kode Perl dapat menghasilkan daftar semua file yang ada dalam direktori tertentu. Belajar bagaimana.

A+ A-

Perl membuat hidup mudah! Dalam garis pendek kode itu dapat membuat tugas lebih mudah yang dinyatakan terlihat sulit untuk melakukan. Pada saat kita perlu untuk mencetak daftar semua file yang ada di folder. Ini adalah tugas yang sangat dasar dan Perl melakukannya dalam sekejap.

READ JUGA: Membuat daftar semua file dalam folder menggunakan perintah MS DOS

Kemarin, saya perlu untuk membuat daftar semua file yang ada di folder kecuali beberapa file. Jika Anda juga perlu untuk menyelesaikan tugas yang sama, Anda dapat menggunakan potongan kode berikut Perl:

my $directory = shift;
opendir(d, "$directory") || die "Can't open $directory: $!\n";
my @flist = readdir(d);
closedir(d);
foreach my $f (@flist) {
  print "\$file = $f\n";
}

Simpan kode ini dalam file, katakanlah, myfile.pl

Sekarang Anda dapat menjalankan skrip Perl ini sambil memberikan jalan direktori sebagai parameter pertama.

perl myfile.pl "c: \ proyek"

Baris pertama kode akan mengekstrak parameter pertama dan menyimpannya dalam variabel $ direktori. Baris kedua mencoba untuk membuka direktori yang disediakan. Baris ketiga membaca isi direktori dibuka menjadi @flist larik. baris keempat dalam kode Perl ini menutup direktori. Dan kemudian untuk loop daftar isi array @flist.

Saya berharap itu berguna untuk Anda. Silahkan bertanya jika Anda memiliki pertanyaan tentang topik ini. Aku akan senang untuk mencoba dan membantu Anda. Terima kasih telah menggunakan TechWelkin.