如何在 perl 中读取内部环境文件?

如何在 perl 中读取内部环境文件?

我将 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 中应该做什么?相同还是打开并读取每个文件?

答案1

使用 shell 脚本作为 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 脚本中,您可以检索这些文件上定义的环境变量。

相关内容