请教opendir和readdir问题

bytewolf

1. 
   
2. #! /usr/bin/perl
   
3. 
   
4. my $dir = "/some/dir";
   
5. opendir(DIR, $dir);
   
6. while(defined(my $file = readdir(DIR))){
   
7. if(-d "$dir/$file"){      # '-d $file'仅仅只是对当前目录下的$file进行测试
   
8. print $file;
   
9. }
   
10. }
    
11. closedir(DIR);
    

复制代码

如果你看看perldoc -f readdir,你会发现

...If you're planning to filetest the return values out of a
"readdir", you'd better prepend the directory in question.
Otherwise, because we didn't "chdir" there, it would have been
testing the wrong file...

Qiang

while(defined(my $file = readdir(DIR))){  

这里的 $file 用 my 声明后就是本地变量。 while 循环里不知道 $file 是什么。

如果你在程序里使用  use warnings (-w)  和 use strict, 就有错误提示 : Use of uninitialized value

所以， 最好在你的每个perl 程序里加上 -w 和 use strict. 这就好像是有人在帮你 调试程序，省了很多时间和精力。

bytewolf

原帖由 "Qiang" 发表：
while(defined(my $file = readdir(DIR))){  

这里的 $file 用 my 声明后就是本地变量。 while 循环里不知道 $file 是什么。

如果你在程序里使用  use warnings (-w)  和 use strict, 就有错误提示 : Use of u..........

楼上说的不对阿呵呵，(my $file=readdir(DIR))中$file的作用域在这个括号范围内，传给while的是“defined(my $file = readdir(DIR))”，这个与用不用my定义无关，至于为何会有错误提示，那是因为其他的变量没有定义过。
该段程序的问题在二楼已经回复过了，调试一下就知道了呵呵

Qiang

原帖由 "bytewolf" 发表：


楼上说的不对阿呵呵，(my $file=readdir(DIR))中$file的作用域在这个括号范围内，传给while的是“defined(my $file = readdir(DIR))”，这个与用不用my定义无关，至于为何会有错误提示，那是因为其他的变量没有定..........

readdir 的使用确实有问题. 我没有注意到.

不过就算 readdir 的问题解决,程序还是不对.my $file 在 while 里声明而且在 loop 里使用, 但 loop 里并不知道 $file 是什么. 比较下面的例子就知道了.

D:\>;perl -e "opendir(D,'.');print $f while(defined(my $f=readdir(D)))"

D:\>;perl -e "my $a;opendir(D,'.');print $f while(defined($f=readdir(D)))"

bloves

原帖由 "bytewolf" 发表：


楼上说的不对阿呵呵，(my $file=readdir(DIR))中$file的作用域在这个括号范围内，传给while的是“defined(my $file = readdir(DIR))”，这个与用不用my定义无关，至于为何会有错误提示，那是因为其他的变量没有定..........

my $file的作用域在while循环内部，也就是{}内。在perl中 {}就是一个作用域，当然是使用了my声明后的。

Qiang

my bad.

D:\>;perl -e "opendir(D,'.');while(defined(my $f=readdir(D))) {print $f }"

一直都用同样的方法在 foreach 上.. 很少使用 while. 谢谢纠正

bytewolf

[quote]原帖由 "bloves"]y $file的作用域在while循环内部，也就是{}内。在perl中 {}就是一个作用域，当然是使用了my声明后的。[/quote 发表：


我上面的贴子没说错阿，$file的作用域是在那对括号中阿，楼主所需解决的问题也与用不用my定义无关阿.......

devel

和楼主的程序一样，我的错在哪里呢？

1. 
   
2. n# perl opendir_readdir
   
3. Undefined subroutine &main::define called at opendir_readdir line
   
4. 4.
   
5. # cat -n opendir_readdir
   
6.      1  #!/usr/bin/perl -w
   
7.      2  my $dir="/forum";
   
8.      3  opendir(DIR,$dir);
   
9.      4  while(define(my $file=readdir(DIR))) {
   
10.      5          if(-d $file) {
    
11.      6                  print $file;
    
12.      7          }
    
13.      8  }
    
14.      9  closedir(DIR);
    

复制代码