需要檢查文件是否存在？

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