在Perl中，可以使用readdir函數來讀取目錄的內容
#!/usr/bin/perl
use strict;
use warnings;
# 指定要讀取的目錄
my $directory = '/path/to/your/directory';
# 打開目錄
opendir(my $dh, $directory) or die "無法打開目錄: $!";
# 讀取目錄內容
while (my $file = readdir($dh)) {
# 過濾掉當前目錄（.）和上級目錄（..）
next if ($file eq '.' || $file eq '..');
# 輸出文件名
print "$file\n";
}
# 關閉目錄
closedir($dh);
將上述代碼保存為一個.pl文件，例如list_directory.pl，然后在終端中運行perl list_directory.pl。請確保將$directory變量設置為要讀取的目錄路徑。
這個腳本首先使用opendir函數打開一個目錄句柄，然后使用readdir函數在循環中讀取目錄中的每個文件和子目錄。readdir函數返回目錄中的下一個條目，直到沒有更多的條目為止。在循環中，我們使用next語句跳過當前目錄（.）和上級目錄（..），然后輸出剩余的文件名。最后，使用closedir函數關閉目錄句柄。
