perl中如何将文件的路径进行输出

candiceyuan

UID: 38982
帖子: 0
积分: 0
在线时间: 10 分钟

1^# candiceyuan 发表于 2010-11-15 15:53

perl中如何将文件的路径进行输出

如何查找出指定目录下的某一后缀名的文件，并将这些文件输出，路径也进行输出
谢谢

candiceyuan

UID: 38982
帖子: 0
积分: 0
在线时间: 10 分钟

2^# candiceyuan 发表于 2010-11-16 09:09

呵呵

我自己支持自己一下吧~

幻_perler

UID: 39637
帖子: 0
积分: 0
在线时间: 10 分钟

3^# 幻_perler 发表于 2011-01-27 14:39

回复 1# candiceyuan 的帖子

#!/usr/bin/perl
my $dir="/etc";
my $dir_file=<$dir/* $dir.* >;
print "$dir_file\n" ;
我是新手不知道，这个可以不

幻_perler

UID: 39637
帖子: 0
积分: 0
在线时间: 10 分钟

4^# 幻_perler 发表于 2011-01-27 15:15

回复 1# candiceyuan 的帖子

下面这个是我新写的
#!/usr/bin/perl
use strict;
use warnings;
my $dir="/etc";
opendir DIR $dir or die "can't open $dir : $!";
while (my $name= readdir $dir) {
if ($name=~/.*?\.pl/) {
   $name=$dir/$name;
   print $name;
}
}
closedir DIR;

[ 本帖最后由幻_perler 于 2011-1-27 15:22 编辑 ]