新手请教，如何用PERL获取某个目录的所文件的文件名

fang3984581

因我要把所有文件的文件记录下来。希望大家帮帮忙

fang3984581

opendir(DIR,'d:/www');

while(my $file = readdir(DIR))

{

       print $file,"\n";

}

closedir(DIR);

能不能输出一个文件就换行一次
或者在每个文件之间加多几个空格？？

fang3984581

前两点点是什么？如何去掉它

Cu_fans

opendir(DIR,'d:/www');

while(my $file = readdir(DIR))

{

       print $file,"\n";

}

  ...
fang3984581 发表于 2011-06-04 01:49

这代码是你写的吗？你这不就是输出一个文件就换行了么

zhlong8

.是本文件夹
..是它爸

fang3984581

.是本文件夹
..是它爸
zhlong8 发表于 2011-06-04 11:29

    怎么样去掉它们

兰花仙子

怎么样去掉它们
fang3984581 发表于 2011-06-04 12:04

    干掉他爷爷。

fang3984581

干掉他爷爷。
兰花仙子 发表于 2011-06-04 12:08

    How to

兰花仙子

How to
fang3984581 发表于 2011-06-04 12:10

    next if /^\.{1,2}$/;

Cu_fans

How to
fang3984581 发表于 2011-06-04 12:10

1. while(my $file = grep { !/^\./ } readdir DIR)
   
2. {
   
3. 
   
4.        print $file,"\n";
   
5. 
   
6. }

复制代码