Perl chdir()函数

zz : http://www.yiibai.com/perl/perl_chdir.html

这个用法在执行crontab时，需要指定绝对路径的时候非常有用。

语法

chdir EXPR chdir

定义和用法

改变当前的工作目录到EXPR， 或如果没有指定，则到用户的主目录。这个函数的调用是相当于Unix命令CD EXPR。

返回值

• 失败返回 0

• 成功返回 1

例子

假设你是工作在/user/home/www.yiibai.com 目录. 执行下列程序：

#!/usr/bin/perl

chdir "/usr/home";

# Now you are in /usr/home dir.

chdir;

# Now you are in home directory /user/home/www.yiibai.com

目录的其他操作方式。

zz ： http://developer.51cto.com/art/201007/211845.htm

解析九大Perl目录操作函数用法

2010-07-15 13:50 jxncyjq csdn.net  字号： T |  T

你对Perl目录操作函数的概念是否熟悉，这里向大家简单介绍一下，Perl自带的函数远不及php多，但功能确实很强大，实现起来也只有几行代码。

AD：WOT2014课程推荐：实战MSA：用开源软件搭建微服务系统

本文和大家重点讨论一下Perl目录操作函数的概念，这里主要介绍一下九种Perl目录操作函数的用法，希望通过本文的学习你对Perl目录操作函数的概念有所了解。

Perl目录操作函数：

Perl自带的函数远不及php多，但功能确实很强大，实现起来也只有几行代码。

1、Perl目录操作函数之mkdir函数

调用语法：mkdir(dirname,permisions)
dirname：将要创建的目录名，可以为字符串或表达式、
permisions：八进制数，指定目录的访问权限、

目录的访问权限、其值和意义如下：

权限 值权限
4000运行时设置用户ID
2000运行时设置组ID
1000粘贴位
0400拥有者读权限
0200拥有者写权限
0100拥有者执行权限
0040组读权限
0020组写权限
0010组执行权限
0004所有人读权限
0002所有人写权限
0001所有人执行权限

2、Perl目录操作函数之chdir函数

调用语法：chdir(dirname)

3、Perl目录操作函数之opendir函数

调用语法：opendir(dirvar,dirname)
dirvar：目录句柄，与文件句柄类似
dirname：目录名，可为字符串或表达式
调用成功返回真，否则返回假

4、Perl目录操作函数之closedir函数

调用语法：closedir(mydir)

5、Perl目录操作函数之readdir函数

调用语法：readdir(mydir)

6、Perl目录操作函数之telldir函数

调用语法：location=telldir(mydir)
返回当前所在目录

7、Perl目录操作函数之seekdir函数

调用语法：seekdir(mydir,location)
location必须为telldir函数返回的值

8、Perl目录操作函数之rewinddir函数

调用语法：rewinddir(mydir)

9、Perl目录操作函数之rmdir函数

调用语法：rmdir(dirname)

程序代码：
 

   
   
#!/usr/bin/Perl  
 
sublistdir{my@arr,$j=0;  
for($i=0;$i<=$#_;$i++){  
if(-d$_[$i]){  
if(opendir($handle,$_[$i])){  
while($dir=readdir($handle)){  
if(!($dir=~m/^\.$/)and!($dir=~m/^(\.\.)$/)){  
print"$dir";  
if(-d$_[$i]."\\$dir"){  
$arr[$j++]=$_[$i]."\\$dir";  
print"\t[DIR]"  
}  
print"\n";  
}  
}  
closedir($handle);  
}  
}  
}  
if($j>0){  
listdir(@arr);  
}  
}  
listdir"D:\\download";