方式一
my @filelist = glob “/root/*”;
不給陣列的話，這樣子就可以直接列出檔案了
print while </root/*>;
也可以
while (</root/*>) {print;};
方式二
my @filelist = </root/*>;
列出檔案
foreach my $file (@filelist) {
print “$file”;
}
print “$file”;
}
方式一
不給陣列的話，這樣子就可以直接列出檔案了
也可以
方式二
列出檔案
留言