Chinaunix首页 | 论坛 | 博客
  • 博客访问: 139595
  • 博文数量: 46
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 300
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(46)

文章存档

2018年(18)

2017年(11)

2015年(14)

2014年(3)

我的朋友

分类:

2015-03-22 22:18:38

原文地址:Perl中获取目录下文件名 作者:icybay

大致有两种方法可以使用

1.opendir

use strict;

my $path="d:\\"; #设置查询的目录
opendir(TEMPDIR, $path) or die "can't open it:$!";
my @dir = grep -d,
readdir TEMPDIR; #-d表示选出目录文件,还可以换成其它表达式
print join "\n",@dir;
close TEMPDIR;


2.glob

use strict;

my $path="d:\\*";
my @dir=glob($path);

foreach (@dir)
{
    print;
    print "\n";
}


两者的区别:
opendir读取的是纯粹的目录和文件名,不包含路径; 如:a.txt
glob获得的目录和文件名带有路径,是全路径文件和目录名。如:d:\a.txt
阅读(880) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~