Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1604049
  • 博文数量: 43
  • 博客积分: 169
  • 博客等级: 入伍新兵
  • 技术积分: 1162
  • 用 户 组: 普通用户
  • 注册时间: 2012-04-08 15:35
文章分类

全部博文(43)

文章存档

2021年(1)

2019年(4)

2016年(6)

2015年(8)

2013年(19)

2012年(5)

分类: Python/Ruby

2012-04-08 22:49:53

//opendir                          资源句柄                      得到指定目录的资源句柄
//is_dir                              布尔                              判断是否为目录
//is_readable                  布尔                                  给定目录是否可读
//readdir                       字符串                              通过资源句柄中读一个文件的文件名,指针后移,如果不存 在或者已在最后的话在返回false
//closedir                          void                                  关闭资源句柄,释放资源
//scandir                           数组                             返回指定目录下所有的文件和目录组成的数组
$dir = "f:/perl";
print_file($dir);
function  print_file($dir)
{
$tempdir = $dir;
$file_or_dir = scandir($tempdir);  //读取文件数组
foreach ($file_or_dir as $temp_file_dir)
{
if( !preg_match("/^[^\.\.?]/", $temp_file_dir))
{
continue;
}
if(is_dir($tempdir."/".$temp_file_dir))
{
// echo $temp_file_dir;
echo "目录".$tempdir.$temp_file_dir."下的文件:
";
print_file($tempdir."/".$temp_file_dir);
}else{
echo $tempdir."/".$temp_file_dir."
";
}
}
}

?>
阅读(3525) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

无色T恤2012-04-10 02:20:52

代码挺简洁的!