Perl中find的用法
来源:互联网 发布:vb窗体透明控件不透明 编辑:程序博客网 时间:2024/05/19 16:33
find通常被用来查找特定路径下的特定文件,用来搜索文件名非常有用,是perl中使用非常广泛的文件操作函数。
先看个例子:
use File::Find;
find(\&PrintName, @curDir);
sub PrintName{
my $path;
if (/$reg/) {
$path = $File::Find::name;
$path =~ s/\//\\/g;
$path =~ s/\\+/\\/g;
print LST "$path\n";
}
}
这是一个find函数的经典使用方法。它包含在FILE模块中,有两个参数。第一个一般为子程序,第二个为搜寻的路径。这里路径是用列表表示的,可以存放多个路径,即可以同时对几条路径进行搜索。每遇到一个文件,子程序都会被调用。我们需要判断,找到的文件是否与我们想要的文件相匹配。
File::Find方式具有特殊变量,将被赋予特定的信息,显示如下:
(1)$_包含目录中的当前文件名
(2)$File::Find::dir包含当前目录名
(3)$File::Find::name包含$File::Find::dir/$_
在寻找过程中,我们都位于目录$File::Find::dir下。这是可以用正则表达式选出我们寻找的文件。注意在匹配时“$”代表一个字符串最后的匹配而“^”代表与开头匹配。
- Perl中find的用法
- Perl中File::Find模块的一个经典用法
- Perl中grep的用法:
- Perl中hash的用法
- perl中our的用法
- perl中last的用法
- List<>中Find的用法
- vector中find 的用法
- Unity3D中Find的用法
- Unity3D中Find的用法
- python中find()的用法
- python中find()的用法
- 关于perl中sort的用法举例
- Perl中open的用法总结
- perl中seek函数的用法
- perl中seek函数的用法
- Perl 中 Pod 的基本用法。
- perl 中 ping的小用法
- Tomcat与Apache服务器
- 浅谈java Timer
- html+js实现表格增删
- mysql 性能优化方案
- Netty 3.1 中文用户手册(二)-开始
- Perl中find的用法
- [Linux笔记]Linux内核的Makefile和kconfig解读
- Netty 3.1 中文用户手册(三)-架构总览
- 金蝶EAS BOS开发之扩展表应用
- c++ 大整数类CCBigInteger 加减法功能的实现
- Sql Server 2008 出现"provider:命名管道提供程序,error:40"问题,无法登录数据库
- session 持久化问题(重启服务器session 仍然存在)
- Android Context
- 因C#一段代码,引发的问题