Проверка наличия файла (Perl)

Question

Как бы вы писали скрипт perl, чтобы проверить, существует ли файл?

Например, если я хочу проверить, существует ли файл $ $ в $ location.

В настоящее время я использую длинную подпрограмму (см. Ниже), и я уверен, что есть более простой способ сделать это?

# This subroutine checks to see whether a file exists in /home 
sub exists_file { 
    @list = qx{ls /home}; 
    foreach(@list) { 
    chop($_); 
    if ($_ eq $file) { 
    return 1; 
    } 
} 

Answer 1

Используйте -e оператор:

if (-e "$location/$file") { 
    print "File $location/$file exists.\n"; 
} 

Вы можете захотеть использовать что-то более надежное, чем конкатенация присоединиться $location с $file, хотя. См. Также документацию для File::Spec (входит в комплект поставки Perl) или Path::Class.

Answer 2

да, при условии, $your_file это файл, который вы проверки (что-то вроде /home/dude/file.txt):

Вы можете просто использовать

if(-e $your_file){ 
    print "I'm a real life file!!!" 
} 
else{ 
    print "File does not exist" 
} 

Answer 3

sub file_exists { 
    return 1 if -f '/home/' . $_[0]; 
} 

И назвать это как например

if (file_exists('foobar')) { ... } # check if /home/foobar exists 

Answer 4

Решение «Все остальные» не учитывает «невозможность определить, существует ли файл», поскольку «файл не существует». Далее не страдает от этой проблемы:

sub file_exists { 
    my ($qfn) = @_; 
    my $rv = -e $qfn; 
    die "Unable to determine if file exists: $!" 
     if !defined($rv) && !$!{ENOENT}; 
    return $rv; 
} 

Если вы хотите, чтобы проверить, является ли это обычный файл (т.е. не каталог, символическая, и т.д.) или нет,

sub is_plain_file { 
    my ($qfn) = @_; 
    my $rv = -f $qfn; 
    die "Unable to determine file type: $!" 
     if !defined($rv) && !$!{ENOENT}; 
    return $rv; 
} 

Документация: -X