如何读取Perl中的目录的内容?

前端之家收集整理的这篇文章主要介绍了如何读取Perl中的目录的内容?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如何让Perl将给定目录的内容读入数组?

Backticks可以做到,但有没有一些方法使用’scandir’或类似的术语?

解决方法

  1. opendir(D,"/path/to/directory") || die "Can't open directory: $!\n";
  2. while (my $f = readdir(D)) {
  3. print "\$f = $f\n";
  4. }
  5. closedir(D);

编辑:哦,对不起,错过了“进入数组”部分:

  1. my $d = shift;
  2.  
  3. opendir(D,"$d") || die "Can't open directory $d: $!\n";
  4. my @list = readdir(D);
  5. closedir(D);
  6.  
  7. foreach my $f (@list) {
  8. print "\$f = $f\n";
  9. }

编辑2:大多数其他答案是有效的,但我想评论this answer具体,其中提供此解决方案:

  1. opendir(DIR,$somedir) || die "Can't open directory $somedir: $!";
  2. @dots = grep { (!/^\./) && -f "$somedir/$_" } readdir(DIR);
  3. closedir DIR;

首先,记录它做什么,因为海报没有:它传递返回的列表从readdir()通过一个grep()只返回那些值是文件(而不是目录,设备,命名管道等)和不开始一个点(这使得列表名称@dots误导,但这是由于他从readdir()文档复制时所做的更改)。因为它限制了它返回的目录的内容,我不认为它在技术上是一个正确的答案这个问题,但它说明了一个常用的成语用于过滤文件名在Perl,我认为这是有价值的文档。另一个看到很多的例子是:

  1. @list = grep !/^\.\.?$/,readdir(D);

代码段从目录句柄D中读取除“。”之外的所有内容。和’..’,因为这些很少需要在列表中使用。

猜你在找的Perl相关文章