Gibt es eine Funktion, die das übergeordnete Verzeichnis einer Datei in Perl zurückgibt?
Wenn Sie einen Pfadnamen haben, können Sie die Funktion dirname von Datei :: Basisname verwenden.
dirname
Was haben Sie als Eingabe?
Sie können die brillanteste Brian-Methode oben verwenden und wenn% code_% eq "." dann ersetzen "." mit Ihrem aktuellen Arbeitsverzeichnis.
Beachten Sie auch Path :: Class , das funktioniert mit Pfaden gesund.
Tags und Links perl directory