perl 遍歷目錄並且對目錄中的文件進行操作

opendir (DIR, $dir) or die "can't open the directory!";
my @dir = readdir DIR;
foreach my $file (@dir) {


}

對二級目錄進行遍歷，操作二級目錄里的文件

my $rawpath=$ARGV[0];

opendir (DIR,$rawpath) or die "can't open!";
my @file = readdir DIR;
foreach my $file (@file){
    my $newdir = $rawpath."/".$file;
    opendir(DIR2,$newdir) or die "can't open $newdir!";
    my @file2 = readdir DIR2;
    foreach my $file2 (@file2){
    
    
    }
}