- 论坛徽章:
- 0
|
我是perl新手,自己写了一个简单的perl脚本测试用,但是执行时报错,麻烦高手指点一下,到底是什么问题,会不会是perl环境安装有问题导致的,多谢.
脚本如下:
#!/usr/bin/perl
use warnings;
use strict;
use XML::Simple;
use Cwd;
my $ProCfg = cwd . '/' . "simple.xml";
unless (-f $ProCfg)
{
print "Error: failed to get the file[$ProCfg]\n";
}
my $OperXML = eval{XMLin($ProCfg)} || die "Error:[$ProCfg] $!";
my $OPrefix = $OperXML -> {outfile_prefix};
print "-->[$OPrefix]\n";
simple.xml文件内容如下:
<?xml version="1.0" encoding="UTF-8"?>
<root>
<outfile_prefix>test</outfile_prefix>
</root>
我有两套perl环境,一套执行OK,能够正常输出结果test,但是另一套却总是报错如下:
Error:[/dcc/dcchigh/simple.xml] [fly]No such file or directory [/fly]at ./test.pl line 11. |
|