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