Come posso verificare se esiste un nome file che corrisponde a un modello in Perl?

Question

Posso fare qualcosa del genere in Perl? Significato della corrispondenza del modello sul nome di un file e verifica se esiste.

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

Conosco la soluzione più lunga del sistema di richiesta per elencare i file presenti; leggerlo come un file e quindi dedurre se il file esiste o meno.

Answer 1

È possibile utilizzare glob per restituire una matrice di tutti i file che corrispondono al modello:

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

foreach (@files) { 
    # do something 
} 

Se si vuole semplicemente sapere se esiste un file corrispondente al modello, è possibile saltare l'assegnazione:

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

Answer 2

Su sistemi * nix, ho utilizzato quanto segue con buoni risultati.

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

Risponde al numero di risultati trovati o 0 se nessuno. Che lo rende facilmente utilizzato in 'se' condizionali come:

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"; 
} 

Esattamente quello che i modelli è possibile utilizzare sarebbero determinate da ciò che i vostri supporti di shell. Ma la maggior parte delle shell supporta l'uso di '*' e '?' - e significano la stessa cosa ovunque io abbia visto. Ovviamente, se si rimuovesse la chiamata alla funzione 'scalare', si restituirebbero le corrispondenze, utili per trovare quei nomi di file variabili.