递归寻找文件

import os


def findstrr(path, st):
    for x in os.listdir(path):
        if os.path.isdir(x):
            new_path = os.path.join(path, x)
            findstrr(new_path, st)
        elif st in os.path.splitext(x)[0]:
            print("相关文件名:%s, 相对路径:  %s" % (x, os.path.relpath(path)))


if __name__ == '__main__':
    f = os.path.abspath('.')
    text = input('input: ')
    findstrr(f, text)
Perl语言中的递归查找文件功能可以通过使用内置的文件测试操作符和递归函数来实现。一个典型的场景是需要在文件系统中查找所有匹配特定模式的文件。下面是一个简单的例子,展示如何使用Perl实现递归查找文件的功能: ```perl #!/usr/bin/perl use strict; use warnings; # 定义一个递归函数来遍历目录并打印出符合模式的文件名 sub find_files { my ($dir, $pattern) = @_; unless (-d $dir) { print "不是有效的目录: $dir\n"; return; } # 遍历目录中的每个条目 foreach my $file (grep {-f "$dir/$_"} readdir(DIR)) { if ($file =~ $pattern) { print "找到文件: $file\n"; } } # 进入子目录继续查找 foreach my $subdir (grep {-d "$dir/$_"} readdir(DIR)) { find_files("$dir/$subdir", $pattern); } } # 主程序开始执行的地方 my $start_dir = '.'; # 指定开始搜索的目录 my $pattern = qr/\.txt$/; # 定义一个正则表达式模式,例如查找所有.txt文件 find_files($start_dir, $pattern); ``` 在这个脚本中,`find_files` 函数接收两个参数:一个目录路径和一个文件名模式(正则表达式)。函数首先检查传入的路径是否为目录,然后遍历该目录中的所有文件和子目录。对于每个文件,它使用模式匹配来检查文件名是否符合指定的正则表达式。如果是,就打印文件名。之后,对于每一个子目录,函数递归调用自身以继续搜索。 这个脚本还可以进行扩展,例如增加错误处理、匹配特定的文件类型、排除特定目录等,以满足不同的需求。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值