Как прочитать файл внутренней среды в Perl?

Question

Я конвертирую скрипт UNIX в Perl. В Unix у нас есть

. ${DTE_WORKING_DIR}/sh/dte.env    
. ${DTE_WORKING_DIR}/sh/xfer.env    
. ${DTE_WORKING_DIR}/sh/dte_reports.env    
. ${DTE_WORKING_DIR}/sh/java.env    

Что мне делать в Perl? То же самое или открыть и прочитать каждый файл?

Answer 1

Используйте сценарий оболочки в качестве оболочки для вашего сценария Perl.

#!/bin/sh
. ${DTE_WORKING_DIR}/sh/dte.env    
. ${DTE_WORKING_DIR}/sh/xfer.env    
. ${DTE_WORKING_DIR}/sh/dte_reports.env    
. ${DTE_WORKING_DIR}/sh/java.env
perl /path/to/file.pl

Внутри perl-скрипта вы можете получить переменные окружения, определенные в этих файлах.