open error - Keine solche Datei oder Verzeichnis

Question

Ich verwende File::Find, um durch einen Verzeichnisbaum zu laufen, und wenn ich versuche, die aktuelle Datei zum Lesen zu öffnen, bekomme ich No such file or directory. Dies geschieht mit ALLEN Dateien in der Verzeichnisstruktur.

Hier ist der Unter ich im find() verwenden:

sub { 
    if (-d) { 
     return; 
    } 
    if (-f) { 
     my $file = ${File::Find::name}; 
     open (my $IN, '<', '$file') or die "$!\n"; 
     while (<$IN>) { 
      ### Do some formatting. 
     } 
     close $IN; 
    } 
} 

Es scheitert in der Zeile:

open (my $IN, '<', '$file') or die "$!\n"; 

Ich dachte, es vielleicht eine Frage der Links ist, sondern auch mit follow => 1 Option bekomme ich diese Error.

Übrigens, ohne follow ist der Fehler, den ich bekomme, auf der ersten Datei des ersten Verzeichnisses, das ich finde, und damit der Fehler auf der letzten Datei des letzten Verzeichnisses (aber in beiden Fällen ist es auf der ersten Datei geprüft von File::Find).

Answer 1

Problem gelöst. Offensichtlich hat das Ersetzen der einfachen Anführungszeichen durch doppelte Anführungszeichen in der Zeile open, oder noch besser, ohne irgendwelche Anführungszeichen, den Trick gemacht. Das Zeichenfolgenliteral '$file' erzeugt die Zeichenfolge $file, und es gibt eindeutig keine Datei mit diesem Namen.