относительные пути к файлу в perl

Question

У меня есть скрипт perl, который использует относительные пути к файлу.

Относительные пути, по-видимому, относятся к местоположению, из которого выполняется сценарий, а не к местоположению скрипта perl. Как сделать мои относительные пути относительно местоположения скрипта?

Например у меня есть структура

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

каталогов внутри скрипта PERL я открываю dataFileToRead.txt используя код мой $ rawDataName = "../dataFileToRead.txt"; open INPUT, "<", $ rawDataName;

Если я запускаю скрипт на языке Perl из каталога бен то он работает отлично

Если я запускаю его из родительского каталога, то он не может открыть файл данных.

Answer 1

FindBin является классическим решением вашей проблемы. Если вы пишете

use FindBin; 

то скалярная $FindBin::Bin абсолютный путь к месту вашего скрипта Perl. Вы можете chdir там, прежде чем открыть файл данных, или просто использовать его в пути к файлу, который вы хотите открыть

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

(Кстати, это всегда лучше использовать лексический файл обрабатывает на что-либо, кроме . очень старый Perl)

Answer 2

Относительные пути относительно текущего working directory. Если у вас нет никакого контроля над рабочим каталогом, вам нужно найти более надежный способ для spcecify пути к файлу, например. использовать абсолютные пути или, возможно, относительные пути, относящиеся к определенному местоположению в файловой системе.

Answer 3

finding out where the script is.

Тогда получите каталог, в котором он находится. Вы можете использовать метод Path::Class::Filedir().

Наконец, вы можете использовать chdir, чтобы изменить текущий рабочий каталог на только что идентифицированный каталог.

Таким образом, в теории:

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

Answer 4

Чтобы включить относительный путь в абсолютный можно использовать Cwd:

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