file-find

    2热度

    1回答

    要求:要获得符合以下条件 的目录可以使用任何名称,除了“DIR1”输入目录下的目录的计数,“DIR2”,“DIR3”等 目录“DIR1”, “DIR2”, “DIR3” 等里面不需要计入 需要单独目录的数量,没有文件 use strict; use File::Find; my ($inputdir) = @ARGV; my (@branches, $branch, $directory,

    0热度

    1回答

    ls /foo/bar/ lrwxr-xr-x a1 -> ../../../a1 lrwxr-xr-x a2 -> ../../../a2 lrwxr-xr-x a3 -> ../../../a3 这是LS的削减产量。我的目标: 1.转到/ foo/bar /并找到最新版本的(这是一个符号链接)。所以在这种情况下,a3。 A3的内容复制到一个临时位置 我想使用File::Find::Rule但我

    -1热度

    1回答

    我可以找到.jpg文件 但是我怎样才能找到.jpg,.bmp,.png ....文件? 面膜 LPWSTR mask = stoL(path + "*.(jpg)"); 处理程序初始化 HANDLE hf = FindFirstFile(mask, &FindFileData); 字符串LPWSTR LPWSTR stoL(string s) { return CA2T(s.c_

    0热度

    1回答

    我尝试创建Powershell脚本以在网络中的同一台机器或另一台机器上搜索牺牲文件(.exe),并返回所有文件的路径产品版本为每一个 我用下面的代码,但我只能够得到的路径只有 $filename = 'example.exe' (gdr -PSProvider 'FileSystem' | %{ ls -r $_.root} 2>$null | where { $_.name -eq ".EXE"

    0热度

    1回答

    大家下午好,stackoverflow的朋友们! 我一直在考虑下面的任务,并想了解如何查看是否存在文件或目录。 “提示用户键入一个参数(注意,该脚本只接受一个参数,并且如果用户输入包含零个或多个参数,则应报告警告/错误),检查输入参数是文件名还是目录的名称。 1)如果用户输入是一个文件,退出时该文件是一个空文件,并打印该文件的最后一行。 2)如果用户输入是一个目录,出口当该目录是空的,使用哈希表来

    1热度

    3回答

    我面临两个问题。 1)我正在搜索某个关键字的目录,并且该目录包含许多扩展名的文件,例如.java .sql .ksh .pl .jar等。现在我的问题是我不想搜索具有.jar或.doc或.docx的文件。目前我的代码看起来像在这下面 use strict; use warnings; use File::find; my $dir = "C:\DURAB\"; my $out = "ou

    1热度

    3回答

    我正在尝试使用File :: Find来查找1)通过给定的文件夹和子文件夹,删除任何超过30天的文件,以及b)如果在删除所有删除后父文件夹为空,也删除它。 这里是我的代码: use strict; use warnings; no warnings 'uninitialized'; use File::Find; use File::Basename; use File::Spec::F

    3热度

    1回答

    我有一个数组一组目录作为 chdir /tmp; my @dir=("test" "abc" "def") 我使用的文件寻找一种方式::查找::规则来找到所有文件在/ tmp 递归地,但不包括来自@dir中的文件。 我可以 my $rule = File::Find::Rule->new; $rule->file; my @files = $rule->in(@dir); 得到@di

    2热度

    2回答

    我觉得File::Find::find背后的设计选择有点令人惊讶。我遇到的所有例子都显示在void context中使用find。 的documentation还明确,在find(\&wanted, @dirs)的\&wanted CODEREF并不意味着是一个过滤器(强调我自己): 的wanted()函数做任何你想要的验证上每个 文件目录。需要注意的是,尽管它的名字,在wanted() 功能是一

    0热度

    1回答

    有谁知道如何使文件:查找可以通过符号链接目录搜索? 我在 /home/alex/mydir1 一个真正的目录,里面 /home/alex/mydir1/test -> ../mydir2 这里一个符号链接的目录是我的代码: #!/depot/perl-5.8.3/bin/perl use strict; use File::Find qw(find); my $path = "/h