Как проверить, существует ли файл в определенном каталоге в Perl?

Question

Как проверить, существует ли определенный файл в определенном каталоге в Perl?Очевидный метод проверки, что абсолютное имя каталога является префиксом абсолютного имени файла, не работает, так как иногда абсолютное имя каталога похоже на /a/b/c/..

Answer 1

File::Find 's find функция может быть использована:

Программа

#!/usr/bin/env perl                                                                                    

use strict;                                                                                            
use warnings;                                                                                          

use File::Find 'find';                                                                                 


# file 'foo' in path 'a/b/c'
my $file      = 'foo';                                                                                 
my $directory = 'a';                                                                                   

sub check_existance {                                                                              
    if ( -e $_ && $_ eq $file ) {                                                                      
        print "Found file '$_' in directory '$File::Find::dir'\n";                                     
    }                                                                                                  
}                                                                                                      

find( \&check_existance, $directory );

выход

Found file 'foo' in directory 'a/b/c'                                                                  

Answer 2

Если вы не знаете точный путь, вы можете использовать find2perl. Он генерирует код File::Find::find() для вас. Для немедленного выполнения команды:

$ find2perl /path/to/dir -name filename.txt -exec echo exists {} | perl

Код, сгенерированный find2perl

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;
sub doexec ($@);

use Cwd ();
my $cwd = Cwd::cwd();

# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/path/to/dir');
exit;

sub wanted {
    /^filename\.txt\z/s &&
    doexec(0, 'echo','exists','{}');
}

sub doexec ($@) {
    my $ok = shift;
    my @command = @_; # copy so we don't try to s/// aliases to constants
    for my $word (@command)
        { $word =~ s#{}#$name#g }
    if ($ok) {
        my $old = select(STDOUT);
        $| = 1;
        print "@command";
        select($old);
        return 0 unless <STDIN> =~ /^y/;
    }
    chdir $cwd; #sigh
    system @command;
    chdir $File::Find::dir;
    return !$?;
}

Answer 3

if (-e "/path/to/file/filename.txt") {
   print("file exists");
}

?