Wie kann ich testen, ob ein mit einem Muster übereinstimmender Dateiname in Perl existiert?

Question

Kann ich in Perl so etwas machen? Bedeutung Muster passen auf einen Dateinamen und prüfen, ob es existiert.

Ich kenne die längere Lösung des Systems zu bitten, die vorhandenen Dateien aufzulisten; lese es als Datei und folge dann, ob die Datei existiert oder nicht.

Answer 1

Sie können glob verwenden ein Array aller Dateien passend zum Muster zurück:

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

foreach (@files) { 
    # do something 
} 

Wenn Sie einfach nur wissen wollen, ob eine Datei mit dem Pattern-Matching vorhanden ist, können Sie die Zuordnung überspringen:

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

Answer 2

Auf * nix-Systemen habe ich Folgendes mit guten Ergebnissen verwendet.

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

Es antwortet mit der Anzahl der gefundenen Übereinstimmungen, oder 0, wenn keine gefunden wurde. Es macht es leicht in 'Wenn'-Bedingungen wie:

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

Genau welche Muster Sie verwenden könnten würde bestimmt werden, was Ihre Shell unterstützt. Aber die meisten Shells unterstützen die Verwendung von '*' und '?' - und sie meinen dasselbe überall, wo ich gesehen habe. Wenn Sie den Aufruf der Funktion "Skalar" entfernen, werden natürlich die Übereinstimmungen zurückgegeben - nützlich, um diese variablen Dateinamen zu finden.