统计目录下的.txt文件的问题。

下后下前拳

我想统计/data目录下的.txt文件，如果有则输出txt exist并退出，没有则输出none并退出。
比如我的/data目录下只有1个a.txt，我不想每行都输出一句话，想遍历整个目录之后做判断，有.txt文件就只输出一句txt exist，没有就输出一句none.
这个后面不知道怎么写了。。请赐教。
#!/usr/bin/perl -w
use strict;

opendir(DIR,"/data");
my @file=readdir(DIR);
closedir(DIR);

foreach (@file){
        if ($_=~ /.*\.txt/){
        print "txt exist\n";
        last;
        }
        else{
        next;
        }
}

wfnh

按照你这个就行啦···有就打印···就不再··遍历了·······

如果你非要··遍历完··再打印的话····可以在循环里边设置一个flag~~·
跳出循环后··检查这个flasg就行了····

当然也可以将文件名存放到一个数组···跳出循环后··检查数组是否为空就行···同时数组也可以为后继的操作··提供空间··

yybmsrs

print ((grep /\.txt$/,@file)?'exist':'none');

下后下前拳

哈哈，谢谢诶，受教了。