打开目录失败的问题

aboy11

UID: 23219
帖子: 1
积分: 2
在线时间: 10 分钟

1^# aboy11 发表于 2008-11-15 09:57

打开目录失败的问题

[Copy to clipboard] [ - ]

CODE:

  open(DATADIR,"E:\\perl") || die "can not open the dir:$!";
  my @tmp=grep(!/^\.\.?$/,readdir DATADIR);
  foreach my $subdir (@tmp){
    print "$tmp[$subdir] \n" if (-d $tmp[$subdir]);
  }

E:\\perl 这个目录是存在的,而且我用的是administrator的用户,程序报错:

can not open the dirermission denied

请高手帮忙分析下!

seer671

UID: 17031
帖子: 141
积分: 324
在线时间: 1 天 3 小时

2^# seer671 发表于 2008-11-15 10:37

open(DATADIR,"E:\\perl" || die "can not open the dir!";
----------------------------------------
既然是目录，应该用opendir

aboy11

UID: 23219
帖子: 1
积分: 2
在线时间: 10 分钟

3^# aboy11 发表于 2008-11-15 10:52

汗~~
经常犯这种低级错误...
谢谢楼上指正!

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-11-15 11:09

QUOTE:

原帖由 aboy11 于 2008-11-15 10:52 发表
汗~~
经常犯这种低级错误...
谢谢楼上指正!

经常犯是因为不总结，不反省。
为什么经常犯？难道不是因为每次问题解决了就抛诸脑后了？

琢磨出适合自己的学习方法，和解决问题的一般性技巧，这才是关键。
也许有些人把上论坛求助也当作是一种方法，但是对我来说，上论坛求助从来都不是一种好方法。

好好反省反省。也许有些人又该说我霸气了，但我这是为你好。