论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2012-10-16 14:47 |只看该作者 |倒序浏览

小弟新手准备实现个小需求。我要取出某个目录的里面一些子目录名，比如：/home/oracle下的 a1 a2 a3 个目录，如果/home/oracle里面还含有文件名和目录名相同，我就只打印出目录名我的写法：
opendir(TMP,'/home/oracle') || die "re";
@d=grep(/a[0-9]$/,readdir TMP);
foreach (@d){
if( -d $_ ){
print "$_";
}
}
运行什么都没有，请教下改怎样处理，谢谢

文库|博客

kk861123

富足长乐

论坛徽章:: 0

2楼 [报告]

发表于 2012-10-16 15:00 |只看该作者

回复 1# db2_aixer

请使用绝对路径：

if( -d "/home/oracle/$_" ){
print "$_";
}

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

db2_aixer

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2012-10-16 15:05 |只看该作者

感谢kk861123回复可以了学习了

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

4楼 [报告]

发表于 2012-10-16 15:10 |只看该作者

本帖最后由 jason680 于 2012-10-16 15:11 编辑

回复 1# db2_aixer

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.

               opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
               @dots = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
               closedir $dh;