Perl文件名通配和文件查找

在shell中使用*来对文件名进行通配扩展，在Perl中也一样支持文件名通配。并且perl中的glob通配方式和shell的通配方式彻底一致，实际上perl的glob函数就是直接调用csh来通配的(若是不存在csh，则使用其它shell)，也所以通配是一个效率较低的操做。

glob通配函数

元字符    意义
--------------------------------
[]       字符类，匹配中括号中的任一字符。注：
*        匹配任意个字符
?        匹配任意单个字符，注意，不匹配0个
~        匹配家目录

注意：

• []支持[0-9] [a-z] [A-Z] [A-z]相似的范围通配，其中[A-z]等价于[A-Za-z]
• 不支持[^]取反
• 特别须要注意的是[1-34]通配的是[1234]，而不是1到34，由于中括号只能匹配单个字符

例如：

use 5.010;

say glob "*";      # 匹配当前目录下全部非"."开头的隐藏文件
say glob ".* *";   # 匹配当前目录下全部文件，包括"."开头的隐藏文件
say glob "23.p[ly]";  # 匹配23.pl或23.py文件
say glob "[0-9][0-9].pl"   # 匹配两个数值开头的pl文件
say glob "/root/23.p?";   # 匹配家目录下后缀以p开头，后面还有一个字符的文件
say glob "~/*.sh";  # 匹配家目录下的全部sh文件

在glob函数中，空格具备特殊含义，若是想要匹配包含空格的文件名，必须将其使用引号(单/双引号皆可)包围。

例如，要匹配"hello world.log"文件：

glob "'hello w*.log'";
glob '"hello w*.log"';
glob qq('hello w*.log');
glob qq("hello w*.log");
glob q('hello w*.log');
glob q("hello w*.log");

File::Glob模块提供更丰富的通配规则，能够去查看下手册。不过说实话，用到的几乎应该很少。

尖括号<>通配写法

在glob出现以前，人们都使用尖括号表达式来通配。它和glob的实现是彻底一致的，仅仅只是从尖括号改成了glob函数。

例如，匹配/root下的sh文件，下面两种写法彻底等价：

say </root/*.sh>;
say glob "/root/*.sh";

还可使用变量替换：

$dir="/etc";
my @file_list = glob "$dir/*.sh $dir/*.py";
my @file_list = <$dir/*.sh $dir/*.py>;

一样，匹配包含空格的文件，可能须要使用引号包围：

say <"hello w*.log">;

在这里须要搞清楚尖括号内的到底会被解析成文件句柄仍是解析成通配符。perl的解析规则是：假如尖括号内的内容知足标识符规则(文件句柄的名称要知足此规则)，则会解析为文件句柄，不然解析成通配符。

如下是几种状况的区分示例：

my @files = <FOO/*>;     # 文件名通配
my @lines = <FOO>;       # 读取文件句柄
my @lines = <$fred>;     # 读取文件句柄
my $name = 'FOO';
my @files = <$name>;     # 读取文件句柄
my @files = <$name/*>;   # 文件名通配

从第三行和第5行能够看出，当使用变量且只有变量名替换的时候，会优先解析为文件句柄。

文件查找：关于find2perl脚本

在unix下有一个find工具，用来查找文件很是方便。perl提供了一个find2perl的工具(该工具是在安装perl时自带的)，它能够将find查找文件时的表达式转换成perl对应的查找语句。

find2perl的选项和用法和find的用法99%都同样，只有几项额外的是find2perl自身提供的，但这样的选项很是少。

注意，find2perl不是文件查找工具，而是将咱们写的find命令表达式转换为等价的perl文件查找语句。

例如，搜索/etc目录下全部".cnf"结尾的文件，find命令的表达式以下：

find /etc -type f -name "*.cnf"

执行find2perl：

[root@xuexi perlapp]# find2perl /etc/ -type f -name "*.cnf"
#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;



# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/etc/');
exit;


sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    /^.*\.cnf\z/s
    && print("$name\n");
}

能够看出，上面生成了一个wanted子程序，之后要查找"/etc/*.cnf"文件时，只需调用wanted子程序便可。例如：

[root@xuexi perlapp]# find2perl /etc/ -type f -name "*.cnf" >24.plx
[root@xuexi perlapp]# chmod +x 24.plx 
[root@xuexi perlapp]# perl 24.plx 
/etc/my.cnf
/etc/proxysql.cnf
/etc/pki/tls/openssl.cnf