opendir DIR,$dir; @files = readdir DIR; closedir DIR;
虽然我可以(实际上应该)将它包装在一个函数中,但我想知道是否有更优雅的方法来做到这一点？
use File::Slurp; @files = read_dir $dir; # . and .. are removed by default
