Question

我正在尝试从属性文件中打开一个读取文件路径，但我无法做到这一点。但是，我尝试过做一些硬编码，它运行正常。

Error: Could not open file '/home/ad/prod/logs/test.log' 
  No such file or directory at binaryImageTransfer.pl

在下面的代码中，当我尝试直接使用tempVar时，它可以工作。我也试过打印logFileName。它的工作原理

my $config = Config::Tiny->new; 
$config = Config::Tiny->read('myconfig_imagetransfer');
$logFileName = $config->{TRUNK}->{LOG_FILE}; 
chomp $logFileName; 
#my $tempVar = '/home/ad/prod/logs/test.log'; 
my $tempVar = $logFileName; 
open($logFile, '>>', $tempVar) or die "Could not open file $tempVar $!"; 


myconfig_imagetransfer 
TRUNK SOURCE_DIR = /home/ad/prod/war 
TARGET_DIR = /app/tomcat6/trunkcurrent/webapps 
LOG_FILE = '/home/ad/prod/logs/test.log'

在这方面的任何帮助将不胜感激。提前谢谢

Answer 1

LOG_FILE值附近的单引号是不必要的。此外，在配置文件中，“TRUNK”应该是节名称，因此请尝试以下配置文件：

[TRUNK]
SOURCE_DIR = /home/ad/prod/war 
TARGET_DIR = /app/tomcat6/trunkcurrent/webapps 
LOG_FILE = /home/ad/prod/logs/test.log

无法从Perl中的属性文件打开文件

1 个答案: