需要检查文件是否存在？

Question

里面一个文件夹，我有一些文件

UEDP01_20120821.csv 
UEDP02_20120821.csv 
UEDP03_20120821.csv 
UEDP04_20120821.csv 
UEDP05_20120821.csv 

只是要检查所有的文件都存在。如果缺少任何一个文件，则需要创建一个具有相同名称的空文件。

如：

UEDP01_20120821.csv 
UEDP02_20120821.csv 
UEDP04_20120821.csv 
UEDP05_20120821.csv 

UEDP03_20120821.csv如果这个文件丢失，则需要创建相同的文件。

Answer 1

这个怎么样？检查名称的常规文件是否存在。如果没有，请创建它。

#!/usr/bin/perl 
use strict; 
use warnings; 

my @files = qw(
    UEDP01_20120821.csv 
    UEDP02_20120821.csv 
    UEDP03_20120821.csv 
    UEDP04_20120821.csv 
    UEDP05_20120821.csv 
); 

for my $file (@files) { 
    next if -f $file; 
    open my $fh, '>', $file or die $!; 
} 

Answer 2

只需打开一个文件输出将为您创建它。

你不说你的文件名列表来自哪里，但是在下面的程序中我已经对它进行了硬编码。

请注意，不需要关闭文件句柄$fh，因为当循环的每个循环结束时变量超出范围时，Perl会自动关闭它。

-e operator将检查文件是否存在。或者，您可以使用-f，如果节点存在而且不是目录，则为true。如果已经有一个目录同名那么open将失败

use strict; 
use warnings; 

my @files = qw/ 
    UEDP01_20120821.csv 
    UEDP02_20120821.csv 
    UEDP03_20120821.csv 
    UEDP04_20120821.csv 
    UEDP05_20120821.csv 
/; 

for my $file (@files) { 
    open my $fh, '>', $file or die $! unless -e $file; 
} 

---

更新

正如比尔·鲁珀特建议，你可能更愿意打开文件进行追加，不管它们是否存在。如有必要，这将创建一个文件，但留给他们不变，如果他们已经在那里

use strict; 
use warnings; 

my @files = qw/ 
    UEDP01_20120821.csv 
    UEDP02_20120821.csv 
    UEDP03_20120821.csv 
    UEDP04_20120821.csv 
    UEDP05_20120821.csv 
/; 

open my $fh, '>>', $_ or die $! for @files; 

Answer 3

Shell脚本： -

for i in {1..5} 
do 
file="UEDP0${i}_20120821.csv" 
if [ -f $file ] 
then 
    echo the file exists 
else 
>$file 
fi 
done 

Answer 4

如果你的文件列表动态变化，那么你可以在另一个文件中的文件列表，这将使它更容易：

如果你有你在一个文件中的文件名为list，则：

list将有内容：

UEDP01_20120821.csv 
    UEDP02_20120821.csv 
    UEDP03_20120821.csv 
    UEDP04_20120821.csv 
    UEDP05_20120821.csv 

---

awk 'system("touch "$1"");' list 

将创建文件，如果它们不存在。

Answer 5

为什么你需要这个脚本？

作为dennis建议您可以使用-a来改变现有文件的访问时间。

touch -a UEDP0{1..5}_20120821.csv 

将直接创建丢失的文件。

Answer 6

如果file.txt是文件列表，在bash：

while read fname; do 
    [[ -f $fname ]] || touch "$fname" 
done < file.txt