Linux系统下使用Perl实现文件搜索

后青春期的诗go

于 2025-04-11 10:58:19 发布

阅读量238

点赞数 2

分类专栏：编程语言文章标签： linux perl 运维

本文链接：https://blog.youkuaiyun.com/2301_78858267/article/details/147138828

版权

编程语言专栏收录该内容

15 篇文章

订阅专栏

#!/usr/bin/perl
###
###使用方法(在filefind.pl文件目录下):
###1)给脚本加上执行权限,chmod +x filefind.pl
###2)在命令行执行 ./filefind.pl '第一个参数' '第二个参数'
###3)参数说明，a)第一个参数，要检索的内容；b)第二个参数，要检索的位置，此参数可缺省，缺省默认检索位置：根目录
###
use strict;
use warnings;
use File::Find;


#要搜寻的文件名
my $search=$ARGV[0];
# 要搜寻的位置
my $directory = $ARGV[1]||'/';

# 定义要执行的操作
sub find_files {
    if (-f $_ && /$search/) {
        print "$File::Find::name\n";
    }
}

# 开始查找
find(\&find_files, $directory);