Perl'de bir desenle eşleşen bir dosya adı mevcut olup olmadığını nasıl test edebilirim?

Question

Perl'de böyle bir şey yapabilir miyim? Anlamı desen bir dosya adıyla eşleşir ve var olup olmadığını kontrol eder.

if(-e "*.file") 
    { 
     #Do something 
    } 

Mevcut dosyaları listelemek için sorma sisteminin daha uzun bir çözümünü biliyorum; dosyayı bir dosya olarak okuyun ve sonra dosyanın var olup olmadığını öğrenin.

Answer 1

Sen desen eşleştirme tüm dosyaların bir dizi dönmek glob kullanabilirsiniz: sadece desen eşleştirme bir dosya var olup olmadığını bilmek isterseniz atama atlayabilirsiniz,

@files = glob("*.file"); 

foreach (@files) { 
    # do something 
} 

:

if (glob("*.file")) { 
    # At least one file matches "*.file" 
} 

Answer 2

On * nix sistemlerinde, aşağıdakileri iyi sonuçlarla kullandım.

sub filesExist { return scalar (my @x = `ls -1a 2> /dev/null "$_[0]"`) } 

Bulunan eşleşme sayısı veya hiç değilse 0 ile cevap verir. kolayca kullanılan yapma 'eğer' gibi şart: Eğer kullanabilirsiniz desenler göründüğünü anlamak için kabuk desteklerle tarafından belirlenecektir Tam olarak ne

if(!filesExist("/foo/var/not*there.log") && 
    !filesExist("/foo/var/*/*.log") && 
    !filesExist("/foo/?ar/notthereeither.log")) 
{ 
    print "No matches!\n"; 
} else { 
    print "Matches found!\n"; 
} 

. Ancak çoğu kabuk, '*' ve '?' Kullanımını destekler. - ve gördüğüm her yerde aynı şeyi kastediyorlar. Tabii ki, 'skaler' işlevine çağrıyı kaldırırsanız, eşleşmeleri döndürür - bu değişken dosya adlarını bulmak için kullanışlıdır.