当前位置：代码网 > it编程>网页制作>Perl > Perl脚本实现递归遍历目录下的文件

Perl脚本实现递归遍历目录下的文件

2024年05月18日 • Perl •我要评论

#!/usr/bin/perl -wuse strict;use file::spec;local $ =" ";#当前模块的每行输出加入换行符 my %options;#目录路径$option

#!/usr/bin/perl -w
use strict;
use file::spec;

local $\ ="\n";#当前模块的每行输出加入换行符  

my %options;

#目录路径
$options{single_case} = '/home/jiangyu/src/pl/example';

  my @cases;
  if (-d $options{single_case}) {#判断目录是否存在
    my @files;
    my $dh;
    push(@files, $options{single_case});
    while (@files) {
      if (-d $files[0]) {#若是目录执行以下操作
        opendir $dh, $files[0] or die $!;#打开目录句柄,若失败打印错误信息
        @_ = grep { /^[^\.]/ } readdir $dh;#过滤掉以"."和".."的文件,即unix下的隐藏文件
        foreach (@_) {
          push(@files, file::spec->catfile ($files[0], $_));#连接目录名和文件名形成一个完整的文件路径:
        }
        closedir $dh;
      }
      #若是文件直接压入数组@cases中
      elsif ($files[0] =~ /\.t$/) {
        push(@cases, $files[0]);
      }
      shift @files;
    }
  }
  else {
    @cases = ($options{single_case});
  }


print $_ foreach @cases;#打印文件列表

Perl List::Util模块使用实例

在perl中有一些专门用于处理列表数据的模块，比如说list::util模块，该模块包含在标准库中，能提供各种高效的常见列表处理工具。因其用c语言来实现，速度一... [阅读全文]
Perl中的子程序学习笔记

一、定义函数可分为系统函数和用户函数。子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。perl中，子程序可以出现在程序的任何地方。... [阅读全文]
什么是Perl？编程语言Perl详细介绍

perl 最初的设计者为拉里·沃尔(larry wall)，它于1987年12月18日发表。perl借取了c、sed、awk、shell scripting以及... [阅读全文]
Perl命令行应用程序详解

perl - practical extraction and report language，perl有很多命令行参数，通过它可以让你的程序更简练，并且可以写... [阅读全文]
perl中的范围声明our-my-local介绍

老实说，这个东西有点折腾人，主要是书上的表述很晦涩，其实搞懂不难。our,"把名字限于某个范围“，其实就是明确声明一个"全局变量"，虽然是在某个模块或者函数里面... [阅读全文]
perl中的字符串操作函数chomp与chop介绍

chomp与chop都是用于去除字符串变量尾部的字符，但它们有各自的区别。chomp函数对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，chomp可以... [阅读全文]

发表评论


验证码：

Perl脚本实现递归遍历目录下的文件

2024年05月18日 • Perl •我要评论

相关文章:

发表评论