代码之家 › 专栏 › 技术社区 › chappar

如何从所需函数中打开file::Find找到的文件?

file-find perl windows

chappar · 技术社区 · 17 年前

$File::Find::name (在这种情况下 ./tmp/tmp.h )在我的 search 函数(由调用 File::Find::find ),它说“无法打开文件.tmp/tmp.h原因=temp.pl第36行、第98行没有这样的文件或目录。”

如果我直接在另一个函数中打开文件,我就可以打开文件。有人能告诉我这种行为的原因吗?我在Windows上使用activeperl,版本是5.6.1。

use warnings;
use strict;
use File::Find;

sub search
{
    return unless($File::Find::name =~ /\.h\s*$/);
    open (FH,"<", "$File::Find::name") or die "cannot open the file $File::Find::name  reason = $!";
    print "open success $File::Find::name\n";
    close FH;

}

sub fun
{
    open (FH,"<", "./tmp/tmp.h") or die "cannot open the file ./tmp/tmp.h  reason = $!";
    print "open success ./tmp/tmp.h\n";
    close FH;

}

find(\&search,".") ;

3 回复 | 直到 12 年前

Sinan Ünür 17 年前

看 perldoc File::Find File::Find::find $File::Find::name 包含相对于搜索开始位置的文件路径。当前目录更改后无法使用的路径。

您有两个选择:

告诉文件::查找不更改到它搜索的目录: find( { wanted => \%search, no_chdir => 1 }, '.' );
或者不使用但是 $_

AndyG 9 年前

如果 ./tmp/ 如果是符号链接,则需要执行以下操作:

find( { wanted => \&search, follow => 1 }, '.' );

-1

Space 17 年前

如果你想在当前工作目录中搜索文件,可以使用Cwd。

use warnings;
use strict;
use File::Find;
use Cwd;

my $dir = getcwd;

sub search
{
    return unless($File::Find::name =~ /\.h\s*$/);
    open (FH,"<", "$File::Find::name") or die "cannot open the file $File::Find::name  reason = $!";
    print "open success $File::Find::name\n";
    close FH;

}

find(\&search,"$dir") ;

推荐文章

MineRickStar · 如何在Java中从Windows获取当前选定的应用程序

1 年前

dalvol.amsi · 无法在Windows上使用g++使用SFML编译*.cpp文件

1 年前

Parduz · Powershell Get ChildItem:如何获取具有给定BaseName的所有内容,包括文件和文件夹?

1 年前

Dan · 安装后如何获取Powershell Gallery软件包中的函数列表?

1 年前

TheFuture1sNow · ShowWindow()无法最大化窗口的原因是什么?

1 年前

WonkyWombat38 · 如何防止我的Python脚本在Windows上运行后立即关闭?

1 年前

Flash_Steel · 是否有任何方法可以让VBA在不使用CMD的情况下从Windows用户帐户获取当前用户的全名?

1 年前

eden sson · 使用std::thread和native_handle()设置线程关联掩码

2 年前

some guy who likes C · 如何检查可执行文件是否在C[复制]中运行

2 年前

PHPLover · “支持PHP扩展或功能的端口”实际上是什么意思?

2 年前