うさぎのしっぽ

プログラミングとか。備忘録として使ってるブログです。あとは趣味少し。間違いなどありましたらご指摘ください（・3・）

Perl プログラミング

サンプルコード

# 指定された全てのファイルが存在していたら真，1つでも不足していたら偽を返すサブルーチン

sub files_exist{
my(@list)= @_;

my $num = @list;
my $counter=0;
foreach $fname(@list){

if (-f fname) {
$counter++;
}

if($counter >= $num){
# print "sub:ファイル群が存在します。\n";
return 1;
}else {
return undef;
}
}

# サブルーチンここまで

#メインのコードブロックここから

@name = ("file1.txt","file2.txt",file3.txt","file4.txt","file5.txt");

if (files_exist(@flist)) {
print " --> ファイル群が存在します。\n";
}else{
print " --> ファイル群が存在しません。\n";
}