¿Cómo puedo comprobar si existe un nombre de archivo que coincida con un patrón en Perl?

Question

¿Puedo hacer algo como esto en Perl? Significado coincidencia de patrón en un nombre de archivo y comprobar si existe.

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

Conozco la solución más larga de pedir al sistema que liste los archivos presentes; léalo como un archivo y luego infórmese si el archivo existe o no.

Answer 1

Puede utilizar glob para devolver una matriz de todos los archivos que coinciden con el patrón:

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

foreach (@files) { 
    # do something 
} 

Si simplemente desea saber si existe un archivo que coincida con el patrón, puede omitir la misión:

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

Answer 2

En los sistemas * nix, he utilizado lo siguiente con buenos resultados.

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

Responde con el número de coincidencias encontradas, o 0 si no hay ninguna. Haciéndolo fácil de usar en condicionales 'if' como:

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

Exactamente qué patrones podría usar estaría determinado por lo que admita su caparazón. Pero la mayoría de las shells admiten el uso de '*' y '?' - y significan lo mismo en todas partes que he visto. Por supuesto, si elimina la llamada a la función 'escalar', devolverá las coincidencias, lo cual es útil para encontrar esos nombres de archivos variables.