rutas relativas de archivos en Perl

Question

Tengo un script perl que utiliza rutas de archivos relativas.

Las rutas relativas parecen ser relativas a la ubicación desde la que se ejecuta el script en lugar de la ubicación del script de Perl. ¿Cómo puedo hacer mis rutas relativas relativas a la ubicación del script?

Por ejemplo que tienen una estructura de directorios

dataFileToRead.txt 
->bin 
    myPerlScript.pl 
->output 

dentro del script de perl abro dataFileToRead.txt utilizando el código mi rawDataName $ = "../dataFileToRead.txt"; INPUT abierto, "<", $ rawDataName;

Si ejecuto el script de perl desde el directorio bin entonces funciona bien

Si lo ejecuto desde el directorio padre, entonces no puede abrir el archivo de datos.

Answer 1

FindBin es la clásica solución a su problema. Si se escribe

use FindBin; 

continuación, el escalar $FindBin::Bin es la ruta absoluta a la ubicación de su script Perl. Puede chdir allí antes de abrir el archivo de datos, o simplemente usarlo en la ruta al archivo que desea abrir

my $rawDataName = "$FindBin::Bin/../dataFileToRead.txt"; 
open my $in, "<", $rawDataName; 

(Por cierto, siempre es mejor utilizar léxico manejos de archivo en otra cosa que una . muy antigua perl)

Answer 2

Las rutas relativas son relativas a la actual working directory. Si no tiene ningún control sobre el directorio de trabajo, entonces necesita encontrar una forma más sólida de spccificar sus rutas de archivos, p. utilice rutas absolutas, o quizás rutas relativas que son relativas a alguna ubicación específica dentro del sistema de archivos.

Answer 3

Comenzar por finding out where the script is.

Luego obtenga el directorio en el que se encuentra. Puede usar el método Path::Class::Filedir() para esto.

Finalmente puede usar chdir para cambiar el directorio de trabajo actual al directorio que acaba de identificar.

Por lo tanto, en teoría:

chdir(Path::Class::File->new(abs_path($0))->dir()); 

Answer 4

Para activar una ruta relativa en un absoluto puede utilizar Cwd:

use Cwd qw(realpath); 
print "'$0' is '", realpath($0), "'\n";