Programmieren mit Perl

Cwd

use Cwd;
$dir = getcwd();   # Wo bin ich?

use Cwd 'chdir';
chdir "/tmp";      # Aktualisiert $ENV{PWD}.

use Cwd 'realpath';
print realpath("/usr////spool//mqueue/../");  # gibt /var/spool aus

Das Cwd-Modul stellt plattformunabhängige Funktionen zur Verfügung, mit denen Sie das aktuelle Arbeitsverzeichnis Ihres Prozesses bestimmen können. Dieser Ansatz ist besser als der Aufruf von pwd (1) über die Shell, weil nicht-POSIX-konforme Systeme diesen Befehl nicht unbedingt kennen und Perl nicht nur auf POSIX-Plattformen läuft. Die standardmäßig exportierte Funktion getcwd liefert das aktuelle Arbeitsverzeichnis über die für die jeweilige Plattform sicherste Methode zurück. Wenn Sie die Funktion chdir importieren, überschreibt diese den fest eingebauten Operator ...