• 博客访问: 25385
  • 博文数量: 28
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 165
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(28)

文章存档

2017年(11)

2015年(14)

2014年(3)

我的朋友
微信关注

IT168企业级官微



微信号:IT168qiye



系统架构师大会



微信号:SACC2013

订阅
热词专题
递归遍历目录 2017-07-20 15:10:14

分类: PERL

根据http://blog.chinaunix.net/uid-20648182-id-1907476.html
perl中的目录操作函数有:
1。mkdir 函数
     调用语法:mkdir (dirname, permisions)
     dirname:将要创建的目录名,可以为字符串或表达式。
     permisions:八进制数,指定目录的访问权限。其值和意义如下:
 
        权限值                权限
        4000                  运行时设置用户 ID
        2000                  运行时设置组 ID
        1000                  粘贴位
        0400                  拥有者读权限
        0200                  拥有者写权限
        0100                  拥有者执行权限
        0040                  组读权限
        0020                  组写权限
        0010                  组执行权限
        0004                  所有人读权限
        0002                  所有人写权限
        0001                  所有人执行权限
 
2。chdir 函数
     调用语法:chdir (dirname)
 
3。opendir 函数
     调用语法:opendir (dirvar, dirname)
     dirvar:目录句柄,与文件句柄类似
     dirname:目录名,可为字符串或表达式
     调用成功返回真,否则返回假
 
4。closedir 函数
     调用语法:closedir (mydir)
 
5。readdir 函数
     调用语法:readdir (mydir)
 
6。telldir 函数
     调用语法:location = telldir (mydir)
     返回当前所在目录
 
7。seekdir 函数
     调用语法:seekdir (mydir, location)
     location必须为telldir 函数返回的值
 
8。rewinddir 函数
     调用语法:rewinddir (mydir)
 
9。rmdir 函数
     调用语法:rmdir (dirname)

案例:

点击(此处)折叠或打开

  1. #! perl
  2. use 5.014;

  3. use File::stat;
  4. use File::Copy;
  5. use POSIX qw(strftime);

  6. my $path = "E:/test";

  7. my $yearMonth = strftime("%Y%m",localtime());
  8. my $day = strftime("%d",localtime()) - 1;
  9. my $toDate = $yearMonth . $day;
  10. say $toDate;

  11. #列出目录下的所有文件
  12. sub listdir {
  13.     my (@dirs) = @_;

  14.     my @arr;
  15.     my $handle; #目录句柄
  16.     
  17.     for (my $i = 0; $i < @dirs; $i++) {
  18.         my $dir = $dirs[$i];
  19.         #判断是否为目录
  20.         if ( -d $dir ) {
  21.             #成功打开了目录句柄
  22.             if ( opendir ($handle,$dir) ) {
  23.                 #读取目录下所有的文件
  24.                 while (my $readdirs = readdir($handle)) {
  25.                     if ( $readdirs ne '.' and $readdirs ne '..' ) {
  26.                         #再次测试拿的文件是否为目录
  27.                         my $filePath = "$dir/$readdirs";
  28.                         if ( -d $filePath ) {
  29.                             push (@arr,$filePath);
  30.                         } else {
  31.                             #这里就是文件了
  32.                             my $changeFileDate = strftime "%Y%m%d", (localtime stat($filePath)->mtime)[0..5];
  33.                             if ($toDate eq $changeFileDate) {
  34.                                 copy($filePath,"E:/123");
  35.                                 print $filePath . " date $changeFileDate\n";
  36.                             }
  37.                         }
  38.                     }
  39.                 }
  40.                 closedir $handle;    
  41.             }
  42.         }
  43.     }
  44.     listdir (@arr) if @arr > 0;
  45. }
  46. &listdir("E:/樣品程式","E:/生產程式");
阅读(36) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册